Re: [FWP] Is this fun? What's going on?

["Bill Jones" <bill@fccj.org>]

PMFAMOP  :]

> Am I having fun yet?

<snip>

> 
> MacPerl PerlFaq7: Should I be looking at using 'closures' to obtain a
> reference back to the $1 via some other method - like an anonymous
> subroutine?

Um, Sort of; I got it to work this way:

open IRECORD, "<Smry_TEST.html" or die "Ouch!  Stop $! $?";
open ORECORD, ">Smry_DONE.html" or die "Yowie, stop $! $?";

sub replacement {
my $var = shift;
   qq{<A HREF=\"/cgi/http_webster?isindex=$var\"
     onMouseOver=\"window.status='Define this word.'; over('');\"
     onMouseOut=\"window.status='Initiatives...'; out('');\">$var</A>};
}

$/ = '';

while (<IRECORD>) {

# Convert key words to Dictionary lookups...
    s{(and\b)} {&replacement($1)}ime;

# Write out record (whole file...)
    print ORECORD;
}


:]

I have discovered the evil 'e' operator...

Still...
> (Not sure if this e-mail will make it out...)
-Sneex-  :]

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe