On 2/25/03 1:36 AM, "Brion Vibber" <brion(a)pobox.com> wrote:
On lun, 2003-02-24 at 22:09, Jay Bowks wrote:
Hey Brion,
thanks so much for doing all the work of redirecting the Wiktionary
entries. How'd you change the caps so quick ? :-)))
The magic of perl scripts!
while( $x = <> ) {
$x =~ s/^(\[\[[A-Z \(\)]+\]\])/lc "$1"/e;
print $x;
}
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"
to get that sedlike functionality.