Numbers.appの変なCSVをまともなTSVにエクスポートする

gistfile1.pl

#!/usr/bin/env perl -w

use strict;

# Convert CSV file that exported by Apple Numbers.app to TSV

my $file = shift || die;

open my $fh, '<', $file || die;
while ( my $entry = <$fh> ) {
    #たくさん","ができるので消した.
    if ( $entry =~ s/,{7}//g ) {
        #なんか行頭にも","がくっついたのと最初行の"#"も消した
	if ( $entry =~ s/^\,{1}|^\#\,//g ) {
            # to tsv
	    if ( $entry =~ s/\,/\t/g ) {
		print $entry;
	    }
	}
    }
}