摘要：
[root@wx03 5]# cat test1.plsub fun1 { $var=100;# return $var;};$var=10;print "first..........\n";print "\$var is $var\n";print "second............. 阅读全文
摘要：
创建和访问一个两维数组:# 给一个数组赋予一个数组引用列表。[root@wx03 4]# cat t1.pl @Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print ... 阅读全文
摘要：
创建和访问一个两维数组:# 给一个数组赋予一个数组引用列表。[root@wx03 4]# cat t1.pl @Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print ... 阅读全文
摘要：
mysql> select md5(concat((select md5("admin123") from test limit 1),'`xx')) from test;+-------------------------------------------------------------... 阅读全文
摘要：
[root@wx03 test]# cat Horse.pm package Horse;##Horse继承了Critter类,Critter这里是基类或者父类use base qw(Critter);sub new {my $invocant = shift;my $class = ref($... 阅读全文
摘要：
[root@wx03 test]# cat Horse.pm package Horse;##Horse继承了Critter类,Critter这里是基类或者父类use base qw(Critter);sub new {my $invocant = shift;my $class = ref($... 阅读全文
摘要：
jrhmpt01:/root/lwp/0526# cat a2.pl use LWP::UserAgent;use DBI; use POSIX;use Data::Dumper;use HTML::TreeBuilder;my $ua = LWP::UserAgent->new;$ua->... 阅读全文
摘要：
jrhmpt01:/root/lwp/0526# cat a2.pl use LWP::UserAgent;use DBI; use POSIX;use Data::Dumper;use HTML::TreeBuilder;my $ua = LWP::UserAgent->new;$ua->... 阅读全文
摘要：
jrhmpt01:/root/lwp/0526# cat 0526.txt 天下金专区 投资期限自选可进行债权转让100元起投 每月还息，到期还本产品介绍>更多项目> 项目名称 ... 阅读全文
摘要：
jrhmpt01:/root/lwp/0526# cat 0526.txt 天下金专区 投资期限自选可进行债权转让100元起投 每月还息，到期还本产品介绍>更多项目> 项目名称 ... 阅读全文