Re: lug-bg: mySQL i bash script

[Delyan Raychev]

E neka da ne e bash a perl.  Mozhe li?
Ako imash perl - eto neshto lesno...

 use DBI;

        my $dbh = DBI->connect('DBI:MySQL:DataBase')
                or die "Couldn't connect to database: " . DBI->errstr;
        my $sth = $dbh->prepare('SELECT * FROM people WHERE lastname = ?')
                or die "Couldn't prepare statement: " . $dbh->errstr;

      
          $sth->execute($lastname)             # Execute the query
            or die "Couldn't execute statement: " . $sth->errstr;

          # Read the matching records and print them out          
          while (@data = "$sth->fetchrow_array())" {
            my $firstname = $data[1];
            my $id = $data[2];
          }

          $sth->finish;

        }
          
        $dbh->disconnect;

Upseh!

Delyan Raychev
[EMAIL PROTECTED]