mirror of
https://github.com/galaxyproject/galaxy.git
synced 2026-09-24 16:30:27 +08:00
17 lines
330 B
Perl
17 lines
330 B
Perl
#! /usr/bin/env perl
|
|
|
|
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`;
|