perl 명령 행 매개 변수 내 배열@ARGV 에 대한 분석

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 의 내용 을 읽 을 때 파일 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"
";