Mercurial > repos > xuebing > sharplabtool
diff tools/filters/tailWrapper.pl @ 0:9071e359b9a3
Uploaded
author | xuebing |
---|---|
date | Fri, 09 Mar 2012 19:37:19 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tools/filters/tailWrapper.pl Fri Mar 09 19:37:19 2012 -0500 @@ -0,0 +1,19 @@ +#! /usr/bin/perl -w + +use strict; +use warnings; + +# a wrapper for tail for use in galaxy +# lessWrapper.pl [filename] [# lines to show] [output] + +die "Check arguments" unless @ARGV == 3; +die "Line number should be an integer\n" unless $ARGV[1]=~ m/^\d+$/; + +open (OUT, ">$ARGV[2]") or die "Cannot create $ARGV[2]:$!\n"; +open (TAIL, "tail -n $ARGV[1] $ARGV[0]|") or die "Cannot run tail:$!\n"; +while (<TAIL>) { + print OUT; +} +close OUT; +close TAIL; +