perl - 使用 Strawberry Perl 抓取以特定单词开头的行

Question

这可能是微不足道的，但我是 Perl 的新手，需要帮助。我有一个巨大的文本文件，其中包含

        .
        .
    TOTAL REVENUE 416917.000000 
        .
        .
        .
    TOTAL REVENUE 415870.000000
        .
        .
        .

我只是想将以 'TOTAL' 开头的行复制到另一个文件中。我怎样才能在草莓 Perl 中做到这一点？

Answer 1

假设你在 Windows 上？您是否尝试过 DOS 提示符下的“findstr”命令？像：

findstr /B "TOTAL" your_file_name > matches.txt

/B 修饰符将匹配所有以“TOTAL”开头的行。'>' 会将所有匹配的行保存到 'matches.txt' 文件中。