coding convention conversion

[Steve Lamb]

On Sat, 23 Dec 2000 01:29:00 +0000, Garry Knight <garryknight at bigfoot.com>
wrote:
>--------8X-cut here-----------------------------------------------
>#!/usr/bin/perl
>
>while (<>) {
>  if (/^\s*def\s+\w+/) {
>    s/([A-Z])/_\l\1/g;
>  }
>  print;
>}
>--------8X-cut here-----------------------------------------------

    Anyone else find it ironic that someone is solving a problem using Perl in
a Python group when the comparable Python would be an excellent exercise to
perform?  :)

-- 
         Steve C. Lamb         | I'm your priest, I'm your shrink, I'm your
         ICQ: 5107343          | main connection to the switchboard of souls.
-------------------------------+---------------------------------------------