Differences between version 17 and predecessor to the previous major change of PerlOneLiners.
Other diffs: Previous 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 15 | Last edited on Friday, April 9, 2004 11:30:40 am | by AristotlePagaltzis | Revert |
@@ -5,10 +5,11 @@
!! Removing empty lines from a file
perl -ni.bak -e'/\S/ && print' file1 file2
-In Shell:
- for FILE in file1 file2 ; do mv "$F"{,.bak} ; sed
'/
^ *$/d
' <
"$F.bak" > "$F" ; done
+In [
Shell]
:
+
+ 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