Mercurial > repos > xuebing > sharplabtool
view tools/filters/commWrapper.pl @ 0:9071e359b9a3
Uploaded
author | xuebing |
---|---|
date | Fri, 09 Mar 2012 19:37:19 -0500 |
parents | |
children |
line wrap: on
line source
#! /usr/bin/perl -w use strict; use warnings; use File::Temp "tempfile"; #use POSIX qw(tmpnam); my ($input1, $input2, $mode, $out_file1) = @ARGV; my ($fh, $file1) = tempfile(); my ($fh1,$file2) = tempfile(); `sort $input1 > $file1`; `sort $input2 > $file2`; `comm $mode $file1 $file2 > $out_file1`; `rm $file1 ; rm $file2`;