I've never before seen my name spelt like that :)
perl -MText::CSV_XS -le'$c=Text::CSV_XS->new({binary=>1,sep_char=>";"});while(<>){$c->parse($_);print$c->fields}' file.csv > file.dta
is more verbose,as a script, more or less the same as (with comments):
--8<--- csv2bin.pl
#!/opt/perl/bin/perl
# this line tell where your perl resides
use strict; # Don't allow ambiguous code
use warnings; # Warn me wherever appropriate
use Text::CSV_XS; # use the Text::CSV_XS module.
# Should be installed from CPAN or bundled in the port you got
my $csv = Text::CSV_XS->new ({ # create a new csv handle
binary => 1, # that uses binary data
sep_char => ";", # and a semicolon as separator
});
# Now parse the input lines
while (<>) {
$csv->parse ($_); # break down as valid csv
print $csv->fields; # and print the fields as binary
}
-->8---
First check if you have perl, and what version:
# perl -v
If you don't have it (yet), you can get it from my site, and my builds include CSV_XS
My HP ITRC site pages can be found at (please use LA as primary choice):
USA Los Angeles
http://mirrors.develooper.com/hpux/SGP Singapore
https://www.beepz.com/personal/merijn/USA Chicago
http://ww.hpux.ws/merijn/NL Hoofddorp
http://www.cmve.net/~merijn/Enjoy, Have FUN! H.Merijn
Enjoy, Have FUN! H.Merijn
