Adam Turoff <[EMAIL PROTECTED]> wrote:
> On Thu, May 17, 2001 at 07:39:06AM -0600, Nathan Torkington wrote:
> > http://www.zdnet.com/zdnn/stories/comment/0,5859,2717377,00.html
>
> Interesting:
>
> [nice story]
> Now this is what I call productivity.
>
> Sounds like a story I heard at a show recently. Someone came by the
> ActiveState booth, mostly to say thanks. I talked to him a bit about
My story is that one day, a long time ago the UK Academic network had
email addresses the "wrong way round": [EMAIL PROTECTED] and decided
to change.
My SO had an Ingres DB with a few 000,000 email addresses in.
The programmers tried for several days to write a conversion program
in ESQL/C, in C, in SQL ...
We stopped in on the way home from shopping one day and in <1h had
written and tested the program and updated the database (which took
most of the time).
The core was just:
if ( ($user, $fqdn) = ($mailname =~ m/(.*)@(uk\.ac\..*)/ )) {
$fqdn = join '.', reverse split /\./, $fqdn;
# "update user set mailname = '$user@$fqdn' where mailname = '$mailname'"
}
10 years on, I still feel amazed at how much you can do with
19 lines of Perl.
--
Chris Benson
