Help for this page

Select Code to Download


  1. or download this
    package PACK;
sub func {
...
$obj->func;
$str = "$obj->func;1";
eval $str or print $@;
  2. or download this
    $dbh->do("CREATE TABLE STAIP08FK (PROBKEY varchar(20),MOBPAITS varchar
+(15),SOLVER varchar(10),UNKNOWNS char(11),CONSTRAINTS char(11),OBJECT
+IVE char(11),MODEL char(16),CRITERIA char(11),ITERATIONS integer,prim
+ary key (PROBKEY) );"
  3. or download this
    $str = qq{\$dbh->do("CREATE TABLE STAIP08FK (PROBKEY varchar(20),MOBPA
+ITS varchar(15),SOLVER varchar(10),UNKNOWNS char(11),CONSTRAINTS char
+(11),OBJECTIVE char(11),MODEL char(16),CRITERIA char(11),ITERATIONS i
+nteger,primary key (PROBKEY) );"};