[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-win32-users
Subject:    Re: (no subject)
From:       "Randy W. Sims" <RandyS () thepierianspring ! org>
Date:       2002-12-26 23:39:12
[Download RAW message or body]

On 12/26/2002 5:08 PM, Coonfield, Ben CONT wrote:
> I cannot get the expected result from code similar to the following:
> 
> my @source = ();
> @($source[0]){"host","port","dir"} = [($pSource =~ m/(\S+)(-\S+)?(:.*)?/)];

close, try:

@{$source[0]}{"host","port","dir"} =
   ($pSource =~ m/(\S+)(-\S+)?(:.*)?/);

(i.e. change parens around '$source[0]' to braces and drop brackets 
around RHS expression.)


_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[prev in list] [next in list] [prev in thread] [next in thread]