Perl检查文本行

Question

我有一个Perl代码，必须读取包含不同行的文本文件。

例如：

blah-blah-blah yakkity-yak gobbledy_gook

doohickey thingamabob watchamacallit

one two three

有些日子，这个文件可能有几行，有些日子只有一行，但每一行都包含固定数量的单词，每行分隔一个空格。

基本上我现在拥有的是：

my @info = split (" ", $line);

然后对@info进行标量检查，如果不完全是三，则退出。

是否有更快，可能更优雅的方式？日Thnx。

罗德里克

Answer 1

如果将数组与数字进行比较，则转换为数字是自动完成的：

die "Not enough (or too much) information\n" unless @info == 3;

Answer 2

这一个班轮打印所有字数不等于3的行

perl -lane 'print if $#F!=2' FILE_NAME