Re: hash assignment question

2001-09-19 Thread Michael Fowler
On Wed, Sep 19, 2001 at 04:20:25PM -0400, Bradshaw, Brian wrote: > > As for the for loop, well, I may get that advanced some time. A for loop, or a foreach, is not advanced; it's very basic Perl. If your learning material didn't impress upon you the usefullness or usability of these constructs

RE: hash assignment question

2001-09-19 Thread Bradshaw, Brian
;ve got is working... John -Original Message- From: Bradshaw, Brian [mailto:[EMAIL PROTECTED]] Sent: 17 September 2001 17:07 To: [EMAIL PROTECTED] Subject: RE: hash assignment question -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: hash assignment question

2001-09-17 Thread John Edwards
... } But if what you've got is working... John -Original Message- From: Bradshaw, Brian [mailto:[EMAIL PROTECTED]] Sent: 17 September 2001 17:07 To: [EMAIL PROTECTED] Subject: RE: hash assignment question This did it. I defined the hash and then did the key/value assignme

RE: hash assignment question

2001-09-17 Thread Bradshaw, Brian
ever, in "if($vars{vNameL}) {" what does the $vars do? I have not seen that. -Original Message- From: Brett W. McCoy [mailto:[EMAIL PROTECTED]] Sent: Monday, September 17, 2001 11:04 AM To: Bradshaw, Brian Cc: [EMAIL PROTECTED] Subject: Re: hash assignment question The way you are doi

Re: hash assignment question

2001-09-17 Thread Brett W. McCoy
On Mon, 17 Sep 2001, Bradshaw, Brian wrote: > I am trying to assign key/value pairs to a hash based on whether a variable > from an HTML form has a value or not. > > I have the code: > if ($vSalutation) > { > %arr_criteria = ("salutation" => $vSalutation); > print "\n"; > print "Salutation:

RE: hash assignment question

2001-09-17 Thread John Edwards
Try the code below... if ($vSalutation) { $arr_criteria{"salutation"} = $vSalutation; print "\n"; print "Salutation:"; print " $vSalutation \n"; print "\n"; } if ($vNameL) { $arr_criteria{"last_name"} = $vNameL; print "\n"; print "Last Name:"; print " $vNameL \n"; print "\n";