Mercurial > repos > xuebing > sharplabtool

comparison tools/filters/tailWrapper.pl @ 0:9071e359b9a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author xuebing
date Fri, 09 Mar 2012 19:37:19 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:9071e359b9a3
1 #! /usr/bin/perl -w
2
3 use strict;
4 use warnings;
5
6 # a wrapper for tail for use in galaxy
7 # lessWrapper.pl [filename] [# lines to show] [output]
8
9 die "Check arguments" unless @ARGV == 3;
10 die "Line number should be an integer\n" unless $ARGV[1]=~ m/^\d+$/;
11
12 open (OUT, ">$ARGV[2]") or die "Cannot create $ARGV[2]:$!\n";
13 open (TAIL, "tail -n $ARGV[1] $ARGV[0]|") or die "Cannot run tail:$!\n";
14 while (<TAIL>) {
15 print OUT;
16 }
17 close OUT;
18 close TAIL;
19