Mercurial > repos > devteam > add_value
view fixedValueColumn.pl @ 1:4c6ec423baae draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-devteam/tree/master/tools/add_value commit 4066016ffafd7918ba9826db4f3c6fb41315e942
author | devteam |
---|---|
date | Fri, 29 Sep 2023 15:06:25 +0000 |
parents | 787fa5c2c738 |
children |
line wrap: on
line source
#! /usr/bin/perl -w use strict; use warnings; # fixedValueColumn.pl $input $out_file1 "expression" "iterate [yes|no]" my ($input, $out_file1, $expression, $iterate) = @ARGV; my $i = 0; my $numeric = 0; die "Check arguments\n" unless @ARGV == 4; open (DATA, "<$input") or die "Cannot open $input:$!\n"; open (OUT, ">$out_file1") or die "Cannot create $out_file1:$!\n"; if ($expression =~ m/^\d+$/) { $numeric = 1; $i = $expression; } while (<DATA>) { chop; if ($iterate eq "no") { print OUT "$_\t$expression\n"; } else { print OUT "$_\t$i\n" if $numeric == 1; print OUT "$_\t$expression-$i\n" if $numeric == 0; ++$i; } } close DATA; close OUT;