Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- (
- echo #!/usr/bin/perl
- echo open ^(INFILE, @ARGV[0]^);
- echo my $line;my @thelines;my $thecounter=0;
- echo while ^(^<INFILE^>^) {chomp;$line = $_;$line =~ s/\t/,/g;$thelines[$thecounter]=$line;++$thecounter;}
- echo close ^(INFILE^);
- echo open ^(OUTFILE, ">@ARGV[0]"^);
- echo foreach ^(@thelines^) {print OUTFILE "$_\n";}
- echo close ^(OUTFILE^);
- ) > tsv2csv.pl
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement