小编nic*_*cha的帖子

我想在 Perl 中使用 switch/case 构造。我有一个包含单词序列的文件，我想根据该行包含的单词数对每一行进行不同的处理。

一个示例文件：

w1 w2 w2
w1 w3

所以脚本看起来像这样，但我如何计算每行中的单词数？

given ($number_of_word_in_line) {
   when ($_ > 2) {
       ...
   }
   when ($_ > 3) {
       ...
   }
   default {
       ...
   }
}