in reply to Connecting to database
This is very simplistic but demonstrates connecting to a database, retreiving a record and returning. You need to take a look at 'perldoc DBI'. I don't know what the equivalent of 'perldoc' is on NT, though. My installation doesn't have it, and I have a Linux box to fall back on.my $database = DBI->connect ('DBI:mysql:mydatabase:myserver.com', +'username', 'password') || die; my $command = "SELECT Data,PostedAt FROM WEATHER ORDER BY ID DESC +LIMIT 1"; my $cursor = $database->prepare ($command) or die $database->errst +r . "<br>" . $command; $cursor->execute or die $database->errstr . "<br>" . $command; $DBI::rows == 1 or die "db_read_latest_record returned a value oth +er than 1"; my @row = $cursor->fetchrow_array; $cursor->finish; $database->disconnect; return (@row);
|
|---|