用例是将所有行转储到日志文件中,直到找到一些为止
表示服务器已重新启动的标记.

这是一种愚蠢的shell方式：

tail_file_to_pattern() {
    pattern=$1
    file=$2

    tail -n$((1 + $(wc -l $file | cut -d' ' -f1) - $(grep -E -n "$pattern" $file | tail -n 1 | cut -d ':' -f1))) $file
}

在stdin上获取文件的稍微更可靠的Perl方式：

perl -we '
    push @lines => $_ while <STDIN>;
    my $pattern = $ARGV[0];
    END {
        my $last_match = 0;
        for (my $i = @lines; $i--;) {
            $last_match = $i and last if $lines[$i] =~ /$pattern/;
        }
        print @lines[$last_match..$#lines];
    }
'

当然,你可以更有效地打开文件,
寻求最终并寻找回来,直到找到匹配的行.

从第一次出现时很容易打印所有内容,例如：

sed -n '/PATTERN/,$p'

但我还没有提出一种方法来打印最后的一切
次数.

sed -e "H;/${pattern}/h" -e '$g;$!d' $file

请注意,与示例一样,只有在文件包含模式时才能正常工作.否则,它输出整个文件.

以下是括号中的sed命令的详细信息：

> [H]将每一行附加到sed的“保留空间”,但不将其回显到stdout [d].
>当我们遇到模式时,[h]扔掉保持空间并从匹配线重新开始.
>当我们到达文件的末尾时,将保留空间复制到模式空间[g],以便它将回显到stdout.

另请注意,对于非常大的文件,它可能会变慢,因为任何单通道解决方案都需要在内存中保留一堆行.

水珠：

my $parse_corpus; #(for all options)
##glob (only if all files in same directory as script?):
my @files = glob("parsed"."*.txt");
foreach my $file (@files) {
    open($parse_corpus,'<',"$file") or die $!;
     ... all my code...
}

Readdir with while和条件：

##readdir:
my $dir = '.';
opendir(DIR,$dir) or die $!;

while (my $file = readdir(DIR)) {
    next unless (-f "$dir/$file"); ##Ensure it's a file
    next unless ($file =~ m/^parsed.*\.txt/); ##Ensure it's a parsed file
    open($parse_corpus,"$file") or die "Couldn't open directory $!";
     ... all my code...
}

Readdir with foreach和grep：

##readdir+grep:
my $dir = '.';
    opendir(DIR,$dir) or die $!;    
foreach my $file (grep {/^parsed.*\.txt/} readdir (DIR)) {
    next unless (-f "$dir/$file"); ##Ensure it's a file
    open($parse_corpus,"$file") or die "Couldn't open directory $!";
    ... all my code...
}

文件::查找：

##File::Find
my $dir = "."; ##current directory: Could be (include quotes): '/Users/jon/Desktop/...'
my @files;
find(\&open_file,$dir); ##built in function
sub open_file {
    push @files,$File::Find::name if(/^parsed.*\.txt/);
}
foreach my $file (@files) {
    open($parse_corpus,"$file") or die $!;
     ...all my code...
}

还有另外一种方法吗？将我的整个脚本包含在循环中是否合适？可以,我不使用closedir吗？我把它传递给其他人,我不确定他们的文件将在哪里(可能无法使用glob)

非常感谢,希望这是一个正确的问题.

纯粹的实用性,glob方法运作得相当好.在诉诸任何涉及的事情之前,我会问是否有问题.

如果你能够使用其他模块,另一种方法是让别人担心肮脏的细节：

use File::Util qw();
my $fu = File::Util->new;
my @files = $fu->list_dir($dir,qw(--with-paths --files-only));

请注意,File :: Find执行递归搜索,下降到所有子目录.很多时候你不想要或不需要它.

我还要补充一点,我不喜欢你的两个readdir例子,因为它们混合了不同的功能：(1)获取文件名,(2)处理单个文件.我会将这些工作分开.

my $dir = '.';
opendir(my $dh,$dir) or die $!; # Use a lexical directory handle.
my @files = 
    grep { -f }
    map  { "$dir/$_" }
    grep { /^parsed.*\.txt$/ }
    readdir($dh);

for my $file (@files){
    ...
}