Opened by Ralf at 2013-02-18 15:02
User since
2012-07-18
1465 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-07-18
1465 Artikel
BenutzerIn
Ach, an Kürze geht bei Perl immer was
oder noch eins kürzer
[EDIT] Allerdings, wie auch im Einzeiler oben, gehts los, wenn "flupp" in der Zeile vorkommt, nicht wenn die komplette Zeile flupp ist.
Ansonsten /flupp/ durch /^flupp$/ ersetzen
[EDIT2] Klammern sind auch optional
Last edited: 2013-02-19 09:52:50 +0100 (CET)
Code: (dl
)
perl -ne'/flupp/ && print $_,<>' < inputfile > outputfile
oder noch eins kürzer
Code: (dl
)
perl -ne'print if (/flupp/..0)' < inputfile > outputfile
[EDIT] Allerdings, wie auch im Einzeiler oben, gehts los, wenn "flupp" in der Zeile vorkommt, nicht wenn die komplette Zeile flupp ist.
Ansonsten /flupp/ durch /^flupp$/ ersetzen
[EDIT2] Klammern sind auch optional
Code: (dl
)
perl -ne'print if /flupp/..0' < inputfile > outputfile
Last edited: 2013-02-19 09:52:50 +0100 (CET)
1 + 1 = 10