3970l1100664 1061 330 1527 7065523307 10172 0ustar mlrljedit# Listing 1: select-list-from-table.pl #!/usr/bin/perl -wT # filename: select-list-from-table.pl use strict; use diagnostics; use DBI; # Change these for your own system my $database = "test"; my $username = undef; my $password = undef; # Connect to the database my $dbh = DBI->connect("DBI:mysql:$database:localhost", $username, $password) || die qq{DBI error from connect: "$DBI::errstr"}; # Create the SQL query my $sql = "SELECT id, name "; $sql .= "FROM RailStations "; $sql .= "ORDER BY name "; # Prepare the query my $sth = $dbh->prepare($sql) || die "Cannot prepare: $DBI::errstr"; # Execute the query my $success = $sth->execute; # Iterate through the results while (my $row_ref = $sth->fetchrow_arrayref) { my ($id, $name) = @$row_ref; print qq{