public
Created

  • Download Gist
output.pl
Perl
1 2 3 4 5 6 7 8 9
["COLLOQ_TYPE", "COLLOQ_NAME", "COLLOQ_CODE", "XDATA"]
["S", "BELT,FAN", "003541547", undef]
["S", "BELT V,FAN", "000324244", undef]
["S", "SHROUD SPRING SCREW", "000868265", undef]
["S", "D REL VALVE ASSY", "000771881", undef]
["S", "YBELT,V", "000323030", undef]
["S", "YBELT,'V'", "000322933", undef]
[]
[]
parsewords.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
use 5.14.2;
use strict;
use warnings;
 
use Text::ParseWords;
use Data::Dump qw( pp );
 
sub csv_split {
return [ quotewords ',' , 0, shift ];
}
while (<DATA>) {
chomp;
pp csv_split( $_ );
}
 
__DATA__
COLLOQ_TYPE,COLLOQ_NAME,COLLOQ_CODE,XDATA
S,"BELT,FAN",003541547,
S,"BELT V,FAN",000324244,
S,SHROUD SPRING SCREW,000868265,
S,"D" REL VALVE ASSY,000771881,
S,"YBELT,"V"",000323030,
S,"YBELT,'V'",000322933,
S,"YBELT HAS A LINE
FEED IN IT",00000001,

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.