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

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

import galaxy-central

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