[2] | 1 | #! /usr/bin/perl -w |
---|
| 2 | |
---|
| 3 | use strict; |
---|
| 4 | use warnings; |
---|
| 5 | |
---|
| 6 | # fixedValueColumn.pl $input $out_file1 "expression" "iterate [yes|no]" |
---|
| 7 | |
---|
| 8 | my ($input, $out_file1, $expression, $iterate) = @ARGV; |
---|
| 9 | my $i = 0; |
---|
| 10 | my $numeric = 0; |
---|
| 11 | |
---|
| 12 | die "Check arguments\n" unless @ARGV == 4; |
---|
| 13 | |
---|
| 14 | open (DATA, "<$input") or die "Cannot open $input:$!\n"; |
---|
| 15 | open (OUT, ">$out_file1") or die "Cannot create $out_file1:$!\n"; |
---|
| 16 | |
---|
| 17 | if ($expression =~ m/^\d+$/) { |
---|
| 18 | $numeric = 1; |
---|
| 19 | $i = $expression; |
---|
| 20 | } |
---|
| 21 | |
---|
| 22 | while (<DATA>) { |
---|
| 23 | chop; |
---|
| 24 | if ($iterate eq "no") { |
---|
| 25 | print OUT "$_\t$expression\n"; |
---|
| 26 | } else { |
---|
| 27 | print OUT "$_\t$i\n" if $numeric == 1; |
---|
| 28 | print OUT "$_\t$expression-$i\n" if $numeric == 0; |
---|
| 29 | ++$i; |
---|
| 30 | } |
---|
| 31 | } |
---|
| 32 | |
---|
| 33 | close DATA; |
---|
| 34 | close OUT; |
---|