0

A.txtとB.txtの2つのファイルがあります。ファイルA.txtには、5桁の番号シリーズを持つ最初のファイルがあり、B.txtファイルには整数が示されています。ファイルA.txtの最初の5桁が2番目のファイルB.txtと一致しない場合は、それらの番号を別のファイルに印刷する必要があります。つまり、B.txtの番号を別のファイルに印刷する必要があります。

A.txt

81270、UEDP35
81274、UEDP35
87562、UEDP35
89537、UEDP35
90050、UEDP35
99358、UEDP35
99369、UEDP35
99560、UEDP35
99561、UEDP35

B.txt

8127047667
8756209276
9956176149
8127463873
8953713146
9935805068
9005080751
9956088702
9936916718
4

1 に答える 1

2 
use warnings;
use strict;
open AIN, "<A.TXT" or die("A.TXT");
open BIN, "<B.TXT" or die("B.TXT");
my %seen;
while (<AIN>) { 
  my $v = (split(/,/))[0]; 
  $seen{$v}++; 
}
while (<BIN>) { 
  my $v=(split)[0]; 
  print "$v\n" if not $seen{substr($v, 0, 5)}; 
}
close AIN;
close BIN;
于 2012-07-25T14:20:52.847 に答える