TJCooper has asked for the wisdom of the Perl Monks concerning the following question:
Hi, I'm currently working on the following script:
use strict; use warnings; my $usage = "Usage: $0 <infile.txt>\n"; my $infile = shift or die $usage; use File::Basename; my $DIR = dirname($infile); my $outfile = $DIR . "/Results.txt" or die $usage; open (my $data, "<", $infile) or die "There was a problem opening: $!" +; my @primers = <$data>; close $data; chomp @primers; use Algorithm::Combinatorics qw(combinations); my $strings = \@primers; my $iter = combinations($strings, 2); open(my $fh, '>', $outfile); while (my $c = $iter->next) { print $fh @$c, "\n"; } print ("Finished. The results are located at $outfile\n\n");
I was wondering if there was a simple method for allowing outfile to be sequentially numbered if an existing file is found i.e. Results.txt, Results1.txt, Results2.txt? I've seen a few methods around however they do seem quite long and i'm curious to see if there's an available module or easier way to do it! Thanks!
Back to
Seekers of Perl Wisdom