[root@secure ~]# echo "reistlin.com" | passwd --stdin root
Changing password for user root.
passwd: all authentication tokens updated successfully.

1. 登录系统本地 Console 控制台. 按 "Alt+F1"

2. 输入命令(屏幕无显示): unsupported

3. 进入 Tech Support Mode 模式, 输入 Root 密码

4. 编辑 /etc/inetd.conf 文件, 取消 #SSH 注释:

vi /etc/inetd.conf

5. 重启 inetd 服务:

kill -HUP `ps | grep inetd`

作者: reistlin
来源: http://www.reistlin.com/blog/28
更新时间: 2010.07
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要

[https://reistlin.googlecode.com/svn/trunk/]

1. Print Array - 打印数组

&print_array("数组")

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub print_array {
        my @array = @_;
        my $index;
        for ( $index = 0; $index < @array; $index++ ) {
                print "$array[$index] \n";
        }
}
 
# 测试
my @test = (1,2,3,4,5,6,7,8,9,0);
&print_array(@test);

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub print_array {
        my @array = @_;
        foreach my $tmp (@array) {
                print "$tmp \n";
        }
}
 
# 测试
my @test = (1,2,3,4,5,6,7,8,9,0);
&print_array(@test);

2. Print Hash - 打印哈希

&print_hash("哈希")

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub print_hash {
        my %hash = @_;
        while ( my ($key, $value) = each %hash ) {
                print "$key => $value\n";
        }
}
 
# 测试
my %test = (a=>1, b=>2, c=>3);
&print_hash(%test);

3. Last Digits - 取字符串后"n"位

&last_digits("字符串", "位数")

#!/usr/bin/perl -w 
 
use strict;
use Data::Dumper;
 
# Debug Switch
my $debug = 0;
 
sub last_digits () {
        my $string = shift;
        my $digits = shift;
        my $length = length($string);
        if ($length > $digits) {
                print substr($string, $length - $digits, $digits);
        }
}
 
# 测试
&last_digits("987654321", "3");