view CG_cgatools/tools/cgatools/testing.pl @ 0:ffb2b0244ab2 draft

Uploaded

#!/usr/bin/perl

print "$0 @ARGV\n";
open OUT, ">@ARGV[0]";
print "test1 ok\ttest1 ok\ntest1 ok\ttest1 ok\n";
print OUT "test ok\ttest ok\ntest ok\ttest ok\n";
close OUT;
open OUT, ">somefile";
print OUT "test2 ok\ttest2 ok\ntest2 ok\ttest2 ok\n";
close OUT;