Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Sorting hash values according to order of an array

by tadman (Prior)
on Nov 24, 2002 at 01:51 UTC ( [id://215459] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    "INSERT INTO $q{'-table'} (".join(',', @columns).") VALUES ($ph)"
  2. or download this
    my @columns = map { substr($_,1) } keys %{$q{'-values'}};
  3. or download this
    my @columns = keys %{$q{'-values'}};