펄 스 크 립 트 기록 2

add_left2right.pl
#!/usr/bin/perl

open my $left,"./aaa");

my @right_list = ();
while () {
        ($a,$b,$c,$d) = split(/,/,$_);
        push @right_list,"$c,$d 
"; } while () { ($aa,$bb,$cc,$dd) = split(/,/,$_); chomp($aa,$bb,$cc,$dd); foreach my $r (@right_list) { chomp($r); ($e,$f) = split(/,/,$r); if($e == $cc && $f == $dd) { print OUT "$aa,$bb,$cc,$dd
"; } } }

좋은 웹페이지 즐겨찾기