在Perl中分割4个空格

Question

我有一个文件，其中包含以下格式的行：

field1    field2    field3

每个字段由4个空格分隔。

我正在尝试使用Perl从上面的列表中提取field2。

所以，这就是我所做的

#! /usr/bin/perl

($input, $output) = @ARGV;

chomp $output;

open(INPUT,"<",$input);
open(OUTPUT,">>",$output);

while(<INPUT>)
{
chomp $_;
($f1,$f2,$f3)= split("\t",$_,3); // *** This line was modified later.
print OUTPUT $f2."\n";
}

close INPUT;
close OUTPUT;

这给了我一个空白文件。

我试图将上面带有星号的行修改为：

($f1,$f2,$f3)= split("\t",$_);
($f1,$f2,$f3)= split("    ",$_);
($f1,$f2,$f3)= split("\s\s\s\s",$_);

在所有这些情况下，我再次得到一个空文件。

Answer 1

您的公开声明可能失败了。 如果不检查open是否失败，则永远不要使用open，例如

open my $fh, '<', $file or die $!;

按照建议，我使用了三个带有词法文件句柄的参数。 有关更多信息，请参见perldoc -f open 。

如果使用use warnings ，则会显示此类错误，并给出错误：

readline() on closed filehandle INPUT at ...

但是，如果您不使用警告，则错误将是无声的和致命的。 不用说，您当然应该始终

use warnings;
use strict;

Answer 2

如果您要求的字段之间用四个空格隔开，则您的代码有效。

$ echo 'field1    field2    field3' | perl -nlE'say for split "    ";'
field1
field2
field3

使用od -c验证文件中实际上包含四个空格。

---

顺便说一句，您在使用split "..."而不是split /.../来自欺欺人。 split的第一个arg是一个正则表达式。 如果您使它看起来像一个，那就更清楚了。