Well, I've tried both the ParseWords method and the CSV_XS method to no
avail. Below is my CSV_XS script, along with a snippet from the csv
file. If you run this through the script, it fails at the second line,
where the umlaut is located. It's all very strange.
--- Begin Script ---
#!/usr/bin/perl
use IO::File;
use Text::CSV_XS;
$csv = Text::CSV_XS->new();
no warnings;
$fullpathfile = "testfile.csv";
$io = new IO::File "< $fullpathfile";
if (not defined $io) {
die "can't open $fullpathfile";
}
while ($columns = $csv->getline($io)) {
$csv->combine(@$columns);
print $csv->string, "\n";"$columns\n";
}
close($io);
exit 0;
--- End Script ---
--- Begin CSV File ---
10.10.10.0/24,DE,DE-Ravensburg,"Ravensburg EY, Germany"
10.10.10.0/24,DE,DE-Saarbruecken,"Saarbr�ecken EY, Germany"
10.10.10.0/24,DE,DE-Singen,"Singen EY, Germany"
--- End CSV File ----
-----Original Message-----
From: Lynn. Rickards [mailto:[EMAIL PROTECTED]
Sent: Tuesday, November 25, 2003 4:22 PM
To: 'Andy Ryan'
Subject: RE: [Perl-unix-users] ParseWords and umlaut
I use Text::CSV myself withn no problem, but tried this:
foreach my $line(<F>)
{
my @words = "ewords(",", "0", $line);
foreach (@words) {
print "<$_>\n";
}
print $line . "\n";
$c++;
last if($c == 12);
}
...and inserting a few O and e into a csv.
Prints all lines and fields.
I can't even remember why, but to overcome a particular
problem I had with some particular data at
some time, I did
$line = qq{$line};
..which kept whatever funny stuff was in there....
No help there unless you care to share a little
test data?
-Lynn.
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]
> Behalf Of Andy
> Ryan
> Sent: Tuesday, November 25, 2003 3:04 PM
> To: [EMAIL PROTECTED]
> Subject: [Perl-unix-users] ParseWords and umlaut
>
>
> Hi folks,
>
> I'm using the ParseWords perl module to parse through a csv file. When
> it encounters a word in it, specifically one with an umlaut in it, it
> creates an empty set for that line in the file. Any suggestions on how
> to fix this?
>
> Thanks.
>
>
> _______________________________________________
> Perl-Unix-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs