CSV files parsing error

[stones1030]

I was using the Text::CSV module to parse a CSV file with 1000 plus records. 4 of them failed. The failed rows are
<code>
011-00-HSCM,Hospital Services – Component Manufacturing,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA
011-00-HSCR,Hospital Services – Component Release,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA
011-00-HSQC,Hospital Services – Quality Control Lab / Apheresis Manufacturing,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA
090-03-09,ETS -  Operations,DEFAULT,090-03,8111 Gatehouse Rd,Falls Church,VA,22042,USA
</code>

 

[ishnid]

What do you mean by failed? Did you get an error? If so, what was it? What happened that shouldn't have? Or what didn't happen that should have?

 

[stones1030]

sorry. acidentally clicked 'submit post' instead of 'preview post'.
...continued from previous post

If I delete the - character and replace it with a hyphen, the file is parsing without errors. The error message I get is
Failed to parse line: 011-00-HSCM,Hospital Services û Component Manufact
uring,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA

Failed to parse line: 011-00-HSCR,Hospital Services û Component Release,
DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA

Failed to parse line: 011-00-HSQC,Hospital Services û Quality Control La
b / Apheresis Manufacturing,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,
USA

Failed to parse line: 090-03-09,ETS -á Operations,DEFAULT,090-03,8111 Ga
tehouse Rd,Falls Church,VA,22042,USA

Can someone see why the original - does not work?It looks liek the CSV module is getting some special characters in place of the original - character.

Thanks,

 

[ishnid]

The type of dash character there doesn't appear to be part of the character set that the (rather limited) Text::CSV module can handle in the CSV fields. I usually recommend the Text::CSV_XS module instead. This works:

#!/usr/bin/perl -w
use strict;

use Text::CSV_XS;

my $csv = new Text::CSV_XS( {binary => 'TRUE'} );

while(<DATA>) {
   $csv->parse($_);
   print join ' ', $csv->fields(), "\n";
}

__DATA__
011-00-HSCM,Hospital Services – Component Manufacturing,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA
011-00-HSCR,Hospital Services – Component Release,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA
011-00-HSQC,Hospital Services – Quality Control Lab / Apheresis Manufacturing,DEFAULT,011-00,4050 Lindell Blvd,St. Louis,MO,63108,USA
090-03-09,ETS -  Operations,DEFAULT,090-03,8111 Gatehouse Rd,Falls Church,VA,22042,USA