Perl 检查文本行答案

【问题标题】：Perl Check Text LinePerl 检查文本行
【发布时间】：2012-02-05 09:01:26
【问题描述】：

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

例如：

blah-blah-blah yakkity-yak gobbledy_gook

doohickey thingamabob watchamacallit

one two three

有些时候这个文件可能有几行，有些时候只有一行，但每行将包含固定数量的单词，每个单词之间用空格分隔。

基本上我现在拥有的是：

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

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

有没有更快更优雅的方法？谢谢。

罗德里克

【问题讨论】：

标签： perl text

【解决方案1】：

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

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

【讨论】：

【解决方案2】：

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

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

【讨论】：