Как проанализировать CSV с новой строкой и запятыми внутри поля в Perl?

Question

Я новичок в Perl. Это пример записи в формате csv, похожий на мой. Я хотел бы разобрать это, попробовал кратко Text :: CSV, но не повезло. Проблема здесь - новая строка и запятые внутри полей. Как я могу разобрать этот файл в Perl? Спасибо за помощь.

1,A,"Length of x, where x is y"
2,B,"Set A to “10”, an invalid state"
3,C,"Solve
A+B and
B+A
"
4,D, Set C to B

Answer 1

Этот код (взят непосредственно из документации Text :: CSV):

#!/usr/bin/perl

use strict;
use Text::CSV;
use Data::Dumper;


my $rows;
my $csv = Text::CSV->new ( { binary => 1 } )  # should set binary attribute.
                 or die "Cannot use CSV: ".Text::CSV->error_diag ();

open my $fh, "<", "test.csv" or die "test.csv: $!";

while ( my $row = $csv->getline( $fh ) ) {
     push @{$rows}, $row;
}

$csv->eof or $csv->error_diag();

close $fh;

# This gets rid of spaces at start and end of string 
# as well as newlines within the fields.
for ( 0 .. scalar @{$rows}-1 ) {
    $rows->[$_][2] =~ s/^\s*//;
    $rows->[$_][2] =~ s/\n/ /gms;
}

print Dumper($rows);

Создает следующий вывод:

$VAR1 = [
          [
            '1',
            'A',
            'Length of x, where x is y'
          ],
          [
            '2',
            'B',
            'Set A to “10”, an invalid state'
          ],
          [
            '3',
            'C',
            'Solve A+B and B+A '
          ],
          [
            '4',
            'D',
            'Set C to B'
          ]
        ];

Что (я предполагаю) - это то, что вы хотитедостичь.

Answer 2

Спасибо Всем, кто прокомментировал, я разобрался.То, что я не сделал, было

{ binary => 1, eol => $/ }

Вот рабочий код:

#!/usr/bin/perl

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

open(my $Fh, "<", 'datalane_csr.csv');

my $csv = Text::CSV->new ({ binary => 1, eol => $/ });
while (my $row = $csv->getline ($Fh)) {
  say @$row[2];
  }

close(CSV);

Еще раз спасибо.И извините за сообщение.

Но у меня есть небольшая проблема, когда я печатаю их, "" "отображаются как странные символы.