>всем привет
>есть ли у кого небудь простой пример в перле по обработке данных
>базы данных(допустим вывести строку)
>не могу никак разобраться с доками
>заранее благодарен
use DBI;
$dsn = "DBI:$driver:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $user, $pass);
$query="SELECT * FROM radreply WHERE UserName='$uname' AND Attribute='Session-Timeout'";
$sth = $dbh->prepare($query) || die "MySQL report error: $DBI::errstr";
$sth->execute;
while (my $mydat = $sth->fetchrow_hashref())
{
$old_timeout=$mydat->{'Value'};
$runame=$mydat->{'UserName'};
}