Re: Shorter one-liner?

perl -e 'for(<*>) { rename($_,"$1.ERR") if /^(\d+_\d+)\.REPT$/}'

Update can make it even shorter like this...

perl -e 'for(<*>){`mv $_ $1.ERR`if/^(\d+_\d+)\.REPT$/}'
[download]

but I'd go with the first one... :)

- Ant

Comment on Re: Shorter one-liner? Select or Download Code

Replies are listed 'Best First'.
Re: Re: Shorter one-liner? by abstracts (Hermit) on Jul 24, 2001 at 23:04 UTC
Hello, Here is one with 2 chars less :-) perl -e 'map{`mv $_ $1.ERR`if/^(\d+_\d+)\.REPT$/}<>' Or taking 2 more off: perl -e '/^(\d+_\d+)\.REPT$/&&`mv $_ $1.ERR`for<>' But I wouldn't use it either. Aziz,,,	[reply] [d/l] [select]
Re: Re: Shorter one-liner? by InfiniteSilence (Curate) on Jul 25, 2001 at 00:57 UTC
Doi! The grep was totally redundant. Thanks. Celebrate Intellectual Diversity	[reply]