Thread perl one liner : suche string in einer spalte/feld und ersetzen
(10 answers)
Opened by bora99 at 2016-02-08 09:02
Hallo,
in einer Datei ( Field seperator = # ) soll in einer Spalte/Feld ein String ersetzt werden. Meine Variante funktioniert nur , wenn keine Leerzeichen vorhanden sind Datei: f1#f2#f3#f4#f5 Ersetzen in Spalte 4 von String "4" durch "44" Code: (dl
)
perl -lan -e '@arr = split ("#",$F[-1]); $f_new= $arr[3]; $f_new =~ s/4/44/ig; print "$arr[0]#$arr[1]#$arr[2]#$f_new#$arr[4]" ' datei Wenn die Datei Leerzeichen enthält, dann funktioniert es nicht mehr Datei: f1#f2#f3#f4#f5# # |