Perl 如何扫描多个文本文件以获取信息，并将其复制到选项卡分隔的文件中
超级N00在这里试图得到一些代码的工作。我基本上有一个项目，我正在解析200个中等大小的文本文件，需要将结果打印到另一个以制表符分隔的文件中。我正试图提取电话、地址和邮政编码，并将它们连同它们来自的文件名一起打印在一行上 我已经成功地搜索到了一个电话号码，但我不知道如何在不破坏我所做工作的情况下搜索其他两个字符串 我还遇到了一个问题，文件名打印时带有其中的电话号码，但也带有下一个文本文件中的电话号码 这是我的密码：Perl 如何扫描多个文本文件以获取信息，并将其复制到选项卡分隔的文件中,perl,tsv,Perl,Tsv,超级N00在这里试图得到一些代码的工作。我基本上有一个项目，我正在解析200个中等大小的文本文件，需要将结果打印到另一个以制表符分隔的文件中。我正试图提取电话、地址和邮政编码，并将它们连同它们来自的文件名一起打印在一行上 我已经成功地搜索到了一个电话号码，但我不知道如何在不破坏我所做工作的情况下搜索其他两个字符串 我还遇到了一个问题，文件名打印时带有其中的电话号码，但也带有下一个文本文件中的电话号码 这是我的密码： use strict; use warnings; my $calls_dir
use strict;
use warnings;
my $calls_dir = "Ask/";
opendir( my $search_dir, $calls_dir ) or die "$!\n";
my @files = grep /\.html$/i, readdir $search_dir;
closedir $search_dir;
print "Got ", scalar @files, " files\n";
my %seen = ();
foreach my $file (@files) {
my $current_file = $calls_dir . $file;
open my $FILE, '<', $current_file or die "$file: $!\n";
while (<$FILE>) {
#if (/phone/i) {
chomp;
#if (/phone\s*(.*)\r?$/i) {
#if (/^phone\s*:\s*(.*)\r?$/i) {
if (/Phone:\s*(.*)\r?$/i) {
$seen{$1} = 1;
foreach my $addr ( sort keys %seen ) {
print "\n";
print "\n";
print $file;
print "$addr\n";
print "\n";
print "\n";
}
}
}
close $FILE;
}
否则-根据您的输入文件格式，您可能需要进行多个模式匹配-地址、电话号码等各一个，然后将其插入到散列中，并在循环外打印。您的输入文件格式是什么？请向我们提供输入文件示例，以使其清晰可见。请显示您的输入文件示例。另外，如果可能的话，请直接从您的数据源文件中复制并粘贴它，而不是给出这样的答案。我意识到，个人详细信息可能很敏感，但如果您更改，例如，不同字母的字母，不同数字的数字，则可以，只要我们可以看到文件的基本布局。这很好如果没有它，很难有帮助。在上面添加了示例文件。谢谢。好的，我按照您的建议使用打印功能，并在循环中声明$seen。谢谢。
out_Agilent_Technologies_ask.html+1 408-555-8886. Fax: +1 408-555-8474.
out_Illumina_ask.html+1 408-555-8886. Fax: +1 408-555-8474.
out_Illumina_ask.html408.555.5150
for my $filename ( glob("$calls_dir/*.html") ) {
open( my $filehandle, "<", $filename ) or die $!;
while (<$filehandle>) {
# do stuff
}
}