Hello,
I have a problem, when I try to use a refernce to an hash in a subroutine.

That works: 
sub test {

   my %q=@_;

   while ( my ($key, $value) = each(%q) ){

   }

}

[download]

But I need to modify the orginal values, not a copy through "my" .
But that:


sub test {

 

   while ( my ($key, $value) = each( {@_} ) ){ #or { $_[0] } with the 
+same result

   }

}

[download]
doesn't work, because I have: 

Type of arg 1 to each must be hash (not anonymous hash ({}))  near "} 
+)

[download]

Any suggestion about I can solve that?
Thank you!

_____________ UPDATE:

On a suggestion below I write all my code:

I would like to creare a Simply SQL wrapper.
So:
my $dbh;


my (%q,@select,@insert,@update,@delete);

%q= (     
 
       select => \@select,
       insert =>\@insert,
       update =>\@update,
       delete=>\@delete
  
     );


$select[0]=['SELECT * FROM emails WHERE `email`=?'];
$select[1]=['SELECT * FROM emails AS e RIGHT JOIN bounces AS b  ON e.`
+emails_id`=b.`emails_id` WHERE e.`email`=? AND b.`email_date`=FROM_UN
+IXTIME(?) '];

[download]
And then: 


sub elabora_st {
 # argument list:
 # action='prepare' or action='finish'
 # then the hash delle query
 
  my $action=shift @_;

   my %q=@_;

   

  for my  $value (values %q ){


   
    for my $sel ( @$value ) { 
    
       # print  "$sel->[0]\n";
    
    if ( $action  eq 'prepare') {
     
         #  print "$sel->[0] \n";
           my $sth=$dbh->prepare($sel->[0]);
            $sel->[1]=$sth;
    }
      
    elsif ($action eq 'finish') {
        # to do
    }
   
     }
   }

}

[download]
Finally: 

&connection;
&elabora_st ('prepare',%q);

# other stuff
# I would like to have queries like that, or something similar:
# %q->select[1][1]->execute($address,$mailTime); 

&end_connection;

[download]

But I need to modify the original %q, not a copy...
I think that in object orientend code, I will have a better result, but I'm not yet able to create OO Perl code.
Finally I don't want to modify the global %q, but only the %q passed through argument list.

In reply to deferencing an hash in a subroutine by saintex

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.