Исправление новых строк в CSV с помощью Perl Text :: CSV_XS

Ваш образец ввода выглядит как искаженный csv - я не думаю, что то, что вы указали, можно проанализировать в правильный CSV. Например:

"test"and also newline\nhere or something";2;3;4;5;6
"this happens also! "\n here or something";2;3;4;5;6

«Кавычки» вокруг данных указывают на то, что все, что в них содержится, может иметь специальные символы (разделитель, символ новой строки и т. д.), Но когда вы закроете цитату здесь:

"test"and also newline\nhere or something";2;3;4;5;6
     ^

Вы сломаете это. Чтобы вставить цитату, вам нужно будет поставить две кавычки. Это будет правильно сформировано:

"test""and also newline\nhere or something";2;3;4;5;6

Предполагая, что фактический (визуализированный) текст был test" and also...

Если я понимаю, что вы пытаетесь сделать - замените символы новой строки разрывом HTML, я думаю, это поможет:

use Text::CSV_XS qw(csv);

my @rows;

my $csv = Text::CSV_XS->new({
  binary => 1,
  auto_diag => 1,
  sep_char => ';'
});

open my $IN, '<:encoding(utf8)', "test.csv" or die;
open my $OUT, '>:encoding(utf8)', "new.csv" or die;
while (my $row = $csv->getline($IN)) {
  s/\n/<br>/g for @$row;
  $csv->print ($OUT, $row);
  print $OUT "\n";
}
close $OUT;
close $IN;

Если это пример ввода:

a;b;c;d;e;f
"test""ja ze";2;3;4;5;6
2;3;"This Text has
a newline";5;6;7
3;4;5;6;7;8
4;5;6;7;8;9

Это будет вывод:

a;b;c;d;e;f
"test""ja ze";2;3;4;5;6
2;3;"This Text has<br>a newline";5;6;7
3;4;5;6;7;8
4;5;6;7;8;9

Но опять же, все это предполагает правильно сформированные данные CSV.

Вы могли бы проанализировать данные без Text::CSV, если ваш разделительный символ (';') никогда не нужно экранировать, а количество столбцов в ваших строках постоянно. Затем вы можете очистить его по мере необходимости. Однако вам нужно знать немного Perl, чтобы очистить ячейки в соответствии с вашими конкретными потребностями.

use strict;
use warnings;

# slurp file into a string and split it
open my $fh,'<',$ARGV[0];
$/ = undef;
my @data = split ';', <$fh>;

my $columns = 6;
my @new_data;

# splice 6 elements from the array at a time until the array is out of elements
while (@data) {
    my @row = splice @data, 0, $columns;
    for my $cell (@row) {
        # inspect / clean up $cell 
    }
    push @new_data, \@row; 
}

for my $row (@new_data) {
    print join(';', @$row)."\n"; 
}

Не то чтобы при этом сохранялись все символы новой строки в $cell, в том числе в конце каждой строки.