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

perl   my.pl $ARGV[0]  $ARGV[1]

看一个具体例子：
比如文件1的内容：

1320238

1320239

1320239

1320238

1320238

1320238

1320235

1320237

文件2的内容：

102 5709072117805887 4001 1301854

102 5709072117807510 4001 1320292

102 5709072117838653 4001 1301857

102 5709072117814280 4001 1305832

102 5709072117839397 4001 1310673

102 5709072117839335 4001 1311270

我想先把文件1的内容读取出来，然后读取文件二的内容，在读取文件2的内容的时候，文件2的最后一列需要包含在上文件1内。

[root@localhost ~]$ perl  ex.pl 1.txt 2.txt

[root@localhost ~]$ cat ex.pl

#!/usr/bin/perl

use strict;

open(ONE,"$ARGV[0]") or die $!;

open(TWO,"$ARGV[1]") or die $!;
my %hash;

while (<TWO>) {

    chomp;

    my @line=split;

    my $column4=$line[3];

    $hash{$column4}=$_;

}
while (<ONE>) {

     chomp;

     print $hash{$_} if defined $hash{$_};

    

}
print"n";

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

perl脚本实现限制ssh最大登录次数（支持白名单）
sshlimitperl脚本主要作用：1.限制一个ssh用户的最大登录数为n，n可自定义。2.支持白名单，如root、test登录不受限制。如果一个ssh用户的最大登录数超过