當perl腳本運行時，從命令行上傳遞給它的參數(shù)存儲在內(nèi)建數(shù)組@ARGV中，@ARGV是PERL默認用來接收參數(shù)的數(shù)組，可以有多個參數(shù)，$ARGV[0]是表示接收到的第一個參數(shù)，$ARGV[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";
