view tools/filters/commWrapper.pl @ 1:cdcb0ce84a1b

Uploaded
author xuebing
date Fri, 09 Mar 2012 19:45:15 -0500
parents 9071e359b9a3
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`;