Kun:LabNotes/MONOD/2015-4-21

From ZhangLabWiki
Revision as of 17:52, 21 April 2015 by >Shicheng (Created page with " <nowiki> #!/usr/bin/perl #table2wikitable.pl use strict; use Cwd; chdir getcwd; my $input=@ARGV[0]; open F,$input; print "{| class=\"wikitable\" style=\"text-align: cente...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search


#!/usr/bin/perl
#table2wikitable.pl
use strict;
use Cwd;
chdir getcwd;

my $input=@ARGV[0];

open F,$input;
print "{| class=\"wikitable\" style=\"text-align: center; color: green;\"\n";
while(<F>){
chomp;
my @line=split /\t/;
my $tmp=join("||",@line);
print "| $tmp\n|-\n";
}
print"|}\n";