主要是利用查找/proc目录下的相关文件进行查找.

#!/usr/bin/perl 
use strict;
use warnings;
#usage: process_grep.pl  ProcessName
exit( main(@ARGV) );
 
sub main {
  my $Phash;
  my $ProcessName = shift;
  my $PROC_DIR  = "/proc";
  chdir $PROC_DIR;
  my @pids = glob "[0-9]*";
  for my $pid (@pids) {
    open( FH, "$pid/cmdline" ) or die "Can't $pid file $!";
    $Phash->{$pid} = $_ while <FH>;
  }
  delete $Phash->{"$$"};
  for my $pid ( keys %$Phash ) {
    print $pid, "n" if $Phash->{$pid} =~ /$ProcessName/;
  }
  return 0;
}

perl命令行参数内建数组@ARGV浅析
当perl脚本运行时，从命令行上传递给它的参数存储在内建数组@ARGV中，@ARGV是PERL默认用来接收参数的数组，可以有多个参数，$ARGV[0]是表示接收到的第一

Perl使用Tesseract-OCR实现验证码识别教程
一、Tesseract-OCR是什么AnOCREnginethatwasdevelopedatHPLabsbetween1985and1995…andnowatGoogle基于Leptonica(http://leptonica.com/)图形处理库开的开源图形识别引擎。支持Linux、Wi

Perl批量下载Gmail附件的代码
最近在写一个从gmail批量下载附件的程序，用到了Mail::POP3Client和MIME::Parser2个模块实现代码：useMail::POP3Client;useMIME::Parser;my$U='User.Name＠gmail.com';my$P='uSeR.pAs