Differences between version 17 and previous revision of PerlOneLiners.
Other diffs: Previous Major Revision, Previous Author, or view the Annotated Edit History
Newer page: | version 17 | Last edited on Friday, April 9, 2004 11:32:45 am | by AristotlePagaltzis | Revert |
Older page: | version 16 | Last edited on Friday, April 9, 2004 11:32:25 am | by AristotlePagaltzis | Revert |
@@ -7,9 +7,9 @@
perl -ni.bak -e'/\S/ && print' file1 file2
In [Shell]:
- for FILE in file1 file2 ; do mv "$F"{,.bak} ; grep '[^ ]' "$F.bak" > "$F" ; done
+ for FILE in file1 file2 ; do mv "$F"{,.bak} ; grep '[
[^ ]' "$F.bak" > "$F" ; done
!! Collapse consecutive blank lines to a single one
perl -00 -pi.bak -e1 file1 file2