nanasess/csv2tsv.pl

## csv2tsv.pl
#!/usr/bin/perl
use strict;
use warnings;
my $column = '';
while (my $line = <STDIN>) {
    my $count = 0;
    $line .= <STDIN> while ($line =~ tr/"// % 2 and !eof(STDIN));

    $line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
    my @values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
    ($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
    for $column (@values) {
        $column =~ s/\x0D\x0A|\x0D|\x0A//g;
        print $column, "\t";
    }
    print "\r\n";
}
__END__
	#!/usr/bin/perl
	use strict;
	use warnings;
	my $column = '';
	while (my $line = <STDIN>) {
	my $count = 0;
	$line .= <STDIN> while ($line =~ tr/"// % 2 and !eof(STDIN));

	$line =~ s/(?:\x0D\x0A\|[\x0D\x0A])?$/,/;
	my @values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
	($line =~ /("[^"](?:""[^"])"\|[^,]),/g);
	for $column (@values) {
	$column =~ s/\x0D\x0A\|\x0D\|\x0A//g;
	print $column, "\t";
	}
	print "\r\n";
	}
	__END__