排序:
默认
按更新时间
按访问量

第十七章 高级PERL技巧

用eval 捕获错误 有时看上去平淡无奇的代码却能导致严重错误,以下的这些典型语句都能让程序崩溃: eval 这块代码真的诱发了常见错误,就会停止运行,但不至于使程序崩溃. 1.程序崩溃,下面的没在继续执行 [oracle@dwh1 dbi]$ cat 1.pl {$var =...

2015-03-05 11:02:35

阅读数:360

评论数:0

第16章 进程管理

system 函数: 在Perl中,启动子进程最简单的方法是用system 函数,例如要调用Unix的date命令, system "date"; 这会创建一个子进程来运行date命令 [root@jhoa 20150304]# cat a1.pl #!/usr/bi...

2015-03-04 17:58:49

阅读数:324

评论数:0

正则表达式处理文本

s/// 替换: [root@jhoa 2015]# cat b1.pl $_="He's out bowling with Barney tonight."; s/Barney/Fred/; print "\$_ is $_\n"; [root@jh...

2015-03-02 14:57:23

阅读数:339

评论数:0

第七章 正则模式

模式分组: 在数学中,圆括号() 用来分组。因此,圆括号也是元字符 模式/fred+/ 会匹配像fredddddd这样的字符窜 /(fred)+/ 会匹配像fredfredfred这种字符窜 [root@jhoa 2015]# cat a8.pl $_="abba";...

2015-02-27 14:28:42

阅读数:347

评论数:0

监控ping

监控ping use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::Ping; my @array=( "www.czcb.com" ); while (1==1){ ...

2015-02-27 08:50:47

阅读数:407

评论数:0

第六章 HASH

hash数组 的键必须是唯一的字符窜,键值必须唯一,但是对应的值可以重复 HASH数组 数组元素没有顺序 访问HASH数组元素 $hash{$key} each 函数: [root@jhoa 2015]# cat a6.pl %hash =(a=>1,b=>2,c=>3...

2015-02-27 08:33:17

阅读数:337

评论数:0

Perl 函数返回值的问题

[root@jhoa 2015]# cat ping_dns.pl use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::Ping; my @array=( "mbank.app.cz" ...

2015-02-26 12:10:59

阅读数:1032

评论数:0

第四章 子程序和返回值

[root@jhoa 2015]# cat 1.pl sub marine { $n = $n + 1; print "\$n is $n\n"; } marine; marine; marine; marine; marine; marine; [root@jhoa 20...

2015-02-26 10:25:33

阅读数:416

评论数:0

第三章

数组元素是以连续的整数来编号,从0开始,之后的每一个元素依次加1 [root@june3 perl]# cat a2.pl @rocks=qw/a b c d e f g/; print "\$#rocks is $#rocks\n"; print "$rocks...

2015-02-25 21:51:55

阅读数:297

评论数:0

第二章

##读取键盘收入 $line = ; if ( $line eq "\n"){ print "1------null\n"; } else { print "2----$line\n"; }

2015-02-25 16:15:26

阅读数:371

评论数:0

第一章

while (<>) { chomp; print join ("\t",(split /:/)[0,2,1,5]),"\n"; } [root@june3 perl]# cat a.txt root:x:0:0:root:/root:/...

2015-02-24 12:59:34

阅读数:320

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭