从Strawberry Perl的特定单词开始抓取线条

Question

这可能是微不足道的，但我是Perl的新手，需要帮助。我有一个包含

的巨大文本文件

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

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

Answer 1

假设你在Windows上？你有没有尝试过DOS提示符下的'findstr'命令？像：

findstr /B "TOTAL" your_file_name > matches.txt

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