Mercurial > repos > yufei-luo > s_mart

annotate SMART/DiffExpAnal/listInputs.pl @ 31:0ab839023fe4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author m-zytnicki
date Tue, 30 Apr 2013 14:33:21 -0400
parents 94ab73e8a190
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
1 #!/usr/bin/perl -w
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
2
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
3 use strict;
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
4
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
5 my $in_file1 = $ARGV[0];
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
6 my $in_file2 = $ARGV[1];
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
7 my $out_file = $ARGV[2];
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
8
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
9 open(OUT, ">$out_file");
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
10 print OUT "label\tfiles\tgroup\n";
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
11 print OUT "fileID=1\t$in_file1\tgroup1\n";
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
12 print OUT "fileID=2\t$in_file2\tgroup2\n";
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
13 close(OUT);