/tools/filters/headWrapper.pl

https://bitbucket.org/h_morita_dbcls/galaxy-central · Perl · 19 lines · 11 code · 5 blank · 3 comment · 2 complexity · 01cac2b965ea53fff978113e47fb61a3 MD5 · raw file 

    

  1. #! /usr/bin/perl -w
    2. 

  2. 

  3. use strict;
    4. 

  4. use warnings;
    5. 

  5. 

  6. # a wrapper for head for use in galaxy
    7. 

  7. # headWrapper.pl [filename] [# lines to show] [output]
    8. 

  8. 

  9. die "Check arguments" unless @ARGV == 3;
    10. 

  10. die "Line number must be an integer\n" unless $ARGV[1]=~ m/^\d+$/;
    11. 

  11. 

  12. open (OUT, ">$ARGV[2]") or die "Cannot create $ARGV[2]:$!\n";
    13. 

  13. open (HEAD, "head -n $ARGV[1] $ARGV[0]|") or die "Cannot run head:$!\n";
    14. 

  14. while (<HEAD>) {
    15. 

  15.     print OUT;
    16. 

  16. }
    17. 

  17. close OUT;
    18. 

  18. close HEAD;
    19.