Something like this:
use strict; use warnings; use Text::CSV; my $csv = Text::CSV->new( { binary => 1 } ); my $tsv = Text::CSV->new( { binary => 1, sep_char => "\t" } ); open my $infh, '<:utf8', 'input.csv' or die $!; open my $outfh, '>:utf8', 'output.tsv' or die $!; while ( my $row = $csv->getline($infh) ) { $tsv->print( $outfh, $row ); print $outfh "\n"; }
In reply to Re: Convert CSV file to TAB delimited
by zwon
in thread Convert CSV file to TAB delimited
by TCM
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |