Opened by Tobias at 2012-10-02 09:05
Hallo zusammen,
ich programmiere schon lange mit PHP, will mich jetzt aber zwecks Textmanipulation in Perl einarbeiten.
In meiner ersten Aufgabe muss ich eine riesige Datei mit "suchen und ersetzen" bearbeiten.
Dazu habe ich schon folgenden Code:
Aufgerufen wird das Script wie folgt:
Nun habe ich aber ein Problem, welches ich mit meinem Grundgerüst nicht lösen kann... :-(
Und zwar muss ich eine komplette Zeile anhand eines Suchstrings löschen, und dann in der Zeile davor das letzte Zeichen.
Hat da jemand eine Idee für mich?
Last edited: 2012-10-02 09:16:36 +0200 (CEST)
ich programmiere schon lange mit PHP, will mich jetzt aber zwecks Textmanipulation in Perl einarbeiten.
In meiner ersten Aufgabe muss ich eine riesige Datei mit "suchen und ersetzen" bearbeiten.
Dazu habe ich schon folgenden Code:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9
#!/usr/bin/perl foreach (<>) { chomp; s/ENGINE=MyISAM/ENGINE=InnoDB/; print $_."\n"; }
Aufgerufen wird das Script wie folgt:
Quoteperl ./db_convert.pl dump.sql
Nun habe ich aber ein Problem, welches ich mit meinem Grundgerüst nicht lösen kann... :-(
Und zwar muss ich eine komplette Zeile anhand eines Suchstrings löschen, und dann in der Zeile davor das letzte Zeichen.
Hat da jemand eine Idee für mich?
Last edited: 2012-10-02 09:16:36 +0200 (CEST)