On Fri, 22 Nov 2002, Mark Carey wrote:
> while (<>) {
> if (/\S/) {
> if (/^\s*[a-zA-Z]/) {
> } else {
> print;
> }
> }
> }
Oi! This is perl, why all the cruft?
perl -ne 'print if /\S/ && !/^\s*[\w]/'
you needn't even drag perl into this...
grep -vE '^[ \t]*[a-zA-Z]' | grep -E '[^ \t]'
John Carter Phone : (64)(3) 358 6639
Tait Electronics Fax : (64)(3) 359 4632
PO Box 1645 Christchurch Email : [EMAIL PROTECTED]
New Zealand
Good Ideas:
Ruby - http://www.ruby-lang-org - The best of perl,python,scheme
without the pain.
Valgrind - http://developer.kde.org/~sewardj/ - memory debugger for
x86-GNU/Linux
Free your books - http://www.bookcrossing.com
