Help for this page

Select Code to Download


  1. or download this
    SELECT $dbh,
     ":name, :email from ... where DIAPER=?",
...
{
    print "$name < $email >\n";
}
  2. or download this
    SELECT $dbh,
     " :name, :email
...
{
    print "$name < $email >\n";
}
  3. or download this
    SELECT $dbh,
     ":name, :email from ... where DIAPER=?",
     'soft and absorbant'   {
    print "$name < $email >\n";
}
  4. or download this
    SELECT $dbh,
     " :name, :email
...
     'soft and absorbant'   {
    print "$name < $email >\n";
}
  5. or download this
    $dbh->SELECT
     ":name, :email from ... where DIAPER=?",
...
{
    print "$name < $email >\n";
}
  6. or download this
    $dbh->SELECT
     " :name, :email
...
{
    print "$name < $email >\n";
}
  7. or download this
    $dbh->SELECT(
     ":name, :email from ... where DIAPER=?",
...
sub {
    print "$name < $email >\n";
});
  8. or download this
    $dbh->SELECT(
     " :name, :email
...
sub {
    print "$name < $email >\n";
} );
  9. or download this
    
for my $quality ( 'soft', 'absorbant' ){
...
        print "$rec{name} < $rec{email} >\n";
    }
}
  10. or download this
    for my $quality ( 'soft', 'absorbant' ){
    SELECT ":{name}, :{email} from ... where DIAPER=?", $quality {
        print "$rec{name} < $rec{email} >\n";
    }
}
  11. or download this
    {
    my %rec = (
...
    }
}
# line 7 foo.pl