【问题标题】:How to get the first 4 words from a file in Perl如何从 Perl 中的文件中获取前 4 个单词
【发布时间】:2014-05-28 18:39:44
【问题描述】:

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

【问题讨论】:

  • 你已经尝试了什么?

标签: perl


【解决方案1】:

继续阅读单词,直到至少有四个单词:

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

【讨论】:

  • 我假设split 将使用指定的分隔符拆分字符串。在您的代码中,分隔符是一个空格。还是split不管是换行还是cr等?
  • 阅读文档:split。空格是特殊的,它意味着任何空白。
  • @choroba 感谢您的建议。我不知道拆分“”`适用于所有空格。它奏效了。
猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 2023-01-27
  • 2018-09-05
  • 1970-01-01
  • 1970-01-01
  • 2010-09-14
相关资源
最近更新 更多