От границы, разделенной запятыми?

Question

У меня есть рабочий скрипт, который анализирует файл CSV, счищает данные и вносит некоторые изменения, прежде чем снова объединить их. Исходный файл, с которым я работал, был разделен запятой. Но я только что получил все фактические файлы, с которыми это будет работать, и все они разделены по каналам. Мне нужно сделать то же самое, а затем вернуть их вместе в виде файлов с разделителями-запятыми.

Итак, чтобы начать, у меня есть -

#!/usr/bin/perl/ 

use strict; 
use warnings; 
use Data::Dumper; 
use Time::Piece; 

my $filename = 'records.csv'; 

open my $FH, $filename 
    or die "Could not read from $filename <$!>, program halting."; 

# Read the header line. 
chomp(my $line = <$FH>); 
my @fields = split(/|/, $line); 
print Dumper(@fields), $/; 

my @data; 
# Read the lines one by one. 
while($line = <$FH>) { 

    chomp($line); 

... разобрать через мои данные, а затем в настоящее время, я заканчиваю с этим, чтобы поместить данные обратно в файл -

# put the records back 
    push @data, \@fields; 

Но как мне вернуть данные в виде запятой?

Answer 1

Несколько вещей. Во-первых, исправьте свой shebang (линия #!), поэтому он не содержит трейлинг-код /.

Во-вторых, Perl использует регулярные выражения для расщепления, так что вы хотите, чтобы избежать персонажа трубы при разбиении:

my @fields = split(/\Q|\E/, $line); 

Наконец, вы можете использовать join соединить элементы массива в строку. Это использует строковый литерал, а не регулярное выражение.

my $output_line = join(',', @fields); 

Answer 2

Не разбирайте CSV-файл, используя split. Используйте правильный парсер.

use strict; 
use warnings 'all'; 
use autodie; 
use Text::CSV_XS; 

my $csv_in = Text::CSV_XS->new({ binary => 1, sep_char => "|" }); 
my $csv_out = Text::CSV_XS->new({ binary => 1, sep_char => ",", eol => $/ }); 
while (my $row = $csv_in->getline(*ARGV)) { 
    $csv_out->print(*STDOUT, $row); 
} 

Если это правда, вам просто нужно изменить трубу разделителей запятой разделителей, вставьте tr '|' ',' в вашу трубу.