1

うーん.. 私はまた立ち往生しています。同様の問題に関するかなりの数のトピックを読みましたが、私の解決策は見つかりませんでした。私は持っています; 区切られた csv ファイルと 8 列目 ($elements[7]) の文字列は次のとおりです: "aaaa;bb;cccc;ddddd;eeee;fffff;gg;"。私がしようとしているのは、に基づいて文字列を分割することです。出力を変数にキャプチャします。次に、それらの変数をメインの csv ファイルの独自の列で使用します。

したがって、ファイルは次のようになります。

3d;2f;7j;8k;4s;2b;5g;"aaaa;bb;cccc;ddddd;eeee;fffff;gg;";4g;1a;5g;2g;7h;3d;2f;7j 3c;9k; 5l;4g;1a;5g;3d;"aaaa;bb;cccc;ddddd;eeee;fffff;gg;";4g;1a;5g;2g;7h;3d;2f;7j 4g;1a;5g;2g; 7h;3d;8k;"aaaa;bb;cccc;ddddd;eeee;fffff;gg;";3d;2f;7j;8k;4s;2b;4g;1a

そして、私はそれが欲しい：

3d;2f;7j;8k;4s;2b;5g;4g;1a;5g;2g;7h;3d;2f;7j;aaaa;bb;cccc;ddddd;eeee;fffff;gg 3c;9k;5l;4g ;1a;5g;3d;4g;1a;5g;2g;7h;3d;2f;7j;aaaa;bb;cccc;ddddd;eeee;fffff;gg; 4g;1a;5g;2g;7h;3d;8k;3d;2f;7j;8k;4s;2b;4g;1a;aaaa;bb;cccc;ddddd;eeee;fffff;gg;

これは私が試してきた私のコードです。私は知っている.. それはひどいです ！しかし、誰かが私を助けてくれることを願っていますか？

use strict;
use warnings;

my $inputfile  = shift || die "Give files\n";
my $outputfile = shift || die "Give output\n";

open my $INFILE,  '<', $inputfile   or die "In use / Not found :$!\n";
open my $OUTFILE, '>', $outputfile  or die "In use :$!\n";

while (<$INFILE>) {
  s/"//g;
  my @elements = split /;/, $_;

    my ($varA, $varB, $varC, $varD, $varE, $varF, $varG, $varH) split (';', $elements[10]);
        $elements[16] = $varA;
        $elements[17] = $varB;
        $elements[18] = $varC;
        $elements[19] = $varD; 
        $elements[20] = $varE;
        $elements[21] = $varF;
        $elements[22] = $varG;
        $elements[23] = $varH;

my $output_line = join(";", @elements);
print $OUTFILE $output_line;
}

close $INFILE;
close $OUTFILE;

exit 0;

私も私の声明について混乱しています、それは可能ではないはずですよね？$vars は閉じた部分にあるので、$elements に書き込むことはできないのでしょうか?

編集

これは、TLPの提案でコードを調整した方法です:

use strict;
use warnings;
use Text::CSV;

my $inputfile  = shift || die "Give files\n";
my $outputfile = shift || die "Give output\n";

open my $INFILE,  '<', $inputfile   or die "In use / Not found :$!\n";
open my $OUTFILE, '>', $outputfile  or die "In use :$!\n";

my $csv = Text::CSV->new({  # create a csv object
    sep_char => ";",    # delimiter
    eol => "\n",        # adds newline to print
});

while (my $row = $csv->getline($INFILE)) {      # $row is an array ref
my $line = splice(@$row, 10, 1);            # remove 8th line
$csv->parse($line);                         # parse the line
push @$row, $csv->fields();                 # push newly parsed fields onto       main array
$csv->print($OUTFILE, $row);
}

close $INFILE;
close $OUTFILE;

exit 0;
4

1 に答える 1

0

データを解析するには、 Text::CSVなどの CSV モジュールを使用する必要があります。これを行う方法の簡単な例を次に示します。以下で使用したファイル ハンドルを独自のものに置き換えることができます。

use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new({     # create a csv object
        sep_char => ";",   # delimiter
        eol => "\n",       # adds newline to print
    });

while (my $row = $csv->getline(*DATA)) {   # $row is an array ref
    my $line = splice(@$row, 7, 1);   # remove 8th line
    $csv->parse($line);               # parse the line
    push @$row, $csv->fields();       # push newly parsed fields onto main array
    $csv->print(*STDOUT, $row);
}

__DATA__
3d;2f;7j;8k;4s;2b;5g;"aaaa;bb;cccc;ddddd;eeee;fffff;gg;";4g;1a;5g;2g;7h;3d;2f;7j
3c;9k;5l;4g;1a;5g;3d;"aaaa;bb;cccc;ddddd;eeee;fffff;gg;";4g;1a;5g;2g;7h;3d;2f;7j
4g;1a;5g;2g;7h;3d;8k;"aaaa;bb;cccc;ddddd;eeee;fffff;gg;";3d;2f;7j;8k;4s;2b;4g;1a

出力：

3d;2f;7j;8k;4s;2b;5g;4g;1a;5g;2g;7h;3d;2f;7j;aaaa;bb;cccc;ddddd;eeee;fffff;gg;
3c;9k;5l;4g;1a;5g;3d;4g;1a;5g;2g;7h;3d;2f;7j;aaaa;bb;cccc;ddddd;eeee;fffff;gg;
4g;1a;5g;2g;7h;3d;8k;3d;2f;7j;8k;4s;2b;4g;1a;aaaa;bb;cccc;ddddd;eeee;fffff;gg;
于 2012-07-05T12:44:49.630 に答える