[Nottingham] perl question

[Michael Erskine]

On Friday 15 September 2006 12:44, Phil Court wrote:
> a load of HTML 

BTW: please start a new thread for a new topic and post in plain text - ta!


my (%trailsByChannel);
my($channelX,$pathtype,$cctName);
$trailsByChannel{join '|',($channelX,$pathtype)}->{$cctName} = 1;


As is stands it'll probably raise an error since $channelX,$pathtype,and 
$cctName are undef :) , however, if the values are set thus...

   my($channelX,$pathtype,$cctName) = qw(monkeys uncle likes_cakes);

...we get a nice little data structure entry in what appears to be simple 
lookup hash...

          'monkeys|uncle' => {
                               'likes_cakes' => 1
                             }

How useful! <rhetorical>Now, what is this part of?</rhetorical> :)

Regards,
Michael Erskine

-- 
It looks like it's up to me to save our skins.  Get into that garbage chute,
flyboy!
		-- Princess Leia Organa

	
	
		
___________________________________________________________ 
All new Yahoo! Mail "The new Interface is stunning in its simplicity and ease of use." - PC Magazine 
http://uk.docs.yahoo.com/nowyoucan.html