qr mit variabler Anzahl von "Einträgen" (Allgemeines zu Perl)

[thread]17776[/thread]

qr mit variabler Anzahl von "Einträgen"

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
roli

2012-09-22 18:35
User since
2004-12-31
424 Artikel
BenutzerIn
Hallo,

ich nutze qr um Parameter mit denen mein Script aufgerufen wird im weiteren Verlauf nutzen zu können.
Nun ist ein weiterer Parameter hinzugekommen, der allerdings wie die anderen auch optional ist. Es muß doch einen eleganteren weg geben außer massiv verschachtelter if's um mein Search Pattern zusammenzusetzen.
Aktuell schaue ich mit if's ob Param1 übergeben wurde, anschließen, ob Param2 übergeben wurde, ...
in der innersten Ebene setze ich dann sowas hier zusammen:
Code (perl): (dl )

$re = qr/$param1|param2/;
Mir schwebt sowas wie "push" vor, das ich einfach nachdem ich jeden Parameter geprüft habe, ihn quasi anhängen kann.

Im Kapitel "Regexp Quote-Like Operators" in perldoc habe ich keine Lösung für mein Problem finden können.

Danke & Schönes Wochenende
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +4 replies
- Linuxer
  
  2012-09-22 18:45
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  ich versteh zwar nicht so ganz, was Du da eigentlich treibst, aber ich versuch mich mal an einer Antwort.
  
  Du könntest die Parameter in ein Array packen und aus diesem Array dann den Regex erstellen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @param; for ( qw( foo bar baz ) ) { # check whatever and push to array push @param, $_ if ( defined $_ ); } my $re = join('|', map { quotemeta($_) } @param ); $re = qr{($re)};
  
  Last edited: 2012-09-22 18:46:39 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - pq
    
    2012-09-22 19:01
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    und was ich an der stelle immer sage: wenn im array z.b. foo und foobar drinstehen, dann vorher nach länge sortieren, sodass foobar in der regex zuerst kommt.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Linuxer
      
      2012-09-22 19:47
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      guter Punkt.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - roli
    
    2012-09-24 13:36
    
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Danke, werde ich ausprobieren
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- rosti
  
  2012-09-22 19:13
  
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  
  Quote
  Nun ist ein weiterer Parameter hinzugekommen, der allerdings wie die anderen auch optional ist. Es muß doch einen eleganteren weg geben außer massiv verschachtelter if's um mein Search Pattern zusammenzusetzen.
  
  Ja, baue Dir Token's, z.b. hast Du die Parameter a,b,c und der Token ist z.B. eine Aneinanderreihung der Parameter 'abc' (Parameter a+b+c sind im Spiel). Dieses Aneinanderreihen muss beim Zusammenbau und beim Vergleich in derselben Reihenfolge gemcht werden, z.B. mit einer Sortierung. Jetzt musst Du nur noch schauen, ob es zu den Parametern einen passenden Token gibt. Die Kontrollstruktur wird dann einfacher und übersichtlicher.

View all threads created 2012-09-22 18:35.