On mar, 2003-02-25 at 07:39, The Cunctator wrote:
Because I love syntactic sugar, I can't help
saying that the above can be
reduced to
while(<>) { s/^(\[\[[A-Z ()]+\]\])/lc $1/e; print }
Or, using the -p tag:
perl -p -e "s/^(\[\[[A-Z ()]+\]\])/lc $1/e"
I, on the other hand, like to be able to read my scripts when I come
back to them later. ;)
-- brion vibber (brion @
pobox.com)