Mercurial > repos > devteam > show_beginning
comparison headWrapper.pl @ 0:a15394f3d04f draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
| author | devteam |
|---|---|
| date | Mon, 09 Nov 2015 11:56:04 -0500 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:a15394f3d04f |
|---|---|
| 1 #! /usr/bin/perl -w | |
| 2 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 | |
| 6 # a wrapper for head for use in galaxy | |
| 7 # headWrapper.pl [filename] [# lines to show] [output] | |
| 8 | |
| 9 die "Check arguments" unless @ARGV == 3; | |
| 10 die "Line number must be an integer\n" unless $ARGV[1]=~ m/^\d+$/; | |
| 11 | |
| 12 open (OUT, ">$ARGV[2]") or die "Cannot create $ARGV[2]:$!\n"; | |
| 13 open (HEAD, "head -n $ARGV[1] $ARGV[0]|") or die "Cannot run head:$!\n"; | |
| 14 while (<HEAD>) { | |
| 15 print OUT; | |
| 16 } | |
| 17 close OUT; | |
| 18 close HEAD; | |
| 19 |