[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-AnyPerl] Regular Expression Problem

Here's my go at it.

#!perl -w
my $start = 'See also ';
my $prog  = '<A HREF="/cgi-bin/myscript.pl?';
while (<DATA>) {
   s{$start(.+?)\.}
    {$start .
        join("; ", map {qq'$prog$_">$_</A>'} split(/; */, $1)) . "."
    }eg;
  print;
}

__DATA__
This is a darn cool thing.  See also foo; bar; buz.  See also beavis;
butt-head.
And if that is not good enough, See also baloney.


--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-anyperl-request@macperl.org