Mercurial > repos > devteam > show_beginning

annotate headWrapper.pl @ 0:a15394f3d04f draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
1 #! /usr/bin/perl -w
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
2
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
3 use strict;
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
4 use warnings;
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
5
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
6 # a wrapper for head for use in galaxy
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
7 # headWrapper.pl [filename] [# lines to show] [output]
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
8
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
9 die "Check arguments" unless @ARGV == 3;
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
10 die "Line number must be an integer\n" unless $ARGV[1]=~ m/^\d+$/;
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
11
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
12 open (OUT, ">$ARGV[2]") or die "Cannot create $ARGV[2]:$!\n";
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
13 open (HEAD, "head -n $ARGV[1] $ARGV[0]|") or die "Cannot run head:$!\n";
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
14 while (<HEAD>) {
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
15 print OUT;
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
16 }
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
17 close OUT;
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
18 close HEAD;
a15394f3d04f planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/show_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
19