Mercurial > repos > mir-bioinf > column_range_string_generator
view ColRangeGenerator/ColRangeGenerator.pl @ 0:358c9e0b9154 draft default tip
Initial upload
author | mir-bioinf |
---|---|
date | Fri, 24 Apr 2015 10:56:37 -0400 |
parents | |
children |
line wrap: on
line source
#! /usr/bin/perl -w use strict; use warnings; use Text::ParseWords; ##Args are col range and output file name ONLY. no spaces!! die "Please check arguments, probably spaces in column range!\n" unless @ARGV == 2; my $colrange = $ARGV[0]; my $outputfile = $ARGV[1]; my @cols = split(/-/,$colrange); die "Improper range format: probably missing - (hyphen) or it's at the end.\n" unless exists($cols[1]); my @start = split('C',uc($cols[0]),2); my @stop = split('C',uc($cols[1]),2); die "Improper column format: missing preceding C for col number.\n" unless (exists($start[1]) && exists($stop[1])); my $begin = $start[1]; my $end = $stop[1]; my $fhOut; open ($fhOut, "> $outputfile"); for (my $i=$begin; $i<$end; $i++) { print $fhOut "c$i,"; } print $fhOut "c$end\n"; close ($fhOut) or die "Cannot close output file\n";