in reply to Variant permutation
Can anyone suggest a more linear course of action?
Not me. I can suggest something stupid though.
Not me. I can suggest something stupid though.
My pet toy at the moment, genexes.
(Generating regex strings with a regex)
#!/usr/bin/perl -wl use strict; use re "eval"; my @array = ( [ 'a', 'b', 'c' ], [ 1, 2 ], ['x', 'y', 'z'], [7, 8, 9] ); my $re; map { $re .= "(\n". '((?{$^R."' . join('"})|(?{$^R."', @$_) . qq'"}))\n'; } @array; $re .= ")?" x @array; $re .= '(?{ push @_, $^R })(?!)'; print $re; ''=~/$re/x; print for(grep defined($_), @_); __END__
In Section
Seekers of Perl Wisdom