Ersetzen von Zeilen mit Strings und Zahlen in längerem File (gelöst) (Allgemeines zu Perl)

[thread]17619[/thread]

Ersetzen von Zeilen mit Strings und Zahlen in längerem File [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

Teilbaum:
shell, einzeiler (11 Artikel) 2012-08-03 09:49

+22 replies
Erin

2012-08-01 17:03
User since
2012-08-01
7 Artikel
BenutzerIn
Hallo,

ich bin ein Perl-Newbie und brauche Hilfe bei folgendem Problem:

Ich möchte in vielen Files mit der Endung "cutout.wrl", z.B. "a1_cutout.wrl", "a2_cutout.wrl", usw. jeweils 3 Zeilen ändern:

Statt:
position 20 0 100
orientation 0.0 -0.8 0 -0.2
fieldOfView 0.75

soll da nacher stehen:
position 0 -14 120
orientation 0 -0.3 10 0
fieldOfView 0.23

Ich habe ziemlich vieles erfolglos probiert. Laut vieler Internet-Foren wäre sowas einfach ein Einzeiler:
Code: (dl )

1 2

#!/usr/bin/ perl -p -e s/$v1/$v2/g $v3;
Damit soll man dann alle Files im aktuellen Ordner mit der Endung $v3 durchgehen können und $v1 mit $v2 ersetzen.

Ich habe z.B. Folgendes probiert:
Code: (dl )

1 2 3 4 5 6

#!/usr/bin/ perl use strict; use warnings; my $oldpos = "position 20 0 100"; my $pos = "0 -14 120"; my $ending = "cutout.wrl"; -p -e s/$oldpos/$pos/g $ending
Es funktioniert leider gar nicht. Ich habe auch verschiedene Routinen versucht, in denen ich Files zum Schreiben öffne und dann mit while arbeite usw.

"EIGENTLICH" sollte das doch einfach sein, oder?

Vielen Dank! Erin
Last edited: 2012-08-01 17:04:31 +0200 (CEST)
- +2 replies
- Linuxer
  
  2012-08-01 17:18
  
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  
  Nochmal zur Kontrolle:
  
  - Du hast einen Haufen Dateien, in denen jeweils die zuerst genannten drei Zeilen stehen.
  - Diese drei Zeilen willst Du durch die als zweites genannten drei Zeilen ersetzen.
  - Es soll also wirklich ein statischer Text durch einen anderen statischen Text in allen Dateien ersetzt werden?
  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!
  - Erin
    
    2012-08-01 17:24
    
    User since
    2012-08-01
    7 Artikel
    BenutzerIn
    
    Genauso wie du sagst.
- +19 replies
- Linuxer
  
  2012-08-01 17:24
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Ich denke, das Hauptproblem besteht darin, dass Deine Texte aus mehreren Zeilen bestehen und die Dateien standardmäßig zeilenweise gelesen werden.
  In der Hoffnung, dass die Daten-Dateien nicht zu groß sind, könnte man sie komplett einlesen und dann die Ersetzung machen.
  
  Beispiel:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  # Kommando zum Ersetzen ($ Am Anfang ist der Systemprompt) $ perl -i.bak -p -e 'BEGIN { $/=undef; $search = "abc\nabc\nabc"; $replace = "123\n123\n123"; } s/$search/$replace/msg;' data.txt # Kontrolle ob Ersetzung geklappt hat $ cat data.txt 123 123 123 def # Kontrolle der alten Daten $ cat data.txt.bak abc abc abc def
  
  edit: Erklärungen:
  
  -i.bak führe Dateien in der Datendatei aus; lege aber vorher eine Sicherung mit Endung .bak an
  -p führe den Code als Schleife über die (i.d.R. zeilenweise) gelesenen Daten aus und gebe jeweils die Zeile wieder aus
  -e hier folgt der Code
  
  BEGIN { $/=undef; $search = "abc\nabc\nabc"; $replace = "123\n123\n123"; }
  Damit werden zu Beginn, noch vor der gewünschten Verarbeitung als Schleife einige Variable (neu) gesetzt
  $/=undef; damit wird veranlasst, dass die Datei am Stück komplett gelesen wird (man hat dann quasi nur einen Schleifendurchlauf)
  $search = "abc\nabc\nabc"; wonach soll gesucht werden (dreizeiliger String)
  $replace = "123\n123\n123"; womit soll ersetzt werden (dreizeiliger String)
  
  s/$search/$replace/msg; Der Code, der pro Schleifendurchlauf ausgeführt wird
  data.txt Die Datendatei, die verarbeitet wird
  
  edit2: überflüssiges Newline am Ende von $search & $replace entfernt
  
  edit3: PS: Der hier gezeigte Ansatz ist kein Skript, sondern ein Kommando, das auf der Kommandozeile, bzw. Shell aufgerufen wird.
  Last edited: 2012-08-01 17:34:24 +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!
  - +18 replies
  - Erin
    
    2012-08-01 17:40
    User since
    2012-08-01
    7 Artikel
    BenutzerIn
    
    Danke!
    
    Ok, bezogen auf meine Werte und Files für das Beispielfile a1_cutout.wrl habe ich jetzt probiert:
    
    Code: (dl )
    
    1 2
    
    $ perl -i.bak -p -e 'BEGIN { $/=undef; $search = "position 20 0 100\norientation 0.0 -0.8 0 -0.2\nfieldOfView 0.75\n"; $replace = "position 0 -14 120\norientation 0 -0.3 10 0\nfieldOfView 0.23\n"; } s/$search/$replace/msg;' a1_cutout.wrl
    
    Wenn ich das als Skript ausführe, erhalte ich die Fehlermeldung:
    Bareword found where operator expected at [...] near ata_1_?
    
    In der Shell direkt erhalte ich die Meldung:
    Der Befehl "$" ist entweder falsch geschrieben..usw.
    
    Bin also 1. nicht sicher, ob Ersetzung funktioniert hat und
    2. wie ich das für alle Dateien mache, die mit cutout.wrl enden.
    
    Weißt du weiter?
    
    modedit Editiert von pq: code-tags repariert
    Last edited: 2012-08-01 17:45:42 +0200 (CEST)
    - +4 replies
    - Erin
      
      2012-08-01 17:40
      
      User since
      2012-08-01
      7 Artikel
      BenutzerIn
      
      Entschuldigung, irgendwie ist Code und Text zusamengeraten!
      - +2 replies
      - Linuxer
        
        2012-08-01 17:48
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Du hast das Code-Tag nicht, bzw. falsch, geschlossen.
        
        [\code] ist falsch; richtig ist [/code].
        
        Wie ich in meinem Beitrag nacheditierte, ist das ein Kommando und kein Skript.
        Es lässt sich natürlich auch zum Skript machen; das klappt aber jetzt gerade (zeitlich) nicht.
        
        Und das $ gehört auch nicht zum Kommando, sondern ist der Systemprompt!
        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!
        
        Erin
        
        2012-08-01 17:52
        
        User since
        2012-08-01
        7 Artikel
        BenutzerIn
        
        VIelen Dank! Ich probiere morgen mal weiter. Klar, Systemprompt... Höchste Zeit für den Feierabend!!
      - Linuxer
        
        2012-08-01 22:18
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Da Du es ja gern als Skript haben willst, hier eine Lösung als Skript, das aber immer noch die Perl-Switches "zur Abkürzung" verwendet:
        
        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
        
        #! /usr/bin/perl -pi.bak # quick and dirty script # please consult perldoc perlrun for information about the used switches -p -i # or online at: http://perldoc.perl.org/perlrun.html use strict; use warnings; use vars qw( $search $replace ); # set some values at the start of program BEGIN { $search = "abc\nabc\nabc"; $replace = "123\n123\n123"; # make us read a complete file at once $/ = undef; } # the following code is run every time a new line or dataset is read # beware of the -p switch on shebang. # each modified datafile is backed up before; see -i.bak on shebang s/$search/$replace/msg;
        
        Verwendung (auf der Kommandozeile/Shell):
        
        Code: (dl )
        
        perl skript.pl *cutout.wrl
        
        Logischerweise vorher mit Testdateien ausprobieren; dann erst auf die echten Daten loslassen.
        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!
    - +13 replies
    - GUIfreund
      
      2012-08-01 20:33
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      2012-08-01T15:40:10 Erin
      
      Code: (dl )
      
      1 2
      
      $ perl -i.bak -p -e 'BEGIN { $/=undef; $search = "position 20 0 100\norientation 0.0 -0.8 0 -0.2\nfieldOfView 0.75\n"; $replace = "position 0 -14 120\norientation 0 -0.3 10 0\nfieldOfView 0.23\n"; } s/$search/$replace/msg;' a1_cutout.wrl
      
      In der Shell direkt erhalte ich die Meldung:
      Der Befehl "$" ist entweder falsch geschrieben..usw.
      
      Der Kode von Linuxer bezieht sich offenbar auf Linux. Deine Fehlermeldung deutet darauf hin, dass du Windows benutzt. Die Windows-Shell kennt nur " als Stringtrenner. Du musst also den Einzeiler umbauen (das ist das Schöne an Perl-Einzeilern):
      
      Ersetze alle "....." durch qq(.....). Falls Klammern im String vorkommen, müsstest du bei qq statt der Klammern andere Trennzeichen nehmen, die nicht im String vorkommen. Ersetze schließlich '.....' durch ".....". Der Einzeiler hat dann gute Chancen, auch unter Linux lauffähig zu sein. (Im letzten Satz ist das "Linux" kein Flüchtigkeitsfehler, der Einzeiler sollte jetzt unter beiden Plattformen laufen).
      Gruß
      GUIfreund
      - pq
        
        2012-08-01 20:39
        
        Subtree with 12 replies: shell, einzeiler
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-08-01T18:33:11 GUIfreund
        Ersetze alle "....." durch qq(.....). Falls Klammern im String vorkommen, müsstest du bei qq statt der Klammern andere Trennzeichen nehmen, die nicht im String vorkommen. Ersetze schließlich '.....' durch ".....". Der Einzeiler hat dann gute Chancen, auch unter Linux lauffähig zu sein.
        
        leider nicht. die dollarzeichen werden von der shell interpoliert innerhalb "".
        
        Editiert von pq: teilbaum
        Last edited: 2012-08-02 18:28:53 +0200 (CEST)
        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

View all threads created 2012-08-01 17:03.