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