My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Jan 29th, 2010 | Syntax: Perl | Size: 0.36 KB | Hits: 71 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. use DBI;
  2. use DBD::mysql;
  3.  
  4. #.........
  5. #.........
  6.  
  7. sub db_select {
  8.    my $dbh=shift;
  9.    my $sqlStr = shift;
  10.    my @list;
  11.    #my $dbh = get_dbh();
  12.    my $sth = $dbh->prepare($sqlStr);
  13.    $sth->execute() or return 0;
  14.    @list = $sth->fetchrow_array();
  15.    #$dbh->disconnect();
  16.    if ($#list == 0) {
  17.      return $list[0];
  18.    } else {
  19.      return @list;
  20.    }
  21. }
create new paste | create new version of this paste RAW Paste Data