Parametersuche und/oder Parameterersetzen (Fragen zu Perl-Modulen)

[thread]19065[/thread]

Parametersuche und/oder Parameterersetzen

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+9 replies
MarkusH

2014-05-02 11:20

User since
2012-04-08
161 Artikel
BenutzerIn

Hallo,

ich habe gerade im CPAN nach einem Modul gesucht, dass Suchen und/oder Ersetzen in Abhängigkeit von Parametern durchführt. Fündig bin ich nicht geworden. Gibt es diesbezüglich nichts (was für mich erstaunlich wäre) oder suche ich mit den falschen Begriffen (Parameter, Param)?
$q =~ /(bb|[^b]{2})/
- +8 replies
- pq
  
  2014-05-02 11:32
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  was heisst das denn genau, "in Abhängigkeit von Parametern"?
  
  suchen und ersetzen in einer datei geht ganz simpel mit
  perl -pi -e's/foo/bar/' datei1 datei2
  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
  - +7 replies
  - MarkusH
    
    2014-05-02 12:00
    
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    Ja, das ist mir bekannt, dass einfaches Suchen und Ersetzen in Perl ganz simpel geht.
    
    Ich versuche es mal an einem simplen Beispiel zu erklären.
    Es existieren n Dateien, in denen Werte ersetzt werden müssen.
    Welche Werte genau gemeint sind steht in einer "Parameterdatei".
    
    Beispiel:
    In den n Dateien kommt möglicherweise folgender Inhalt vor:
    Wert1=10 Wert2=20 Wert3=30 Wert4=4096 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=10 Wert2=20 Wert3=30 Wert4=4097 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=10 Wert2=20 Wert3=30 Wert4=4098 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=10 Wert2=20 Wert3=30 Wert4=4099 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=10 Wert2=20 Wert3=30 Wert4=4090 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    usw.
    
    In der Parameterdatei steht dann beispielsweise:
    Alt; Neu; Bedingung
    Wert2=20; Wert2=25; Wert4=4097
    Wert1=10; Wert1=13; Wert4=4099
    
    Als Ergebnis soll dann rauskommen:
    Wert1=10 Wert2=20 Wert3=30 Wert4=4096 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=10 Wert2=25 Wert3=30 Wert4=4097 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=10 Wert2=20 Wert3=30 Wert4=4098 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=13 Wert2=20 Wert3=30 Wert4=4099 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    Wert1=10 Wert2=20 Wert3=30 Wert4=4090 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
    usw.
    
    Ich hab das gestern Quick & Dirty schon mal umgesetzt - Die Parameterliste entsprechend nach Wert4 in einen Hash eingelesen und dann halt ersetzt.
    Aber eine gescheite Lösung wäre mir schon recht. Deshalb hab ich erstmals nach einem Modul geschaut.
    $q =~ /(bb|[^b]{2})/
    - +5 replies
    - pq
      
      2014-05-02 12:16
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das ist aber schon sehr spezifisch. es kann ja nicht für jeden anwendungsfall ein modul geben. ich hätte mir jetzt was anderes vorgestellt.
      das ist ja nicht einfach suchen und ersetzen, sondern ersetzen bei einer bedingung, die aber auch keine einfache regex ist, sondern ein feld in einer zeile, wobei die felder mit leerzeichen getrennt sind und der name des feldes plus '=' und wert dann ein feld ergibt.
      du siehst, schon sehr speziell.
      stell dir vor, wie ein modul aussehen würde, das das gewünschte tut. wie würdest du es benutzen wollen?
      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
      - +4 replies
      - MarkusH
        
        2014-05-02 12:27
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        Ehrlich gesagt, ich habe mir darüber noch keinen Kopp gemacht.
        Deshalb auch erstmal im CPAN nach eventuell vorhandenem suchen. Eine Suche nach Conditional ergab auch keine Treffer.
        
        Also bleibt nur der Eigenbau.
        $q =~ /(bb|[^b]{2})/
        
        +3 replies
        
        payx
        
        2014-05-02 15:58
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
        
        #!/usr/bin/perl use strict; use warnings; my @rules = ( [ {Wert2 => 20}, {Wert2 => 25}, {Wert4 => 4097} ] , [ {Wert1 => 10}, {Wert1 => 13}, {Wert4 => 4099} ] ); while (my $row = <DATA>) { chomp $row; my %values = split /[= ]/, $row; for my $rule (@rules) { my ($alt, $neu, $bed) = @{$rule}; my $alt_key = (keys %{$alt})[0]; my $neu_key = (keys %{$neu})[0]; my $bed_key = (keys %{$bed})[0]; # $alt ist faktisch entweder auch eine Bedingung oder verzichtbar! if ($values{$alt_key} eq $alt->{$alt_key} and $values{$bed_key} eq $bed->{$bed_key}) { $values{$neu_key} = $neu->{$neu_key}; } } for my $key (sort keys %values) { print "$key=$values{$key} "; } print "\n"; } __DATA__ Wert1=10 Wert2=20 Wert3=30 Wert4=4096 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=10 Wert2=20 Wert3=30 Wert4=4097 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=10 Wert2=20 Wert3=30 Wert4=4098 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=10 Wert2=20 Wert3=30 Wert4=4099 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=10 Wert2=20 Wert3=30 Wert4=4090 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
        
        Code: (dl )
        
        1 2 3 4 5
        
        Wert1=10 Wert2=20 Wert3=30 Wert4=4096 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=10 Wert2=25 Wert3=30 Wert4=4097 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=10 Wert2=20 Wert3=30 Wert4=4098 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=13 Wert2=20 Wert3=30 Wert4=4099 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90 Wert1=10 Wert2=20 Wert3=30 Wert4=4090 Wert5=50 Wert6=60 Wert7=70 Wert8=80 Wert9=90
        
        Naja :-)
        
        +2 replies
        
        MarkusH
        
        2014-05-03 09:49
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        Hallo payx!
        
        Vielen Dank für Deinen Vorschlag. Ich hätte jetzt keinen Code erwartet.
        Bin total begeistert von Deiner Zeile 15 :-)
        
        Im Moment habe ich noch etwas Verständnisschwierigkeiten mit der Schleife in Zeile 17. Ist die Bedingung in Zeile 26 nicht immer erfüllt?
        Ich werde mir das nochmals genauer anschauen.
        $q =~ /(bb|[^b]{2})/
        
        payx
        
        2014-05-06 09:36
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo MarkusH,
        
        2014-05-03T07:49:19 MarkusH
        Im Moment habe ich noch etwas Verständnisschwierigkeiten mit der Schleife in Zeile 17.
        
        Die Regelsätze habe ich in ein AoAoH gepackt. Hier wird bei der Verarbeitung der Input-Zeilen jeweils über die einzelnen Regeln geloopt, und die Regeln werden einzeln geprüft.
        
        2014-05-03T07:49:19 MarkusH
        Ist die Bedingung in Zeile 26 nicht immer erfüllt?
        
        Hier werden zwei mit and verknüpfte Bedingungen geprüft, nämlich ob entsprechend Deiner Parameterdatei ("Alt; Neu; Bedingung") "Alt" und "Bedingung" zum aktuellen Datensatz passen. (Ich deute hier "Alt" auch als Bedingung.) Wenn beide passen, wird die Ersetzung ausgeführt.
        
        Alles klar?
        
        Mein Code-Beispiel ist weder besonders elegant noch performant und höchstwahrscheinlich nicht praxistauglich, denn praktische Anwendungsfälle sind ja doch meist anders beschaffen, als solche konstruierten Beispiele. (Zeile 15 klappt z.B. nur, wenn die Werte nie Leerzeichen oder = enthalten usw.)
        
        Grüße
        payx
    - Muffi
      
      2014-05-03 22:10
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Einfach so?
      
      Code (perl): (dl )
      
      $line =~ s/\bWert2=20\b/Wert2=25/ if $line =~ /\bWert4=4097\b/;
      
      1 + 1 = 10

View all threads created 2014-05-02 11:20.