public
Created

  • Download Gist
output.pl
Perl
1
["S", "YBELT HAS A LINE\nFEED IN IT", "00000001", undef]
parsewords.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12
use 5.14.2;
use strict;
use warnings;
 
use Text::ParseWords;
use Data::Dump qw( pp );
 
sub csv_split {
return [ quotewords ',' , 0, shift ];
}
# This works because it has the full content
pp csv_split(qq{S,"YBELT HAS A LINE\nFEED IN IT",00000001,});

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.