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

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

import galaxy-central

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