全部博文（244）
发布时间：2012-08-19 11:32:23
#!/usr/bin/perluse strict;use Time::Local;my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);$time = "2007-09-27 10:04:08";my @time = reverse(split /-|:|\s|\//,$time);foreach(@time).........【阅读全文】
发布时间：2012-08-12 14:24:37
数字和字符串的比较运算符相等 == eq不等 ！= ne小于 < Lt大于 > gt小于或等于 <= le大于或等于 >= ge #!/usr/bin/perl<>;print "对小数取余截取整数：".........【阅读全文】
发布时间：2012-08-12 12:18:30
q(string in q); 相当于'string in q'qq(string in qq);相当于“string in qq"()可换为,{},[]等匹配对字符qq{string in qq};字符串中也可以出现qq[string [in] qq];也可以换为任意//，；；，等相同字符对 qq/string in qq/Administrator@2012-0521-2127 ~/wesoft/perl$ cat qq.pl.........【阅读全文】
发布时间：2012-08-12 11:05:12
数组变量用@加变量名普通变量用 $加变量名undef没赋值的变量，用于条件判断，代替不关心的值defined已赋值的变量，用于条件判断。数字初值为0，字符串初值为空串如果有undef变量又不知道在哪，可加-w参数进行提示#！/usr/bin/perl -w变量替换用大括号，shell用小括号$ cat.........【阅读全文】
发布时间：2012-08-07 11:59:47
函数dumper可以捕获异常，类似javal中的try{}catch{} 语句 和tcl的catch{} error{}语句，perl中也可以捕获程序执行过程中的异常，防止因为局部异常导致程序全盘退出。sues11x64v2:/wesoft # cat test.perl#!/usr//bin/perlmy $a=0;my $b=1;my $c=1;eval {$c =$b/$a;};print dumper($c);.........【阅读全文】
