И это всё МОЁ
Нужно широкий (170 колонок) csv-файл разделить на поля и записать в базу, при этом все колонки должны прочитаться. Ерунда получается при разделении через split. Решил сделать вручную, так как через Text::CSV_XS еще больше проблем.
#!/usr/bin/perl
use strict;
use Data:
umper;
my $str = 'a;b;;d;e;;;;';
my @col = split (/;/, $str);
print $str,"\n";
print Dumper @col,"\n";
a;b;;d;e;;;;
$VAR1 = 'a';
$VAR2 = 'b';
$VAR3 = '';
$VAR4 = 'd';
$VAR5 = 'e';
$VAR6 = '
';