Einzeilerfehler (gelöst) (Allgemeines zu Perl)

[thread]16024[/thread]

Einzeilerfehler [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+3 replies
lukastonner

2011-03-01 19:09
User since
2010-02-07
47 Artikel
BenutzerIn
Hallo,
Ich downloade und bearbeite mit der ksh eine Textdatei die etwa diesen Inhalt hat:
Code: (dl )

1 2 3

/inputfile/data/xxx/yyy/update/dateiname1_20110128.txt,123,LED,31.... /inputfile/data/xxx/yyy/update/dateiname12_20110127.txt,128,EPF,11.... ...
Die Länge der Zeilen und der Dateiname varriiert,- doch vor dem .txt steht immer das Datum,- dies möchte ich kopieren und in den Pfad hinter update/ einfügen.
und das soll rauskommen:
Code: (dl )

1 2

/inputfile/data/xxx/yyy/update/20110128/dateiname1_20110128.txt,123,LED,31.... /inputfile/data/xxx/yyy/update/20110127/dateiname12_20110127.txt,128,EPF,11....
Ich habe ein Einzeiler in Perl implementiert und die Ausgabe ist von der Struktur her (fast) so wie ich sie haben möchte, nur kommen alle Zeilen doppelt vor.
Der verwendete Codeschnipsel:
Code: (dl )

perl -p -i.old -nle 's/\/(\w+)(\d{8})/\/\2\/\1\2/;print $_;' $inputdirectory/update.txt
Ist das robust was ich da mache und kann mir jemand sagen wieso die Zeilen in der bearbeiteten Datei alle doppelt vorkommen?

Vielen Dank im voraus....
- +2 replies
- FIFO
  
  2011-03-01 19:25
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  2011-03-01T18:09:33 lukastonner
  Hallo,
  
  Code: (dl )
  
  perl -p -i.old -nle 's/\/(\w+)(\d{8})/\/\2\/\1\2/;print $_;' $inputdirectory/update.txt
  
  schreib mal nur
  
  Code: (dl )
  
  perl -pi.old -e 's~(/\w+)(\d{8})~/$2$1$2~' filename
  
  Das -p impliziert schon den print-Befehl, und Du führst ihn dann nochmal explizit aus.
  Das zusätzliche -n ist auch wenig hilfreich, und ob Du -l wirklich brauchst, kannst Du in perldoc perlrun nachsehen.
  
  edit:
  1. Es sieht nicht mehr ganz so mikadomäßig aus, wenn Du im s///-Befehl nicht / als Delimiter verwendest, sondern ein Zeichen, das möglichst in der RegEx nicht auftaucht edit2: und Du brauchst den / nicht escapen, was nochmal übersichtlicher wird :)
  2. statt der Backreferences \1 etc. besser $1 etc. verwenden
  
  Editiert von FIFO: ein ~ zuviel, entfernt ...
  
  Editiert von FIFO: edit2
  Last edited: 2011-03-02 11:12:57 +0100 (CET)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - lukastonner
    
    2011-03-02 18:15
    
    User since
    2010-02-07
    47 Artikel
    BenutzerIn
    
    es funktioniert. vielen dank für die hilfe!!!

View all threads created 2011-03-01 19:09.