摘要：
use base qw(Exporter);@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json);[root@wx03 5]# cat Fred.pm package Fred;use ... 阅读全文
摘要：
29.2.32 eval• eval BLOCK• eval EXPR• evaleval 关键字在Perl 里起两种不同的但相关的作用。这些目的是用两种形式的语法来表现的， eval BLOCK 和eval EXPR。第一种形式捕获那些致命的运行时例外（错误），类似于C++ 或Java 里的“... 阅读全文
摘要：
29.2.32 eval• eval BLOCK• eval EXPR• evaleval 关键字在Perl 里起两种不同的但相关的作用。这些目的是用两种形式的语法来表现的， eval BLOCK 和eval EXPR。第一种形式捕获那些致命的运行时例外（错误），类似于C++ 或Java 里的“... 阅读全文
摘要：
jrhmpt01:/root/lwp/0526# cat a1.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 a1.pl use LWP::UserAgent;use DBI; use POSIX;use Data::Dumper;use HTML::TreeBuilder;my $ua = LWP::UserAgent->new;$ua->... 阅读全文
摘要：
[tomcat@wx02 test]$ pwd/home/tomcat/test[tomcat@wx02 test]$ cat Pkg1.pm package Pkg1;sub fun1 {print "aaaaaa\n";};1;[tomcat@wx02 test]$ cat Pkg2.pm ... 阅读全文
摘要：
[tomcat@wx02 test]$ pwd/home/tomcat/test[tomcat@wx02 test]$ cat Pkg1.pm package Pkg1;sub fun1 {print "aaaaaa\n";};1;[tomcat@wx02 test]$ cat Pkg2.pm ... 阅读全文
摘要：
mysql> select user,host,password_expired from mysql.user;+-----------------+----------------+------------------+| user | host ... 阅读全文
摘要：
mysql> select user,host,password_expired from mysql.user;+-----------------+----------------+------------------+| user | host ... 阅读全文
摘要：
[root@wx03 5]# cat test1.plsub fun1 { $var=100;# return $var;};$var=10;print "first..........\n";print "\$var is $var\n";print "second............. 阅读全文