On 2/25/03 1:36 AM, "Brion Vibber" <brion@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.
> 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.
