root/galaxy-central/tools/filters/commWrapper.pl

リビジョン 2, 332 bytes (コミッタ: hatakeyama, 14 年 前)

import galaxy-central

行番号 
1#! /usr/bin/perl -w
2
3use strict;
4use warnings;
5use File::Temp "tempfile";
6#use POSIX qw(tmpnam);
7
8my ($input1, $input2, $mode, $out_file1) = @ARGV;
9
10my ($fh, $file1) = tempfile();
11my ($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
Note: リポジトリブラウザについてのヘルプは TracBrowser を参照してください。