Mercurial > repos > devteam > show_tail
view tailWrapper.pl @ 3:ae45155543e1 draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_tail commit a1517c9d22029095120643bbe2c8fa53754dd2b7
author | devteam |
---|---|
date | Wed, 11 Nov 2015 12:27:48 -0500 |
parents | 8bb4d908a523 |
children |
line wrap: on
line source
#! /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;