Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.43 KB | None | 0 0
  1. sub getNames {
  2.     my $package = shift;
  3.         my $usr = shift;
  4.  
  5.         my $sth = $dbh->prepare(q{SELECT firstname, lastname from Pilots WHERE username = ?; })
  6.                         or die "Couldn't prepare statement: " . $dbh->errstr;
  7.         $sth->execute($usr)
  8.                 or die "Couldn't execute statement: " . $sth->errstr;
  9.         my $row = $sth->fetch;
  10.         my $Firstname = $row->[0];
  11.         return $Firstname;
  12. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement