全部博文(362)
发布时间:2013-05-23 10:39:44
#下面有4个例子,但通常最后一个更常用。my %owner1 = ( "name" => "Santa Claus", "DOB" => "1882-12-25",);my $owner1Ref = %owner1;my %owner2 = ( &.........【阅读全文】
发布时间:2013-04-18 17:18:53
#!/usr/bin/perluse 5.012;use strict;use warnings;use autodie;use Net::OpenSSH;my %param = (user => 'fivetrees',passphrase => '123456',key_path => '/home/fivetr.........【阅读全文】
发布时间:2013-03-28 10:36:57
点击(此处)折叠或打开#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-28#desc: perl conn mysqluse 5.012;use strict;use warnings;.........【阅读全文】
发布时间:2013-03-21 17:39:25
点击(此处)折叠或打开#!/usr/bin/perluse 5.012;use warnings;use autodie;use strict;use Net::Ping::External qw(ping);my $alive;for my $h (1..40) {.........【阅读全文】