Я хочу вернуть всю строку, когда найду строку поиска в строке.
Я получаю большую часть того, что мне нужно, когда печатаю, но мне не хватает около 10 символов. Я получаю начало строки и строку и около 10 символов после этого, но не более того.
Вот мой код (заранее спасибо):
use strict;
use warnings;
my $calls_dir = "Ask/";
opendir(my $search_dir, $calls_dir) or die "$!\n";
my @files = grep /\.txt$/i, readdir $search_dir;
closedir $search_dir;
print "Got ", scalar @files, " files\n";
#my %seen = ();
foreach my $file (@files) {
my %seen = ();
my $current_file = $calls_dir . $file;
open my $FILE, '<', $current_file or die "$file: $!\n";
while (<$FILE>) {
chomp;
if (/^*(.*)Contact\s*(.*)\r?$/i) {
$seen{$1} = 1;
foreach my $addr ( sort keys %seen ) {
print "\n";
print $file;
print "\n";
print "[$addr]\n";
print "\n";
print "\n";
}
}
}
close $FILE;
}
