我有一堆 18MB 的文本文件,我需要在 Perl 中读取这些文件,提取特定信息,并将其写入每个文件的新文件中。
我怎样才能做到这一点?
例如,以下代码仅适用于一个文件,并为代码中提到的文件创建一个新文件,但我如何处理多个文件,因为我有很多文件?
以下是我的代码,仅适用于单个文件。我想对很多文件做同样的事情。我该怎么做?
use Regexp::Common qw/net/;
use Regexp::Common qw/net/;
system("clear");
my $file2 = 'TR1';
open my $in, '<', $file2 or die $!;
open my $out, '>', 'Number_of_Hops_TR1_007' or die $!;
my $var = 0;
my $i = 0;
my $traceroute;
my $line;
while (my $line = <$in>) {
if ($line =~ /^traceroute to (\S+)/) {
$traceroute = $1;
$var++;
#print "$traceroute\n";
}
my ($ip) = $line =~ /(?: \d+ \s \s+) ($RE{net}{IPv4}) /msx;
if ($traceroute eq $ip) {
print $out $ip if defined, "\n";
if ($ip ne undef) {
{ $i++; }
}
}
else {
}
}
print $out "Number of traceroutes - $var\n";
print $out "Number of traceroutes reached destination - $i\n";
my $subs = $var - $i;
print $out
"Number of traceroutes that did not reaach destination ($subs)\n";
my $perc = ($i / $var) * 100;
print $out "Percentage of sucessful traceroutes ($perc%)\n";