root/galaxy-central/tools/filters/headWrapper.pl
@
2
リビジョン 2, 449 bytes (コミッタ: hatakeyama, 14 年 前) |
---|
Rev | 行番号 | |
---|---|---|
[2] | 1 | #! /usr/bin/perl -w |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | # a wrapper for head for use in galaxy | |
7 | # headWrapper.pl [filename] [# lines to show] [output] | |
8 | ||
9 | die "Check arguments" unless @ARGV == 3; | |
10 | die "Line number must be an integer\n" unless $ARGV[1]=~ m/^\d+$/; | |
11 | ||
12 | open (OUT, ">$ARGV[2]") or die "Cannot create $ARGV[2]:$!\n"; | |
13 | open (HEAD, "head -n $ARGV[1] $ARGV[0]|") or die "Cannot run head:$!\n"; | |
14 | while (<HEAD>) { | |
15 | print OUT; | |
16 | } | |
17 | close OUT; | |
18 | close HEAD; | |
19 |
Note: リポジトリブラウザについてのヘルプは TracBrowser
を参照してください。