Wie kann ich alle möglichen Permutationen von einem regulären Perl-Ausdruck generieren?

Question

Ich weiß, dass Sie alle Permutationen aus einer Liste generieren können, zum Beispiel glob oder Algorithm::Permute - aber wie generieren Sie alle möglichen Permutationen von einem regulären Ausdruck?

ich tun möchte, wie:

@perms = permute("/\s[A-Z][0-9][0-9]/"); 
sub permute($regex) { 
    # code - put all permutations of above regex in a list 
    return @list; 
} 

Answer 1

Section 6.5 (PDF) in Higher Order Perl See. Überlegen Sie, ob Sie das gedruckte Buch kaufen: Es ist ein Kunstwerk.

Es gibt auch Regexp::Genex auf CPAN.

Answer 2

Jede mögliche Implementierung sollte eine vernünftige maximale Länge für die erzeugten Zeichenfolgen berücksichtigen. Wenn es eine + oder * irgendwo in diesem Regexp gibt, könnten die Möglichkeiten ohne Ende sein. Regexp::Genex berücksichtigt dies.

Answer 3

Keine der Lösungen, die ich angetroffen habe, handhaben Lookaheads; Regexp :: Genex nicht, auch nicht die Lösung hier:

http://www.mail-archive.com/spamassassin-talk@lists.sourceforge.net/msg31051.html

Während ich damit einverstanden, dass HOP ein tolles Buch, es ist wirklich nur mit einem kleinen Teil der regulären Ausdrücke „out-of-the-Umgang Box".

Wenn jemand von einer weiß, dass Lookaheads behandelt, würde das groß sein:/

Answer 4

nur falls jemand es nützlich findet:

 
*$ cat bitfizz.pl* 
#!/usr/bin/perl 
use strict; 
if (($#ARGV+1)!=2) { print "usage $0 \n"; } 
my @r = &bitfizz($ARGV[0], $ARGV[1]); 
for(@r){ print "$_\n"; } 
sub bitfizz() { 
    $_[0]=join(",", split(//, $_[0])); 
    for(my $i=1; $i<=$_[1]; $i+=1) { $_=$_."{$_[0]}"; } 
    @r=glob($_); 
} 

dann können Sie tun:

 
*perl bitfizz.pl "01" 8* 
00000000 
00000001 
00000010 
00000011 
00000100 
--snip-- 

Alle Permutationen eines Bytes in Bits oder

 
*perl bitfizz.pl "ABCDEF" 2* 

zum beispiel