Hi PerlMonks,
I am interested to get the output of the following perl script (p.pl) to a text file.
I have tried in several ways but I always get only the first two lines and not the
actual permutations. FH does not work when I write it in between print and join. Usually
FH is written between print and " and it nicely works. Here it does not. I am looking forward to perlmonks
for suggestions.
Here goes the script p.pl:
#!/usr/bin/perl -l
use warnings;
use strict;
use Algorithm::Permute;
###########################################################
# Opening file to write the program's output.
###################################################
open(FH, ">myPer .txt") or die "Cannot open myPer .txt";
###########################################################
my @arr = qw/A B C/;
my $N=scalar(@arr);
my $permu=2;
my $p = new Algorithm::Permute([@arr], $permu);
print"\n WELCOME to Permutation Analysis:\n
All Possible Permutations of $permu Elements out of $N .i.e. $N P $pe
+rmu:\n";
print FH "\n WELCOME to Permutation Analysis:\n
All Possible Permutations of $permu Elements out of $N .i.e. $N P $pe
+rmu:\n";
while (my(@res) = $p->next) {
do {print join("", @res);};}
while (my(@res) = $p->next) {
do {print join("", @res);};}
close FH;
exit 0;
Here goes the incomplete output of text file myPer .txt:
WELCOME to Permutation Analysis:
All Possible Permutations of 2 Elements out of 3 .i.e. 3 P2: