root/galaxy-central/tools/filters/commWrapper.pl
@
2
リビジョン 2, 332 bytes (コミッタ: hatakeyama, 14 年 前) |
---|
Rev | 行番号 | |
---|---|---|
[2] | 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 |
Note: リポジトリブラウザについてのヘルプは TracBrowser
を参照してください。