Help for this page

Select Code to Download

Select or download this
```
if( $foo ){
   ...
}
```

Select or download this

perl -e 'use DBI;$h = DBI->connect("dbi:ODBC:xxx","xxx","xxx");eval {$
+h->do("drop table mje")};$h->do("create table mje (a int null)");$s =
+ $h->prepare("insert into mje values(?)");$s->execute(0);$s->execute(
+undef);$r = $h->selectall_arrayref("select * from mje");foreach (@$r)
+{print "$_->[0]\n" if $_->[0];}'