127.0.0.1: ページの作成:「 #!/usr/bin/perl use strict; use DBI; use Data::Dumper; my ($dbh, $sth); my ($data_source, $user_name, $user_pass, $sql); my ($ary); my (@arr); print "content...」

2015-05-19T18:11:58Z

ページの作成:「 #!/usr/bin/perl use strict; use DBI; use Data::Dumper; my ($dbh, $sth); my ($data_source, $user_name, $user_pass, $sql); my ($ary); my (@arr); print "content...」

新規ページ

#!/usr/bin/perl

use strict;
use DBI;

use Data::Dumper;
my ($dbh, $sth);
my ($data_source, $user_name, $user_pass, $sql);
my ($ary);
my (@arr);
print "content-type: text/html\n\n";
$data_source = 'DBI:mysql:test:localhost'; # mysql testDB
$user_name = 'root';
$user_pass = 'pass';
$sql = 'select * from t_test;';
$dbh = DBI->connect($data_source, $user_name, $user_pass) || die $dbh->errstr;

# $ary = $dbh->selectall_arrayref($sql) || die $dbh->errstr;

@arr = &dbselect($dbh, $sql);

print Dumper(@arr);
foreach (@arr) {
print $_->{id};
print $_->{name};
#print Dumper($_);
}
$dbh->disconnect();

sub dbselect {
my ($conn, $sql) = @_;
our @data = ();

if (!$conn) {return 0;}
my $sth = $conn->prepare($sql) || die $conn->errstr;
my $row;
if (!$sth->execute) {return 0;}
if ($sql !~ /^select */) {return 1;}

while ($row = $sth->fetchrow_hashref) {

push(@data,\%{$row});
}
return @data;
}

Perl/mysql接続サンプル - 変更履歴

127.0.0.1: ページの作成:「 #!/usr/bin/perl use strict; use DBI; use Data::Dumper; my ($dbh, $sth); my ($data_source, $user_name, $user_pass, $sql); my ($ary); my (@arr); print "content...」