I think its the one lines that put people off
On Friday 22 November 2002 08:32 pm, John Carter wrote:
> 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
