view tailWrapper.pl @ 0:4d280e872e75 draft default tip

planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_tail commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b

#! /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;