|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir 2:5020/400 01 Nov 2000 12:53:55
To : All
Subject : Trouble with Pg (((
--------------------------------------------------------------------------------
Привет всем, кроме меня!
Вот решил программку написать, которая последовательно отсекает от номера
телефона по одному символу с конца, и выдает из базы город, которму
соответствет данный номер.
Так из базы нормально забирает:
voip=> select name from price_name where code like '7831%';
name
-------------------------
HИЖHИЙ HОВГОРОД
(1 row)
а вот прогрммка этого делать не хочет:
============================================================================
===
#!/usr/bin/perl
use Pg;
$conn=Pg::connectdb("host=127.1 dbname=voip user=master")
or die "Can\'t connect to database voip";
$phone = '78312960664';
while (length($phone>0))
{
chop($phone);
$result = $conn->exec("select name from price_name
where code like '$phone%'");
#if ($result->ntuples >= 1){
$city=$result->getvalue(0,0);
print "$phone\t$city\n";
#}
}
Где тут копать, что тут не так?
Спасибо.
--
Владимир Шишков
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
