Help for this page

Select Code to Download


  1. or download this
     mysql> select * from employee;
 +----+---------+--------+------------+
...
 |  6 | Derek   |  50000 | 2006-06-01 |
 +----+---------+--------+------------+
 6 rows in set (0.00 sec)
  2. or download this
    #!/usr/bin/perl -wT
#
...
    }
    return \@data;
}
  3. or download this
    Results as hash  => '$VAR1 = [
          {
...
          ]
        ];
'
  4. or download this
    sub sql_hash {
    my ($dbh,$sql) = @_;
...
    my @sorted = sort { $a->{'name'} cmp $b->{'name'} } @data;
    return \@sorted;
}