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"
";

좋은 웹페이지 즐겨찾기