如何在Perl中从文件中获取前4个单词

我试图从文件中获取前4个单词。这些单词可以用空格、换行符、回车符或制表符分隔。所以它们可以在同一条线上，也可以在四条不同的线上。我应该使用哪种方法？谢谢。

继续阅读单词，直到你有至少四个单词：

perl -e 'push @words, split " ", <> while (@words < 4);
         print "@words[0..3]\n";
        '

perl-e'push@words，split''，而（@words<4）；
打印“@words[0..3]\n”；
'

继续阅读单词，直到你至少有四个单词：

perl -e 'push @words, split " ", <> while (@words < 4);
         print "@words[0..3]\n";
        '

perl-e'push@words，split''，而（@words<4）；
打印“@words[0..3]\n”；
'

您已经尝试了什么？您已经尝试了什么？我假设

split

将使用指定的分隔符拆分字符串。在代码中，分隔符是一个空格。或者

split

不在乎它是否是换行符、cr等？阅读文档：。空格是特殊的，它意味着任何空白。@choroba谢谢你的建议。我不知道分割“`适用于所有空格。我假设

split

将使用指定的分隔符拆分字符串。在代码中，分隔符是一个空格。或者

split

不在乎它是否是换行符、cr等？阅读文档：。空格是特殊的，它意味着任何空白。@choroba谢谢你的建议。我不知道分割“`适用于所有空格。成功了。