Mercurial > repos > xuebing > sharplabtool
annotate tools/filters/commWrapper.pl @ 1:cdcb0ce84a1b
Uploaded
| author | xuebing |
|---|---|
| date | Fri, 09 Mar 2012 19:45:15 -0500 |
| parents | 9071e359b9a3 |
| children |
| rev | line source |
|---|---|
| 0 | 1 #! /usr/bin/perl -w |
| 2 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 use File::Temp "tempfile"; | |
| 6 #use POSIX qw(tmpnam); | |
| 7 | |
| 8 my ($input1, $input2, $mode, $out_file1) = @ARGV; | |
| 9 | |
| 10 my ($fh, $file1) = tempfile(); | |
| 11 my ($fh1,$file2) = tempfile(); | |
| 12 | |
| 13 `sort $input1 > $file1`; | |
| 14 `sort $input2 > $file2`; | |
| 15 `comm $mode $file1 $file2 > $out_file1`; | |
| 16 `rm $file1 ; rm $file2`; | |
| 17 | |
| 18 | |
| 19 |