Re: regex quickie

[Andy Armstrong <suppressed>]

On 26 Apr 2007, at 18:32, Jonathan Vanasco wrote:
> i'd keep the dispatch essentially the  same, but change the regex  
> to something more like this:
>
> 	my %despatch = (
> 	  'yahoo' => sub { print "\n Yahoo! $_[0]\n"; },
> 	  'google' => sub { print "\n Google! $_[0]\n"; },
> 	 );
>
> 	sub dispatcher
> 	{
> 		my	( $string )= @_;
> 		my @parts= $string =~ qr/^(?:http:\/\/)?(?:www\.)?(google|yahoo| 
> msn)\.com(?:\/\?q=([^&]*))?/i;
> 		if ( scalar @parts ) {
> 			my	( $domain , $q )= @parts;
> 			$despatch{lc($domain)}->($q);
> 		}
> 	}
>
> 	dispatcher( 'google.com' );
> 	dispatcher( 'google.com/?q=test' );

Yeah, but that only works if all the sites use q= to prefix the query  
- and have to maintain the site names in two places - once in the RE  
and once in the despatch table.

It'd be better to parse the query parameters into a hash and pass  
that to the handlers - it's the per site handlers that should know  
how to extract the query.

IMO of course :)

--
Andy Armstrong, hexten.net