mirror of
https://github.com/galaxyproject/galaxy.git
synced 2026-09-24 16:30:27 +08:00
20 lines
451 B
Perl
20 lines
451 B
Perl
#! /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;
|
|
|