Perl qr// und Substitution (Allgemeines zu Perl)

[thread]19904[/thread]

Perl qr// und Substitution

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+7 replies
Gast Graf Herschel

2015-11-25 12:39
Hallo

Ich würde gerne eine Substitution s/// in einen String compilieren.
Beispiel
Code: (dl )

1 2 3 4

my $str = "Red and Blue"; my $sbs = "red/green"; my $rex = qr/$sbs/si; $str =~ s/$rex/g;
funktioniert so aber nicht. Wie kann ich das Problem lösen?

Vielen Dank für die Mühe
Last edited: 2015-11-25 14:31:18 +0100 (CET)
- +5 replies
- Muffi
  
  2015-11-25 14:40
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Hilfreich ist immer die Fehlermeldung oder was du erwartest und was stattdessen passiert.
  
  In dem Fall fehlt mir irgendwie durch was du das $rex denn ersetzt haben willst. s/irgendwas/was anderes/ heisst irgendwas ersetzen durch was anderes. Und mit fehlt hier das "was anderes"
  
  edit: Ach, du willst "red" durch "green" ersetzt haben?
  Das kannst du nicht einfach als string mit "/" übergeben.
  Ich wüsst garkeine Möglichkeit einen s/// zu kompilieren.
  Last edited: 2015-11-25 14:46:47 +0100 (CET)
  1 + 1 = 10
  - +4 replies
  - Gast Graf Herschel
    
    2015-11-25 15:48
    
    >> Ach, du willst "red" durch "green" ersetzt haben?
    Genau
    >> Ich wüsst garkeine Möglichkeit einen s/// zu kompilieren.
    Die Funktion s steht nicht im Argument von qr//, nur die Substitutionsanweisung.
    also "red/green"
    Das sollte doch irgendwie möglich sein ???
    Last edited: 2015-11-25 16:51:18 +0100 (CET)
    - +3 replies
    - Raubtier
      
      2015-11-25 20:34
      
      User since
      2012-05-04
      1077 Artikel
      BenutzerIn
      
      Warum willst du sowas überhaupt haben? Besser wäre, einen Suchstring und einen Replacement-String zu haben.
      
      Du kannst jetzt natürlich sowas machen wie
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $str = "Red and Blue"; my $sbs = "red/green"; my ($search, $replace) = split(/\//, $sbs); $str =~ s/$search/$replace/si; print "$str\n";
      
      Stellt sich nur die Frage, warum Such- und Replacestring bei dir überhaupt in einem einzigen String stehen. Denn das oben geht natürlich schief, wenn man einen / im Suchstring hat.
      
      Also: falscher Ansatz. Trenne beide Strings.
      - +2 replies
      - Gast Graf Herschel
        
        2015-11-25 21:10
        
        >> Warum willst du sowas überhaupt haben?
        Weil der user Such- und Replacement eingibt. Ein schlimmes Beispiel:
        [\-\.\'\"]/\/
        
        split wird schwierig, deshalb dachte ich an qr// um es zu kompilieren.
        Geht nicht, verstanden. Irgendwas wird mir schon noch einfallen
        Vielen Dank für deine Mühe !
        Last edited: 2015-11-25 21:22:03 +0100 (CET)
        
        Muffi
        
        2015-11-26 08:38
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Lass dem User halt 2 Sachen eingeben.
        Was er sucht und durch was es ersetzt werden soll.
        
        Im aller schlimmsten Fall ging wohl auch ein eval. Aber mit Userinput könnt sowas gefährlich werden.
        1 + 1 = 10
- Linuxer
  
  2015-11-25 21:03
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  vielleicht hilft ein anderer Ansatz?
  Baue einen Hash auf, der die Suchbegriffe mit den Ersetzungen verknüpft.
  Baue aus den Suchbegriffen einen Regex auf.
  Lasse dann einen gefundenen Suchbegriff durch den entsprechenden Ersetzungswert ersetzen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  my %replacer = ( foo => "Shrek", bar => "Fiona", ); my $regex = join '|', keys %replacer; $regex = qr{($regex)}; my $text = 'foo runs for bar.'; $text =~ s/$regex/$replacer{$1}/ig; print $text, "\n";
  
  Last edited: 2015-11-25 21:06:25 +0100 (CET)
  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!

View all threads created 2015-11-25 12:39.