Maxipoint Rep Office <[EMAIL PROTECTED]> wrote:
: Charles K. Clarkson [mailto:[EMAIL PROTECTED] wrote:
:
: : Maxipoint Rep Office <[EMAIL PROTECTED]> top-posted:
: :
: : : Additional: $hasfromform1 have as result only 1 key
: : : $hasfromform2 can have multiple keys (ever key by
: : : $hasfromform2 must be +
: : : with other $hasfromform2 key)
: :
: : A hash contains keys and values. Are you trying to sum
: : all the keys or
: : all the values of $hasfromform2?
: :
: : Show us what is in each of the hashes you are using.
: :
: : $hasfromform1
: : $forma
: : $hasfromform2
:
: RE: inside are numbers!
: my $hasfromform1 =
: $hasfromform1->{$forma->{hasfromform1valuefromform}};
:
: my $hasfromform2 =
: $hasfromform2->{$forma->{hasfromform2valuefromform}};
Thanks, but that doesn't tell me what is in there. Show us
the actual values in all three hashes. You can get the values
using the Dumper() function from the Data::Dumper module.
use Data::Dumper 'Dumper';
print Dumper( $hasfromform1, $forma, $hasfromform2 );
: above send all numbers from form into my .pm
I have no idea what that means.
: : : and at the end go: one key from $hasfromform1 + every
: : : key of $hasfromform2
: :
: : To get the sum of every value and every key in a hash, use
: : this.
: :
: : use List::Util 'sum';
: :
: : my %hash;
: :
: : @hash{ 1 .. 4 } = 5 .. 9;
: :
: : printf "Keys: %s\n", sum keys %hash;
: : printf "Values: %s\n", sum values %hash;
: :
: RE:
:
: in fact foreach(keys %{$hasfromform1}){
: : if($forma->{$_} eq $_){
: : $hasfromform1 += $hasfromform2->{$_};
:
: work when $hasfromform2 has 1 key only.
Show us a working example. Something we can run from our
own computer.
: How List::Util include into it?
I don't understand your question.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
