ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/gclib/scripts/build_miRNAgff.pl
Revision: 24
Committed: Tue Jul 26 21:46:39 2011 UTC (8 years, 1 month ago) by gpertea
File size: 404 byte(s)
Log Message:
Line File contents
1 #!/usr/bin/perl
2 use strict;
3 use Getopt::Std;
4 use FindBin;use lib $FindBin::Bin;
5
6 my $usage = q/Usage:
7
8 /;
9 umask 0002;
10 getopts('o:') || die($usage."\n");
11 my $outfile=$Getopt::Std::opt_o;
12 if ($outfile) {
13 open(OUTF, '>'.$outfile) || die("Error creating output file $outfile\n");
14 select(OUTF);
15 }
16 # --
17
18
19
20 # --
21 if ($outfile) {
22 select(STDOUT);
23 close(OUTF);
24 }
25
26 #************ Subroutines **************

Properties

Name Value
svn:executable *