Help for this page

Select Code to Download

Select or download this

   $sql = "CREATE TABLE depend (\
      usedby VARCHAR(80) NOT NULL ,\
...
      )";
   $dbh->do($sql);

Select or download this

   $sql = "SELECT usedby FROM depend where uses=$name";
   $aref  = $dbh->selectall_arrayref($sql);
...
   $sql = "SELECT uses FROM depend where usedby=$name";
   $aref = $dbh->selectall_arrayref($sql);
   my @usedby = map {$_->[0]} @$aref;