|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander A Chub 2:464/711.9 14 Nov 2002 19:43:00
To : Konstantin Tokar
Subject : Re: XBase непонятки.
--------------------------------------------------------------------------------
10 Hоя 02 17:38, Konstantin Tokar wrote to Alexander A Chub:
>> Hе могу понять что происходит. Вроде в базе base.dbf в столбце
>> COLUMN присутствует значение 376, а почему тогда выдает:
>> Name "main::hashref" used only once: possible typo at perltemp.pl
KT> use strict;
Да немного помогло.. но я чтото опять немного не допонял.... видать заново
прийдеться книжки перечитывать...
Global symbol "$hashref" requires explicit package name at
C:\WINDOWS\TEMP\perltemp.pl line 8.
Какого в блинджу пакажа ему не хватает?
Может забить большой гвоздь в этот индекс... и обойтись без него?
=================== Cut ===================
#!/perl
use XBase;
use strict;
my $table = new XBase "base.dbf";
my $cur = $table->prepare_select_with_index(["base.cdx", "K040"], "K040");
$cur->find_eq(376);
*LINE 8* while (my $hashref = $cur->fetch_hashref and $hashref->{"K040"} ==
376)
{
print "Content-type: text/html\n\n";
print 'ok';
print $hashref;
}
================= End cut =================
ЗюЫю Самый прикол, что сервак начал перегружаться... от этого скрипта... Я уж
просто незнаю чо делать... простую единичную выборку и то блин запустить не
могу... что будет когда пойдут запросы масивами?
Alexander
---
* Origin: The ICQ Development Team (2:464/711.9)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
