On Tue, 15 Oct 2002, Roger Burton West wrote: > On or about Tue, Oct 15, 2002 at 08:40:38AM -0400, Chris Devers typed: > > >Hopefully this code will never see something like: > > <LINK>http://www.foo.com:81:go here</LINK> > > (.*):([^:]*) would solve that.
[^<]* > > >or have to agonize over > > <LINK>http://www.foo.com:1 hell of an interesting page</LINK> > > ...and that too. But I'd probably use ; as the separator if I had the > choice. > > Roger > > -- Shevek I am the Borg. sub AUTOLOAD{my$i=$AUTOLOAD;my$x=shift;$i=~s/^.*://;print"$x\n";eval qq{*$AUTOLOAD=sub{my\$x=shift;return unless \$x%$i;&{$x}(\$x);};};} foreach my $i (3..65535) { &{'2'}($i); }