Textdatei bearbeiten - #154018 (Allgemeines zu Perl)

2011-11-08 16:21

User since
2003-08-04
12208 Artikel
Admin1

mit einem einzeiler ginge das so:

Code: (dl )

perl -ni.bak -e 'if ($body) { print } else { $body = 1 if m/^$/ }' textfiles

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem