31 lines
709 B
Perl
31 lines
709 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use DBI;
|
||
|
|
use DBD::ODBC;
|
||
|
|
|
||
|
|
my $dbh = DBI->connect( "DBI:ODBC:employeeDB", "", "" ) or die( "Could not make connection to database: $DBI::errstr" );
|
||
|
|
|
||
|
|
my $sth = $dbh->prepare( q{ SELECT * FROM employee } ) or die( "Cannot prepare statement: ", $dbh->errstr(), "\n" );
|
||
|
|
|
||
|
|
my $rc = $sth->execute() or die( "Cannot execute statement: ", $sth->errstr(), "\n" );
|
||
|
|
|
||
|
|
my @array;
|
||
|
|
|
||
|
|
while ( @array = $sth->fetchrow_array() ) {
|
||
|
|
write();
|
||
|
|
}
|
||
|
|
|
||
|
|
warn( $DBI::errstr ) if $DBI::err;
|
||
|
|
|
||
|
|
$sth->finish();
|
||
|
|
$dbh->disconnect();
|
||
|
|
|
||
|
|
format STDOUT =
|
||
|
|
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<<<<
|
||
|
|
$array[ 0 ], $array[ 1 ], $array[ 2 ], $array[ 3 ], $array[ 4 ]
|
||
|
|
|
||
|
|
.
|