Re: Auspaltung eines Suchmuster-String mit Perl

On Fri, Apr 08, 2005 at 12:47:07AM +0200, Bastian Schern wrote:
> 
> wie kann ich mit Perl einen Suchmuster-String in all seine
> Möglichkeiten aufspalten?

split.

> Okay, das hat bestimmt keiner verstanden. ;-)

Jep.

> Ich habe folgenden String:
> 123ZZ6 (Dabei steht Z für alle zahlen von 0...2)
> 
> Wie stelle ich das am schlausten an?

Regexp:

if ( /^...([0-2][0-2])./ ) {
	switch ( $1 ) {
	   case "00":
	      ...
	      break;
	   case "01":
	      ...
	      break;
	   default:
	      ...
	      break
	}
}


Falls du eine Permutation meinst, also so viele Strings herstellen
willst, wie deine Vorgabe hergibt, so macht man das mit
verschachtelten Schleifen:

foreach my $i ( 0..2 ) {
  foreach my $j ( 0..2 ) {
     print "123${i}${j}6\n";
  }
}

-- 
Peter

-- 
Um die Liste abzubestellen, schicken Sie eine Mail an:
    [email protected]
Um eine Liste aller verfügbaren Kommandos zu bekommen, schicken
Sie eine Mail an: [email protected]