Help for this page

Select Code to Download


  1. or download this
    sub genWhereString {
    my ($fields, $where, $orderby) = @_;
    my $query = "select " . join(", ", @$fields);
...
    my $sth  = $dbh->prepare($query) || return $DBI::errstr;

    # et cetera
  2. or download this
    my @a = (1 .. 10);
my @b = (1 .. 3);
@a = @b;
  3. or download this
    my @a = (1 .. 10);
@a = (1 .. 5);
  4. or download this
    my @a = (1 .. 10);
@a = 1;
  5. or download this
    my @a = (1 .. 10);
@a = some_sub_returning_one_or_more_results();