CU perl精华区一些常用技巧总结

转载http://www.linuxtone.org/thread-1600-1-1.html

1.查询系统已经安装的perl模块
find `perl -e 'print "@INC"'` -name '*.pm' -print

2.提取文件中连续的一段区域，且末行不显示
  方法一：使用shell
  sed -n '/start/,/end/p' file | sed -n '$!p'
  方法二：使用perl
  if ( (/$start/ .. /$end/) and !/$end/ )
  {
   }；

示例：文件file.txt内容如下
+ CNC
menu = 网通
title = 网通
++ shanghai
menu = 上海
title = shanghai
host = 210.51.63.118
++ jiangsu
menu = 江苏
title = jiangsu
host = 122.193.15.2
要求：提取内容如下
++ shanghai
menu = 上海
title = shanghai
host = 210.51.63.118

shell做法：
[root@localhost ~]# sed -n '/\+\+ shanghai/,/\+\+ jiangsu/p' file.txt | sed -n '$!p'
++ shanghai
menu = 上海
title = shanghai
host = 210.51.63.118
perl的做法：
[root@localhost ~]# cat 1.pl
#!/usr/bin/perl
use strict;
open(FH,"file.txt");
my $start= qr/\+\+ shanghai/;
my $end= qr/\+\+ jiangsu/;
while(<FH>){
if ( /$start/../$end/ and !/$end/ )
{
print $_;
}
}
close(FH);
[root@localhost ~]# ./1.pl
++ shanghai
menu = 上海
title = shanghai
host = 210.51.63.118

3. hash参数传递
#!/usr/bin/perl -w
use strict;
sub dis{
   my(%hash)=@_;
   my $c=$hash{a};
   my $d=$hash{b};
   return $c*$d;
}
print dis(a=>6,b=>5);
输出结果是30

4.perl 特殊变量翻译中文版，这个不错
http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest

5.perl中的  " -> " 符号作用
-> 有两种用法，都和解引用有关。
第一种用法，就是解引用。
根据 -> 后面跟的符号的不同，解不同类型的引用，
->[] 表示解数组引用，->{} 表示解散列引用，->() 表示解子程序引用。
例子：
$arr_ref = \@array;
$arr_ref->[0] 访问数组 @array 的第一个元素。
$hash_ref = \%hash;
$hash_ref->{foo} 访问 %hash 的 foo 分量
$sub_ref = \&test;
$sub_ref->(1, 2, 3) 使用参数列表 (1,2,3) 来调用 &test 这个子程序。

第二种用法，就是调用类或者对象的方法。
格式：
$obj->method();
或者
ClassName->method();
例如：
$pop3->login( $username, $password );
my $ftp = Net::FTP->new("some.host.name", Debug => 0);
这两种用法略有不同，
假设 -> 的左操作数（就是左边那个值，如 $pop3 和 Net::FTP）是 $left，右操作数（就是右边那个值，如 login 和 new）是 $right，那么 -> 的运算规则就是：

if ( ref $left 有效 ){    # 也就是说 $left 是个引用，而不是个裸字
    $ClassName = ref $left;  # 取引用的类型，当作类名称
}
else{
    $ClassName = $left;       # 直接把裸字当作类名称
}
然后调用：
&{$ClassName::$right}( $left, 原参数列表 )
也就是说把类名称和右操作数拼在一起，当作子程序名称（注），并把左操作数当作第一个参数。

注：Perl 解释器要做的工作其实要比这复杂，它还要考虑到继承的问题。

6.perl 夹带（小手册），很不错
http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest

7.杀进程的一些参考
(1):
$username =`whoami`;
chomp($username);
@aa = `ps -ef|grep $username|grep -v grep |grep -v ps|cut -c8-14`;
for(@aa){
  chomp;
  next unless /^\d+$/;
      kill 9
     }
(2)
fuser -n tcp 80 查看80端口运行的所有进程
fuser -k -n tcp 80 杀死80端口的所有进程
lsof -i :80|grep -v PID|awk '{print "kill -9", $2}'|sh 同上
lsof -i :80|grep -v PID|awk '{print $2}'|xargs kill -9 同上
ps -fe |grep httpd|grep -v grep|awk '{print $2}'|xargs kill -9 杀死httpd所有进程
ps -fe |grep httpd|grep -v grep|awk '{print "kill -9 " $2}'|sh  杀死httpd所有进程
ps aux|awk '{if($8=="Z") print $2 }'|xargs kill -9 查找Z表示僵死状态。

8.Perl 对象 中文翻译
http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest

9.扫描开放的tcp端口脚本
#!/usr/bin/perl

$|=1;
$tghost = shift || $ENV{"HOSTNAME"};
$maxprt = shift || 1024;

$AF_INET=2;
$SOCK_STREAM=1;
$sockaddr='S n a4 x8';

($name,$aliases,$proto)=getprotobyname('tcp');
foreach $port (1 .. $maxprt)
{
        ($name,$aliases,$type,$len,$thataddr)=gethostbyname($tghost);
        $this=pack($sockaddr,$AF_INET,0,$thisaddr);
        $that=pack($sockaddr,$AF_INET,$port,$thataddr);
        
        die "unknown host $tghost\n" if($thataddr eq "");

        socket(S,$AF_INET,$SOCK_STREAM,$proto) or die $!;
        bind(S,$this) or die $!;        

        if(connect(S,$that))
        {
                ($srv_name, $srv_aliases, undef, undef)=getservbyport($port,'tcp');

                printf("%5d %s\n", $port, $srv_name || "unknown serv");

                close(S);
        }

}

exit 0;

10. perl 脚本语法检查
perl -c script.pl

11. 查看shell脚本运行过程
sh -x  script.sh