Help for this page

Select Code to Download


  1. or download this
    my $dbh = DBI->connect($dsn,$user,$pass,{RaiseError=>1});
  2. or download this
    SELECT MID,Mname
FROM ML_Lists
WHERE MID != 'NA'
OR ML_Lists != 'NA'
  3. or download this
    my @list;
my $sth = $dbh->selectall_arrayref('select MID,Mname from ML_Lists');
for (@$sth) {
   push @list,$_ if grep(/^NA$/,@$_) != @$_;
}