Neues Pattern Matching (gelöst) (Allgemeines zu Perl)

[thread]18788[/thread]

Neues Pattern Matching [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+14 replies
Speedriff

2013-12-03 13:12
User since
2013-11-25
39 Artikel
BenutzerIn
Hi Leute, ich mal wieder ;-)

Stehe vor einem neuen Problem:
Wollte mir ein kleines Hilfsskript schreiben um nicht so viel tippen zu müssen.
Eine CSV Datei (test.csv) sieht folgendermaßen aus:
Code: (dl )

1 2 3 4 5

MessID1 MessID2 MessID3 MessID4 ...
Diese Datei möchte ich so bearbeiten damit sie anschließend so aussieht:
Code: (dl )

1 2 3 4 5

$temp =~ s/Item 1/MessID1/; $temp =~ s/Item 2/MessID2/; $temp =~ s/Item 3/MessID3/; &temp =~ s/Item 4/MessID4/; ...
Den entstehenden Code würde ich anschließend in ein neues Skript kopieren und spare mir somit massig an Schreibarbeit, denn es gibt einige hundert MessIDs in der test.csv.
Mit dem entstehenden Skript sollen dann für andere Dateien jeweils das fortlaufend nummerierte "Item" in die MessIDs umgewandelt werden.
Hoffe ich versteht wie ich das meine.

Mein Ansatz (der leider garnichts bewirkt, allerdings auch keinen Fehler bringt) ist folgender:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl -w use strict; use IO::All; my $datei_in = '/home/ordner/test.csv' my $datei < io("$datei_in"); my $z = 1; my $ersetzung ='$temp =~ s/Item'; while($datei =~ s/^(.*)$/$ersetzung $z\/$1;/g) {$z++} my $datei_out = $datei_in $datei_out =~ s/\.csv/_geaendert\.csv/; $datei >> io("$datei_out");
Was habe ich übersehen dass es nicht funktioniert? Er schreibt zwar eine neue Datei, jedoch steht wieder genau dasselbe drin wie in der Urpsrungsdatei...
Vieleicht habt ihr eine Idee was man besser machen könnte :-)
Gruß,
Speedriff
Last edited: 2013-12-03 14:55:28 +0100 (CET)
- +2 replies
- payx
  
  2013-12-03 13:27
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Speedriff,
  
  2013-12-03T12:12:17 Speedriff
  
  Code: (dl )
  
  1 2 3
  
  $temp =~ s/Item 1/MessID1/; $temp =~ s/Item 2/MessID2/; ...
  
  das war zwar nicht die Frage, aber kannst Du hier nicht einfach schreiben: s/Item (\d+)/MessID$1/;?
  
  Grüße
  payx
  - Speedriff
    
    2013-12-03 13:35
    
    User since
    2013-11-25
    39 Artikel
    BenutzerIn
    
    Leider nicht, statt "MessID1" steht ein wesentlich komplexerer Term da, jede Zeile ist anders und es gibt keine "Logik" dahinter, mit der man arbeiten könnte. Habe nur "MessID" geschrieben, weil es hier dann einfacher zu lesen ist...
- +11 replies
- Muffi
  
  2013-12-03 14:36
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Damit man mal anfangen kann:
  
  - use strict; fehlt
  - use warnings; fehlt
  - $file nicht definiert
  - "my" bei $temp fehlt
  - "my" bei $z fehlt
  - In der Regex (wie schon mal erwähnt) rechts kein \1 sondern $1 verwenden
  - g-modifier fehlt (unhübsch, funktioniert in der Konstellation aber zufällig trotzdem)
  
  Unhübsches/Unglückliches:
  - den $temp im String und die variable $temp gleich zu benennen. temp ist eh recht unpassend, da es nichts tempiges ist.
  - $file mitten im Skript umbiegen. Leg halt 2 variablen $file_in, $file_out oder was auch immer an.
  
  edit: Und wenn das alles gut ausschaut (und erst dann) guck dir mal die restlichen modifier an, dies bei Regexps so gibt.
  
  edit2: Ich bin aber trotzdem erstmal der Meinung, dass dieses Code-vorgenerieren gut für statische Sprachen ist. Perl ist dynamsich, ich hatte noch nie einen Fall, wo ich sowas gebraucht hätte.
  Last edited: 2013-12-03 14:56:51 +0100 (CET)
  1 + 1 = 10
  - +10 replies
  - Speedriff
    
    2013-12-03 14:56
    
    User since
    2013-11-25
    39 Artikel
    BenutzerIn
    
    ist es so besser? :-)
    
    Wie würdest du das Problem dann lösen?
    Es geht ja letztendlich darum, in viele Dateien, in denen immer diese "Item [zahl]" vorkommt, dieses durch die jeweilige MessID zu ersetzen. Da ich aber sehr viele von denen habe, müsste ich ja für jedes "Item [zahl]" und der dazugehörigen MessID, eine eigene Suchen/Ersetzen Funktion schreiben.
    Ich wollte mir das eben einfach machen und den Code automatisch generierern. Den erzeugten Code würde ich dann in einem anderen Skript verwenden (und zwar in dem, das tatsächlich für die Ersetzungen zuständig ist).
    Last edited: 2013-12-03 15:09:00 +0100 (CET)
    - +9 replies
    - Muffi
      
      2013-12-03 15:06
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Super :)
      Nun sieht man auch, dass $datei_in ein ganz normaler string ist, da kannst du die "" beim laden und schreiben weglassen.
      
      ansonsten: warum nicht sowas?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      my @mess_ids = qw( MessID1 MessID2 MessID3 MessID4 ); for my $id (@mess_ids) { # und hier die Ersetzung }
      
      Das erspart das Code vorgenerieren.
      
      edit: ~~alternativ~~ (war Quark)
      Last edited: 2013-12-03 15:18:18 +0100 (CET)
      1 + 1 = 10
      - +4 replies
      - Speedriff
        
        2013-12-03 15:31
        
        User since
        2013-11-25
        39 Artikel
        BenutzerIn
        
        hmm, also das ergibt für mich grad noch keinen Sinn...
        In welches Thema müsste ich mich denn da einlesen? Sprich, wie soll das prinzipiell funktionieren?
        
        +3 replies
        
        Muffi
        
        2013-12-03 15:36
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich weiß nicht genau für was das zum Schluss gut sein soll, drum sag bescheid, wenn ichs falsch verstanen habe.
        
        Du hast eine csv mit Zeilen. Jede Zeile erzeugt eine Zeile (Regex) Perlcode und dieser wird dann komplett in ein "richtiges" Programm kopiert, das die Ersetzungen macht.
        
        Du kannst genauso gut die Zeilen der csv-Datei in das richtige Programm kopieren in ein my @array = qw(Whitespace-gesplittete-liste)
        Das Array dann durchlaufen und die Ersetzung machen.
        1 + 1 = 10
        
        Speedriff
        
        2013-12-03 15:48
        
        User since
        2013-11-25
        39 Artikel
        BenutzerIn
        
        ja das ist richtig!
        ok, ich versuche die methode mal. Das ist wohl auch eine "schönere" Lösung. Weil ich eben noch nicht viel Erfahrung in Perl habe, wollte ich die Funktionen benutzen, die ich schon kenne.
        
        Speedriff
        
        2013-12-03 16:34
        
        User since
        2013-11-25
        39 Artikel
        BenutzerIn
        
        ja das ist richtig!
        ok, ich versuche die methode mal. Das ist wohl auch eine "schönere" Lösung. Weil ich eben noch nicht viel Erfahrung in Perl habe, wollte ich die Funktionen benutzen, die ich schon kenne.
        
        Super, hat geklappt! Funktioniert genauso wie es soll! :-)
        Vielen Dank!
        
        Gruß,
        Speedriff
      - +4 replies
      - clms
        
        2013-12-03 15:39
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2013-12-03T14:06:00 Muffi
        Super :)
        Nun sieht man auch, dass $datei_in ein ganz normaler string ist, da kannst du die "" beim laden und schreiben weglassen.
        
        ansonsten: warum nicht sowas?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my @mess_ids = qw( MessID1 MessID2 MessID3 MessID4 ); for my $id (@mess_ids) { # und hier die Ersetzung }
        
        Das erspart das Code vorgenerieren.
        
        edit: ~~alternativ~~ (war Quark)
        
        Wenn "Item n" immer durch die n-te Zeile der CSV-Datei ersetzt werden soll, warum dann nicht gleich so etwas (ungetestet):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        ... open(my $csv_fh, "<",$Datei_in) or die "...: $!"; my @csv_lines = map {chomp;} <$csv_fh>; my $temp = ...; # string in which "Item n" has to be replaced $temp =~ s/Item (\d+)/$csv_line[$1-1]/ge; # replace "Item 1" with $csv_line[0]
        
        Dann brauchst Du $temp nicht für jede Zeile im CSV-File erneut durchsuchen.
        
        Speedriff
        
        2013-12-03 15:50
        
        User since
        2013-11-25
        39 Artikel
        BenutzerIn
        
        ja der Grund liegt einfach darin, dass ich nicht alle Methoden kenne um sowas zu erreichen :-) Aber sieht auch nach ner schlanken Methode aus!
        
        +2 replies
        
        Linuxer
        
        2013-12-03 21:31
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Kleiner Tipp: perlfunc chomp kann auch mit Arrays umgehen. Das spart den map Aufwand:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        #! /usr/bin/perl use strict; use warnings; my @array = ( "1\n", "2\n", "3\n", ); print "Kontrolle 1: >>@array<<\n"; chomp(@array); # mach die "\n" weg... print "Kontrolle 2: >>@array<<\n";
        
        Code: (dl )
        
        1 2 3 4 5
        
        Kontrolle 1: >>1 2 3 << Kontrolle 2: >>1 2 3<<
        
        Zeilen in Array lesen; chomp(Array). Fertig.
        Last edited: 2013-12-03 21:33:00 +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!
        
        clms
        
        2013-12-04 10:36
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2013-12-03T20:31:59 Linuxer
        Kleiner Tipp: perlfunc chomp kann auch mit Arrays umgehen. Das spart den map Aufwand.
        
        Danke für den Tipp!
        
        Der Code-Schnipsel würde dann so aussehen
        
        Code (perl): (dl )
        
        1 2
        
        my @csv_lines = <$csv_fh>; chomp @csv_lines;
        
        Das ist wirklich viel übersichtlicher.
        
        Wenn ich in den letzten Jahren perlfunc chomp genutzt habe, dann in Konstrukten wie
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        while (<$fh_in>) { next if m/.../; last if m/.../; chomp; ... }
        
        wo man es eh nur für eine Zeile brauchte.

View all threads created 2013-12-03 13:12.