develooper Front page | perl.beginners | Postings from April 2002

RE: Creating variables of a string

Thread Previous | Thread Next
From:
Jason Larson
Date:
April 2, 2002 10:33
Subject:
RE: Creating variables of a string
Message ID:
9F560B2FB311D6119A7D00204840E2059F2166@swbtexch2.swbanktx.com
> -----Original Message-----
> From: Michael Stearman [mailto:qazwsxe7@hotmail.com]
> Subject: Re: Creating variables of a string
> 
> Right now it is not working and I was wondering if I sent the 
> code maybe 
> someone with more experience with this will see the problem.  
> I am very new 
> to this.  The line I am trying to create the variables from is
> 
> C6xxxSimulator(TI)  	61	1
> 
> and the code is
> 
> $word = <DATA>; #Assign the next line to the $word variable
> chomp $word;
> print "$word\n";
> my ($target, $count, $num) = $word = ~ 
> /^\s*(\S+)\s+(\S+)\s+(\S+)\s*$/;
> print "Target = $target \n";
> print "Count = $count \n";
> 
> and the output is
> 
> C6xxxSimulator(TI)  	61	1
> Target = 4294967295
> Count =
> 
> Does anyone have any ideas?  I'm lost.

I agree with Japhy that a split is probably the best solution, but to answer
your question, you have a space between '=' and '~', which is causing the
pattern match to not bind to the $word variable.
  my ($target, $count, $num) = $word = ~ /^\s*(\S+)\s+(\S+)\s+(\S+)\s*$/;
should be
  my ($target, $count, $num) = $word =~ /^\s*(\S+)\s+(\S+)\s+(\S+)\s*$/;

Hope this helps...
Jason


CONFIDENTIALITY NOTICE:

************************************************************************

The information contained in this ELECTRONIC MAIL transmission
is confidential.  It may also be privileged work product or proprietary
information. This information is intended for the exclusive use of the
addressee(s).  If you are not the intended recipient, you are hereby
notified that any use, disclosure, dissemination, distribution [other
than to the addressee(s)], copying or taking of any action because
of this information is strictly prohibited.

************************************************************************

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About