关于 Perl 中输入文件分隔符的验证

Question

我在 Perl 中有 csv 输入文件，它是制表符分隔的。 我想添加一个检查，如果它找到除选项卡以外的任何内容作为字段分隔符，那么它应该通过错误消息。我是 perl 新手，不知道如何检查。

我的输入文件示例，我的文件只有两个字段：

10001027^I1000102713921-1274^M$
10010121^I1001012113921-1234^M$
10000104^I10010126139211-9999^M$
10010119^I10010126139211-9999^M$

Answer 1

验证文件的一种简单方法是检查每一行是否有一个选项卡。

while (my $line = <$file>)
{
    if ($line !~ /^[^\t]+\t[^\t]+$/)
    { 
        #Handle malformed line.
    }
}

如果您打算将行拆分为元素，则可以使用拆分输出进行错误检查：

while (my $line = <$file>)
{
    my @fields = split "\t", $line;

    if (@fields != 2)
    {
       #Line did not split into two elements, indicating improperly formed line.
    } 
}