Thank you monks, your suggestion helped me learn more about the deatils of the CSV file.
I thought that there might be a strange end-of-line code or something like that. But that does not seem to be the case. The best I can determine is that Text::CSV_PP is having an issue with the double quotes("). Please take a look at the following test data
"fred1234","bedrock quary","S","t","88579Y101","4851","2595708","US885
+79Y1010","MMM","3M CO","USD","USD","SB7",1,19610718,19610718,225212,"
+MMM UN","MMM.N","",1,"C",710.964086349999,710.964086349999,710.964086
+35,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","G1150G111","","2763958","BMG1150G1
+116","ACN","ACCENTURE LTD-CL A","USD","USD","SB7",19610718,19610718,2
+25212,"ACN UN","ACN.N","",1,"C",-699.4375011625,-699.4375011625,-699.
+4375011625,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","004930202","","2575818","US0049302
+021","ATVI","ACTIVISION INC","USD","USD","SB7",19610718,19610718,2252
+12,"ATVI UW","ATVI.OQ","",1,"C",819.153462549999,819.153462549999,819
+.15346255,,,2.45938,,,,"R"
"fred1234","bedrock quary","S","t","00817Y108","","2695921","US00817Y1
+082","AET","AETNA INC","USD","USD","SB7",19610718,19610718,225212,"AE
+T UN","AET.N","",1,"C",2831.9813292375,2831.9813292375,2831.981329237
+5,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","00846U101","","2520153","US00846U1
+016","A","AGILENT TECHNOLOGIES INC","USD",19610718,19610718,225212,"A
+ UN","A.N","",1,"C",-45.9117876750024,-45.9117876750024,-45.911787675
+,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","008916108","","2015530","CA0089161
+081","AGU","AGRIUM INC","USD","USD","SB7",19610718,19610718,225212,"A
+GU UN","AGU.N","",1,"C",4754.379720375,4754.379720375,4754.379720375,
+,,2.45938,,,,"R"
"fred1234","bedrock quary","S","t","00971T101","","2507457","US00971T1
+016","AKAM","AKAMAI TECHNOLOGIES","USD","USD","SB7",19610718,19610718
+,225212,"AKAM UW","AKAM.OQ","",1,"C",2580.1367137875,2580.1367137875,
+2580.1367137875,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","01741R102","","2526117","US01741R1
+023","ATI","ALLEGHENY TECHNOLOGIES INC","USD","USD","SB7",19610718,19
+610718,225212,"ATI UN","ATI.N","",1,"C",-655.71107175,-655.71107175,-
+655.71107175,,,2.45938,,,,"R"
"fred1234","bedrock quary","S","t","018804104","","2017677","US0188041
+042","ATK","ALLIANT TECHSYSTEMS INC","USD","USD","SB7",19610718,19610
+718,225212,"ATK UN","ATK.N","",1,"C",314.388352562499,314.38835256249
+9,314.3883525625,,,2.45938,,,,"R"
"fred1234","bedrock quary","S","t","019589308","","2039831","US0195893
+088","AW","ALLIED WASTE INDUSTRIES INC","USD","USD","SB7",19610718,19
+610718,225212,"AW UN","AW.N","",1,"C",538.672694612502,538.6726946125
+02,538.6726946125,,,2.45938,,,,"R"
test lines, without double double quotes
"fred1234","bedrock quary","S","t","88579Y101","4851","2595708","US885
+79Y1010","MMM","3M CO","USD","USD","SB7",1,19610718,19610718,225212,"
+MMM UN","MMM.N",,1,"C",710.964086349999,710.964086349999,710.96408635
+,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","G1150G111",,"2763958","BMG1150G111
+6","ACN","ACCENTURE LTD-CL A","USD","USD","SB7",19610718,19610718,225
+212,"ACN UN","ACN.N",,1,"C",-699.4375011625,-699.4375011625,-699.4375
+011625,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","004930202",,"2575818","US004930202
+1","ATVI","ACTIVISION INC","USD","USD","SB7",19610718,19610718,225212
+,"ATVI UW","ATVI.OQ",,1,"C",819.153462549999,819.153462549999,819.153
+46255,,,2.45938,,,,"R"
"fred1234","bedrock quary","S","t","00817Y108",,"2695921","US00817Y108
+2","AET","AETNA INC","USD","USD","SB7",19610718,19610718,225212,"AET
+UN","AET.N",,1,"C",2831.9813292375,2831.9813292375,2831.9813292375,,,
+2.45938,,,,"R"
"fred1234","bedrock quary","L","t","00846U101",,"2520153","US00846U101
+6","A","AGILENT TECHNOLOGIES INC","USD",19610718,19610718,225212,"A U
+N","A.N",,1,"C",-45.9117876750024,-45.9117876750024,-45.911787675,,,2
+.45938,,,,"R"
"fred1234","bedrock quary","L","t","008916108",,"2015530","CA008916108
+1","AGU","AGRIUM INC","USD","USD","SB7",19610718,19610718,225212,"AGU
+ UN","AGU.N",,1,"C",4754.379720375,4754.379720375,4754.379720375,,,2.
+45938,,,,"R"
"fred1234","bedrock quary","S","t","00971T101",,"2507457","US00971T101
+6","AKAM","AKAMAI TECHNOLOGIES","USD","USD","SB7",19610718,19610718,2
+25212,"AKAM UW","AKAM.OQ",,1,"C",2580.1367137875,2580.1367137875,2580
+.1367137875,,,2.45938,,,,"R"
"fred1234","bedrock quary","L","t","01741R102",,"2526117","US01741R102
+3","ATI","ALLEGHENY TECHNOLOGIES INC","USD","USD","SB7",19610718,1961
+0718,225212,"ATI UN","ATI.N",,1,"C",-655.71107175,-655.71107175,-655.
+71107175,,,2.45938,,,,"R"
"fred1234","bedrock quary","S","t","018804104",,"2017677","US018804104
+2","ATK","ALLIANT TECHSYSTEMS INC","USD","USD","SB7",19610718,1961071
+8,225212,"ATK UN","ATK.N",,1,"C",314.388352562499,314.388352562499,31
+4.3883525625,,,2.45938,,,,"R"
"fred1234","bedrock quary","S","t","019589308",,"2039831","US019589308
+8","AW","ALLIED WASTE INDUSTRIES INC","USD","USD","SB7",19610718,1961
+0718,225212,"AW UN","AW.N",,1,"C",538.672694612502,538.672694612502,5
+38.6726946125,,,2.45938,,,,"R"
test line, without any double quotes
fred1234,bedrock quary,S,t,88579Y101,4851,2595708,US88579Y1010,MMM,3M
+CO,USD,USD,SB7,1,19610718,19610718,225212,MMM UN,MMM.N,,1,C,710.96408
+6349999,710.964086349999,710.96408635,,,2.45938,,,,R
fred1234,bedrock quary,L,t,G1150G111,,2763958,BMG1150G1116,ACN,ACCENTU
+RE LTD-CL A,USD,USD,SB7,19610718,19610718,225212,ACN UN,ACN.N,,1,C,-6
+99.4375011625,-699.4375011625,-699.4375011625,,,2.45938,,,,R
fred1234,bedrock quary,L,t,004930202,,2575818,US0049302021,ATVI,ACTIVI
+SION INC,USD,USD,SB7,19610718,19610718,225212,ATVI UW,ATVI.OQ,,1,C,81
+9.153462549999,819.153462549999,819.15346255,,,2.45938,,,,R
fred1234,bedrock quary,S,t,00817Y108,,2695921,US00817Y1082,AET,AETNA I
+NC,USD,USD,SB7,19610718,19610718,225212,AET UN,AET.N,,1,C,2831.981329
+2375,2831.9813292375,2831.9813292375,,,2.45938,,,,R
fred1234,bedrock quary,L,t,00846U101,,2520153,US00846U1016,A,AGILENT T
+ECHNOLOGIES INC,USD,19610718,19610718,225212,A UN,A.N,,1,C,-45.911787
+6750024,-45.9117876750024,-45.911787675,,,2.45938,,,,R
fred1234,bedrock quary,L,t,008916108,,2015530,CA0089161081,AGU,AGRIUM
+INC,USD,USD,SB7,19610718,19610718,225212,AGU UN,AGU.N,,1,C,4754.37972
+0375,4754.379720375,4754.379720375,,,2.45938,,,,R
fred1234,bedrock quary,S,t,00971T101,,2507457,US00971T1016,AKAM,AKAMAI
+ TECHNOLOGIES,USD,USD,SB7,19610718,19610718,225212,AKAM UW,AKAM.OQ,,1
+,C,2580.1367137875,2580.1367137875,2580.1367137875,,,2.45938,,,,R
fred1234,bedrock quary,L,t,01741R102,,2526117,US01741R1023,ATI,ALLEGHE
+NY TECHNOLOGIES INC,USD,USD,SB7,19610718,19610718,225212,ATI UN,ATI.N
+,,1,C,-655.71107175,-655.71107175,-655.71107175,,,2.45938,,,,R
fred1234,bedrock quary,S,t,018804104,,2017677,US0188041042,ATK,ALLIANT
+ TECHSYSTEMS INC,USD,USD,SB7,19610718,19610718,225212,ATK UN,ATK.N,,1
+,C,314.388352562499,314.388352562499,314.3883525625,,,2.45938,,,,R
fred1234,bedrock quary,S,t,019589308,,2039831,US0195893088,AW,ALLIED W
+ASTE INDUSTRIES INC,USD,USD,SB7,19610718,19610718,225212,AW UN,AW.N,,
+1,C,538.672694612502,538.672694612502,538.6726946125,,,2.45938,,,,R
If I run the above data through the following code, using the command: perl -w dumpascii2hex.pl testpos_b2.csv > testpos_b.2out.txt
use Text::CSV_PP;
use Data::Dumper;
$csv = Text::CSV_PP->new(); # create a new CSV parser object
while (defined($line = <> )) {
print $line . "~~\n";
#**for ( $i=0; $i <length($line); $i++) {
#** $char = substr($line, $i,1);
#** $hex = sprintf("%02x", ord($char));
#** print $char . "\t". $hex . "\n";
#**} #for
$status = $csv->parse($line);
@col = $csv->fields();
print Dumper @col;
print "--new line--\n";
} #while
I get the following
"fred1234","bedrock quary","S","t","88579Y101","4851","2595708","US885
+79Y1010","MMM","3M CO","USD","USD","SB7",1,19610718,19610718,225212,"
+MMM UN","MMM.N","",1,"C",710.964086349999,710.964086349999,710.964086
+35,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","G1150G111","","2763958","BMG1150G1
+116","ACN","ACCENTURE LTD-CL A","USD","USD","SB7",19610718,19610718,2
+25212,"ACN UN","ACN.N","",1,"C",-699.4375011625,-699.4375011625,-699.
+4375011625,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","004930202","","2575818","US0049302
+021","ATVI","ACTIVISION INC","USD","USD","SB7",19610718,19610718,2252
+12,"ATVI UW","ATVI.OQ","",1,"C",819.153462549999,819.153462549999,819
+.15346255,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","00817Y108","","2695921","US00817Y1
+082","AET","AETNA INC","USD","USD","SB7",19610718,19610718,225212,"AE
+T UN","AET.N","",1,"C",2831.9813292375,2831.9813292375,2831.981329237
+5,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","00846U101","","2520153","US00846U1
+016","A","AGILENT TECHNOLOGIES INC","USD",19610718,19610718,225212,"A
+ UN","A.N","",1,"C",-45.9117876750024,-45.9117876750024,-45.911787675
+,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","008916108","","2015530","CA0089161
+081","AGU","AGRIUM INC","USD","USD","SB7",19610718,19610718,225212,"A
+GU UN","AGU.N","",1,"C",4754.379720375,4754.379720375,4754.379720375,
+,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","00971T101","","2507457","US00971T1
+016","AKAM","AKAMAI TECHNOLOGIES","USD","USD","SB7",19610718,19610718
+,225212,"AKAM UW","AKAM.OQ","",1,"C",2580.1367137875,2580.1367137875,
+2580.1367137875,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","01741R102","","2526117","US01741R1
+023","ATI","ALLEGHENY TECHNOLOGIES INC","USD","USD","SB7",19610718,19
+610718,225212,"ATI UN","ATI.N","",1,"C",-655.71107175,-655.71107175,-
+655.71107175,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","018804104","","2017677","US0188041
+042","ATK","ALLIANT TECHSYSTEMS INC","USD","USD","SB7",19610718,19610
+718,225212,"ATK UN","ATK.N","",1,"C",314.388352562499,314.38835256249
+9,314.3883525625,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","019589308","","2039831","US0195893
+088","AW","ALLIED WASTE INDUSTRIES INC","USD","USD","SB7",19610718,19
+610718,225212,"AW UN","AW.N","",1,"C",538.672694612502,538.6726946125
+02,538.6726946125,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
test lines, without double double quotes
~~
$VAR1 = 'test lines';
$VAR2 = ' without double double quotes';
--new line--
"fred1234","bedrock quary","S","t","88579Y101","4851","2595708","US885
+79Y1010","MMM","3M CO","USD","USD","SB7",1,19610718,19610718,225212,"
+MMM UN","MMM.N",,1,"C",710.964086349999,710.964086349999,710.96408635
+,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","G1150G111",,"2763958","BMG1150G111
+6","ACN","ACCENTURE LTD-CL A","USD","USD","SB7",19610718,19610718,225
+212,"ACN UN","ACN.N",,1,"C",-699.4375011625,-699.4375011625,-699.4375
+011625,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","004930202",,"2575818","US004930202
+1","ATVI","ACTIVISION INC","USD","USD","SB7",19610718,19610718,225212
+,"ATVI UW","ATVI.OQ",,1,"C",819.153462549999,819.153462549999,819.153
+46255,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","00817Y108",,"2695921","US00817Y108
+2","AET","AETNA INC","USD","USD","SB7",19610718,19610718,225212,"AET
+UN","AET.N",,1,"C",2831.9813292375,2831.9813292375,2831.9813292375,,,
+2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","00846U101",,"2520153","US00846U101
+6","A","AGILENT TECHNOLOGIES INC","USD",19610718,19610718,225212,"A U
+N","A.N",,1,"C",-45.9117876750024,-45.9117876750024,-45.911787675,,,2
+.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","008916108",,"2015530","CA008916108
+1","AGU","AGRIUM INC","USD","USD","SB7",19610718,19610718,225212,"AGU
+ UN","AGU.N",,1,"C",4754.379720375,4754.379720375,4754.379720375,,,2.
+45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","00971T101",,"2507457","US00971T101
+6","AKAM","AKAMAI TECHNOLOGIES","USD","USD","SB7",19610718,19610718,2
+25212,"AKAM UW","AKAM.OQ",,1,"C",2580.1367137875,2580.1367137875,2580
+.1367137875,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","L","t","01741R102",,"2526117","US01741R102
+3","ATI","ALLEGHENY TECHNOLOGIES INC","USD","USD","SB7",19610718,1961
+0718,225212,"ATI UN","ATI.N",,1,"C",-655.71107175,-655.71107175,-655.
+71107175,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","018804104",,"2017677","US018804104
+2","ATK","ALLIANT TECHSYSTEMS INC","USD","USD","SB7",19610718,1961071
+8,225212,"ATK UN","ATK.N",,1,"C",314.388352562499,314.388352562499,31
+4.3883525625,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
"fred1234","bedrock quary","S","t","019589308",,"2039831","US019589308
+8","AW","ALLIED WASTE INDUSTRIES INC","USD","USD","SB7",19610718,1961
+0718,225212,"AW UN","AW.N",,1,"C",538.672694612502,538.672694612502,5
+38.6726946125,,,2.45938,,,,"R"
~~
$VAR1 = undef;
--new line--
test line, without any double quotes
~~
$VAR1 = 'test line';
$VAR2 = ' without any double quotes';
--new line--
fred1234,bedrock quary,S,t,88579Y101,4851,2595708,US88579Y1010,MMM,3M
+CO,USD,USD,SB7,1,19610718,19610718,225212,MMM UN,MMM.N,,1,C,710.96408
+6349999,710.964086349999,710.96408635,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'S';
$VAR4 = 't';
$VAR5 = '88579Y101';
$VAR6 = '4851';
$VAR7 = '2595708';
$VAR8 = 'US88579Y1010';
$VAR9 = 'MMM';
$VAR10 = '3M CO';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '1';
$VAR15 = '19610718';
$VAR16 = '19610718';
$VAR17 = '225212';
$VAR18 = 'MMM UN';
$VAR19 = 'MMM.N';
$VAR20 = '';
$VAR21 = '1';
$VAR22 = 'C';
$VAR23 = '710.964086349999';
$VAR24 = '710.964086349999';
$VAR25 = '710.96408635';
$VAR26 = '';
$VAR27 = '';
$VAR28 = '2.45938';
$VAR29 = '';
$VAR30 = '';
$VAR31 = '';
$VAR32 = 'R ';
--new line--
fred1234,bedrock quary,L,t,G1150G111,,2763958,BMG1150G1116,ACN,ACCENTU
+RE LTD-CL A,USD,USD,SB7,19610718,19610718,225212,ACN UN,ACN.N,,1,C,-6
+99.4375011625,-699.4375011625,-699.4375011625,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'L';
$VAR4 = 't';
$VAR5 = 'G1150G111';
$VAR6 = '';
$VAR7 = '2763958';
$VAR8 = 'BMG1150G1116';
$VAR9 = 'ACN';
$VAR10 = 'ACCENTURE LTD-CL A';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'ACN UN';
$VAR18 = 'ACN.N';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '-699.4375011625';
$VAR23 = '-699.4375011625';
$VAR24 = '-699.4375011625';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
fred1234,bedrock quary,L,t,004930202,,2575818,US0049302021,ATVI,ACTIVI
+SION INC,USD,USD,SB7,19610718,19610718,225212,ATVI UW,ATVI.OQ,,1,C,81
+9.153462549999,819.153462549999,819.15346255,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'L';
$VAR4 = 't';
$VAR5 = '004930202';
$VAR6 = '';
$VAR7 = '2575818';
$VAR8 = 'US0049302021';
$VAR9 = 'ATVI';
$VAR10 = 'ACTIVISION INC';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'ATVI UW';
$VAR18 = 'ATVI.OQ';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '819.153462549999';
$VAR23 = '819.153462549999';
$VAR24 = '819.15346255';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
fred1234,bedrock quary,S,t,00817Y108,,2695921,US00817Y1082,AET,AETNA I
+NC,USD,USD,SB7,19610718,19610718,225212,AET UN,AET.N,,1,C,2831.981329
+2375,2831.9813292375,2831.9813292375,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'S';
$VAR4 = 't';
$VAR5 = '00817Y108';
$VAR6 = '';
$VAR7 = '2695921';
$VAR8 = 'US00817Y1082';
$VAR9 = 'AET';
$VAR10 = 'AETNA INC';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'AET UN';
$VAR18 = 'AET.N';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '2831.9813292375';
$VAR23 = '2831.9813292375';
$VAR24 = '2831.9813292375';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
fred1234,bedrock quary,L,t,00846U101,,2520153,US00846U1016,A,AGILENT T
+ECHNOLOGIES INC,USD,19610718,19610718,225212,A UN,A.N,,1,C,-45.911787
+6750024,-45.9117876750024,-45.911787675,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'L';
$VAR4 = 't';
$VAR5 = '00846U101';
$VAR6 = '';
$VAR7 = '2520153';
$VAR8 = 'US00846U1016';
$VAR9 = 'A';
$VAR10 = 'AGILENT TECHNOLOGIES INC';
$VAR11 = 'USD';
$VAR12 = '19610718';
$VAR13 = '19610718';
$VAR14 = '225212';
$VAR15 = 'A UN';
$VAR16 = 'A.N';
$VAR17 = '';
$VAR18 = '1';
$VAR19 = 'C';
$VAR20 = '-45.9117876750024';
$VAR21 = '-45.9117876750024';
$VAR22 = '-45.911787675';
$VAR23 = '';
$VAR24 = '';
$VAR25 = '2.45938';
$VAR26 = '';
$VAR27 = '';
$VAR28 = '';
$VAR29 = 'R ';
--new line--
fred1234,bedrock quary,L,t,008916108,,2015530,CA0089161081,AGU,AGRIUM
+INC,USD,USD,SB7,19610718,19610718,225212,AGU UN,AGU.N,,1,C,4754.37972
+0375,4754.379720375,4754.379720375,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'L';
$VAR4 = 't';
$VAR5 = '008916108';
$VAR6 = '';
$VAR7 = '2015530';
$VAR8 = 'CA0089161081';
$VAR9 = 'AGU';
$VAR10 = 'AGRIUM INC';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'AGU UN';
$VAR18 = 'AGU.N';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '4754.379720375';
$VAR23 = '4754.379720375';
$VAR24 = '4754.379720375';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
fred1234,bedrock quary,S,t,00971T101,,2507457,US00971T1016,AKAM,AKAMAI
+ TECHNOLOGIES,USD,USD,SB7,19610718,19610718,225212,AKAM UW,AKAM.OQ,,1
+,C,2580.1367137875,2580.1367137875,2580.1367137875,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'S';
$VAR4 = 't';
$VAR5 = '00971T101';
$VAR6 = '';
$VAR7 = '2507457';
$VAR8 = 'US00971T1016';
$VAR9 = 'AKAM';
$VAR10 = 'AKAMAI TECHNOLOGIES';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'AKAM UW';
$VAR18 = 'AKAM.OQ';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '2580.1367137875';
$VAR23 = '2580.1367137875';
$VAR24 = '2580.1367137875';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
fred1234,bedrock quary,L,t,01741R102,,2526117,US01741R1023,ATI,ALLEGHE
+NY TECHNOLOGIES INC,USD,USD,SB7,19610718,19610718,225212,ATI UN,ATI.N
+,,1,C,-655.71107175,-655.71107175,-655.71107175,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'L';
$VAR4 = 't';
$VAR5 = '01741R102';
$VAR6 = '';
$VAR7 = '2526117';
$VAR8 = 'US01741R1023';
$VAR9 = 'ATI';
$VAR10 = 'ALLEGHENY TECHNOLOGIES INC';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'ATI UN';
$VAR18 = 'ATI.N';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '-655.71107175';
$VAR23 = '-655.71107175';
$VAR24 = '-655.71107175';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
fred1234,bedrock quary,S,t,018804104,,2017677,US0188041042,ATK,ALLIANT
+ TECHSYSTEMS INC,USD,USD,SB7,19610718,19610718,225212,ATK UN,ATK.N,,1
+,C,314.388352562499,314.388352562499,314.3883525625,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'S';
$VAR4 = 't';
$VAR5 = '018804104';
$VAR6 = '';
$VAR7 = '2017677';
$VAR8 = 'US0188041042';
$VAR9 = 'ATK';
$VAR10 = 'ALLIANT TECHSYSTEMS INC';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'ATK UN';
$VAR18 = 'ATK.N';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '314.388352562499';
$VAR23 = '314.388352562499';
$VAR24 = '314.3883525625';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
fred1234,bedrock quary,S,t,019589308,,2039831,US0195893088,AW,ALLIED W
+ASTE INDUSTRIES INC,USD,USD,SB7,19610718,19610718,225212,AW UN,AW.N,,
+1,C,538.672694612502,538.672694612502,538.6726946125,,,2.45938,,,,R
~~
$VAR1 = 'fred1234';
$VAR2 = 'bedrock quary';
$VAR3 = 'S';
$VAR4 = 't';
$VAR5 = '019589308';
$VAR6 = '';
$VAR7 = '2039831';
$VAR8 = 'US0195893088';
$VAR9 = 'AW';
$VAR10 = 'ALLIED WASTE INDUSTRIES INC';
$VAR11 = 'USD';
$VAR12 = 'USD';
$VAR13 = 'SB7';
$VAR14 = '19610718';
$VAR15 = '19610718';
$VAR16 = '225212';
$VAR17 = 'AW UN';
$VAR18 = 'AW.N';
$VAR19 = '';
$VAR20 = '1';
$VAR21 = 'C';
$VAR22 = '538.672694612502';
$VAR23 = '538.672694612502';
$VAR24 = '538.6726946125';
$VAR25 = '';
$VAR26 = '';
$VAR27 = '2.45938';
$VAR28 = '';
$VAR29 = '';
$VAR30 = '';
$VAR31 = 'R ';
--new line--
The only time the parsing works is when there are no double quotes in the text. This is confusing me. Because I parse six other files from this source with the same CSV encoding. Ie Strings are contained in double quotes, and there are no issues.
I need the help of someone with more advanced Perl skills to tell me where my mistake is.
Many thanks
kd
|