【总结】Perl技巧

 1. Perl超时机制 
eval 
{ 
 my $tmpCmd="ping 192.168.0.1";
 local $SIG{ALRM} = sub { alarm 0; die "TIMEOUT"; };
 alarm(10); 
 my $startCmdResult = qx($tmpCmd);
 alarm(0);  
};  
if ($@ =~ /TIMEOUT/) 
{
 print "ping timeout";
}

 

2. 忽略SIGCHLD信号,避免产生僵尸进程
$SIG{CHLD} = 'IGNORE';

3.等待

sub show_flower
{
 local $| = 1;
 my @progress_symbol = ('-','\\','|','/');
 my $n = 0;
 my $count=8;
 while($count--)
 {
  #print "\r$progress_symbol[$n]";
  $n = ($n>=3)? 0:$n+1;
  select(undef, undef, undef, 0.1);
 }
 #print "\r";
 local $| = 0;
}


4. Perl多行注释
单行注释:用#号
多行注释:
最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:
=pod
codes to comment
=cut

5. 类似于unix shell中的“此处文档”语法

#!/usr/bin/perl -w
$P = 3.1415926;
print <<EOF;
    the price is $P.
     Hello World.
EOF

6. Perl常量的用法

use constant PI => ( 4* atan2(1,1) );
PI=6; # Cannot modify PI; produces an error.  
use constant DEBUG =>  1; 
print "Pi equals ", PI, "...\n" if DEBUG;


 

阅读更多
文章标签: perl
个人分类: Perl
想对作者说点什么? 我来说一句

几个perl文本处理实例

2008年07月21日 763B 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭