Mercurial > repos > yufei-luo > s_mart
comparison SMART/DiffExpAnal/listInputs.pl @ 18:94ab73e8a190
Uploaded
author | m-zytnicki |
---|---|
date | Mon, 29 Apr 2013 03:20:15 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
17:b0e8584489e6 | 18:94ab73e8a190 |
---|---|
1 #!/usr/bin/perl -w | |
2 | |
3 use strict; | |
4 | |
5 my $in_file1 = $ARGV[0]; | |
6 my $in_file2 = $ARGV[1]; | |
7 my $out_file = $ARGV[2]; | |
8 | |
9 open(OUT, ">$out_file"); | |
10 print OUT "label\tfiles\tgroup\n"; | |
11 print OUT "fileID=1\t$in_file1\tgroup1\n"; | |
12 print OUT "fileID=2\t$in_file2\tgroup2\n"; | |
13 close(OUT); |