Help for this page

Select Code to Download


  1. or download this
    %hash = (
        one => [1,2,3,4,5],
...
$statement = 'insert into this (' . (join ",", @cols) . ') values (' .
+ (join ",", @vals) . ')';

print "$statement\n\n";
  2. or download this
    /home/jptxs > perl sortHashForInsert
l,p
a,b,c,d,e
1,2,3,4,5
  3. or download this
    /home/jptxs > perl sortHashForInsert
9,8,7,6,5
a,b,c,d,e
1,2,3,4,5