#! /usr/bin/perl

# test DBI and DBD::mysql

use DBI;

$dsn = "DBI:mysql:database=carnumber;host=localhost;port=3306";

my $dbh = DBI->connect($dsn, "root", "qazxsw", {'RaiseError' => 1});


my $strSQL = "select train_number, seriary_number, car_number,".
    " car_marque, past_time from trainOrder where train_number < 100";

my $sth = $dbh->prepare($strSQL);
$sth->execute();

print "TN\tSN\tNumber\tMarque\tPastTime\n";
while (my $ref = $sth->fetchrow_hashref()) {
	print "$ref->{'train_number'}\t".
	    "$ref->{'seriary_number'}\t".
	    "$ref->{'car_number'}\t".
	    "$ref->{'car_marque'}\t".
	    "$ref->{'past_time'}\n";
}

$sth->finish();

$dbh->disconnect();