コンマで区切られたパイプから？

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

いくつかあります。まず、シバン（#!行）を修正して、末尾に/が含まれないようにします。あなたが分割する際、パイプ文字をエスケープしたいと思うので、第二に、perlは、分割のための正規表現を使用しています

：

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

最後に、あなたは文字列に配列の要素を結合するためにjoinを使用することができます。これは、正規表現ではなく文字列リテラルを使用します。

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

Answer 2

分割を使用してCSVファイルを解析しないでください。適切なパーサを使用してください。

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 '|' ','を挿入し、区切りのカンマ区切りにパイプを変更する必要があります。