Sophie: perl-Text-CSV_XS-1.90.0-4.mga5 i586

perl-Text-CSV_XS-1.90.0-4.mga5.i586.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

#!/pro/bin/perl

use strict;
use warnings;

use Text::CSV_XS qw( csv );

my $io = shift || \*DATA;

csv (in => csv (in => $io, sep_char => ";"), out => \*STDOUT);

__END__
a;b;c;d;e;f
1;2;3;4;5;6
2;3;4;5;6;7
3;4;5;6;7;8
4;5;6;7;8;9