Linux Change Password
作者:reistlin 发布时间:July 29, 2010 分类:自由点击
[root@secure ~]# echo "reistlin.com" | passwd --stdin root Changing password for user root. passwd: all authentication tokens updated successfully.
[... Localhost ...]
作者:reistlin 发布时间:July 29, 2010 分类:自由点击
[root@secure ~]# echo "reistlin.com" | passwd --stdin root Changing password for user root. passwd: all authentication tokens updated successfully.
作者:reistlin 发布时间:July 21, 2010 分类:自由点击
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 发布时间:July 2, 2010 分类:原创文章
作者: reistlin
来源: http://www.reistlin.com/blog/28
更新时间: 2010.07
版权声明: 原创文章.转载请保留作者信息和原文完整.谢绝任何方式的摘要
[https://reistlin.googlecode.com/svn/trunk/]
&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);
&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);
&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");