Что касается проверки разделителя входных файлов в Perl

Question

У меня есть входной файл csv в Perl, который разделен на вкладку. Я хотел бы добавить чек, если он найдет что-либо иное, чем tab, как разделитель полей, а затем он должен получить сообщение об ошибке. Я новичок в 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. 
    } 
}