вторник, 15 января 2013 г.
понедельник, 14 января 2013 г.
суббота, 12 января 2013 г.
perl+SQL
http://citforum.ru/database/mysql/intro/
Введение в MySQL (используя Perl DBI)
use DBI;
my $dsn = 'DBI:mysql:my_database:localhost';
my $db_user_name = 'admin';
my $db_password = 'secret';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
my $sth = $dbh->prepare(qq{select id, password from users where nickname = $input_nickname});
$sth->execute();
-обработка-
my (@matrix) = ();
while (my @ary = $sth->fetchrow_array())
{
push(@matrix, [@ary]); # [@ary] это ссылка
}
$sth->finish();
$dbh->disconnect();
Введение в MySQL (используя Perl DBI)
use DBI;
my $dsn = 'DBI:mysql:my_database:localhost';
my $db_user_name = 'admin';
my $db_password = 'secret';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
my $sth = $dbh->prepare(qq{select id, password from users where nickname = $input_nickname});
$sth->execute();
-обработка-
my (@matrix) = ();
while (my @ary = $sth->fetchrow_array())
{
push(@matrix, [@ary]); # [@ary] это ссылка
}
$sth->finish();
$dbh->disconnect();
Подписаться на:
Сообщения (Atom)