Mercurial > repos > devteam > remove_beginning

annotate remove_beginning.pl @ 0:19d2ccf95640 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/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
author devteam
date Mon, 09 Nov 2015 11:51:52 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
1 #! /usr/bin/perl -w
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
2
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
3 use strict;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
4 use warnings;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
5
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
6 # Removes the specified number of lines from the beginning of the file.
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
7 # remove_beginning.pl [input] [num_lines] [output]
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
8
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
9 die "Check arguments" unless @ARGV == 3;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
10
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
11 my $inputfile = $ARGV[0];
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
12 my $num_lines = $ARGV[1];
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
13 my $outputfile = $ARGV[2];
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
14
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
15 my $curCount=0;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
16
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
17 my $fhIn;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
18 open ($fhIn, "< $inputfile") or die "Cannot open source file";
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
19
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
20 my $fhOut;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
21 open ($fhOut, "> $outputfile");
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
22
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
23 while (<$fhIn>)
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
24 {
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
25 $curCount++;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
26 if ($curCount<=$num_lines)
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
27 {
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
28 next;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
29 }
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
30 print $fhOut $_;
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
31 }
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
32 close ($fhIn) or die "Cannot close source file";
19d2ccf95640 planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/remove_beginning commit 5a4e0ca9992af3a6e5ed2b533f04bb82ce761e0b
devteam
parents:
diff changeset
33 close ($fhOut) or die "Cannot close output file";