用Perl抓取以特定单词开头的行

这可能很琐碎，但我是Perl新手，需要这方面的帮助。我有一个巨大的文本文件包含

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

我只想将以“TOTAL”开头的行复制到另一个文件中。

---

如何在草莓Perl中执行此操作？

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

findstr /B "TOTAL" your_file_name > matches.txt

/B修改器将匹配以“总计”开头的所有行。“>”将把所有匹配的行保存到“matches.txt”文件中