🚀 go-pugleaf

tchrist@convex.COM (Tom Christiansen) writes:

>    perl -00 -ne 'print /(.*\n)/' some_file

>The -00 put us in paragraph mode, and the (.*\n) isolates the first
>line of each paragraph for printing.

The exact equivalent in awk is:

    awk 'BEGIN { RS=""; FS="\n" }
	 { print $1 }' some_file
    
The RS="" makes blank lines the record separator, and the FS="\n" allows
the first line of the record to be obtained using "$1".

-- 
Geoff Clare <gwc@root.co.uk>  (Dumb American mailers: ...!uunet!root.co.uk!gwc)
UniSoft Limited, London, England.   Tel: +44 71 729 3773   Fax: +44 71 729 3273