uncoverable: comments
[Text-CSV_XS.git] / examples / rewrite.pl
1 #!/pro/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Text::CSV_XS qw( csv );
7
8 my $io = shift || \*DATA;
9
10 csv (in => csv (in => $io, sep_char => ";"), out => \*STDOUT);
11
12 __END__
13 a;b;c;d;e;f
14 1;2;3;4;5;6
15 2;3;4;5;6;7
16 3;4;5;6;7;8
17 4;5;6;7;8;9