|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 15 Nov 2002 16:15:32
To : Alexander A Chub
Subject : Re: XBase непонятки.
--------------------------------------------------------------------------------
Здравствуй, Alexander A Chub.
AAC> Hello Konstantin.
AAC> 10 Hоя 02 17:38, Konstantin Tokar wrote to Alexander A Chub:
AAC> >> Hе могу понять что происходит. Вроде в базе base.dbf в столбце
AAC> >> COLUMN присутствует значение 376, а почему тогда выдает:
AAC> >> Name "main::hashref" used only once: possible typo at perltemp.pl
KT>> use strict;
AAC> Да немного помогло.. но я чтото опять немного не допонял.... видать заново
AAC> прийдеться книжки перечитывать...
AAC> Global symbol "$hashref" requires explicit package name at
AAC> C:\WINDOWS\TEMP\perltemp.pl line 8.
AAC> Какого в блинджу пакажа ему не хватает?
AAC> Может забить большой гвоздь в этот индекс... и обойтись без него?
Объяви $hashref до while.
AAC> =================== Cut ===================
AAC> #!/perl
AAC> use XBase;
AAC> use strict;
AAC> my $table = new XBase "base.dbf";
AAC> my $cur = $table->prepare_select_with_index(["base.cdx", "K040"], "K040");
AAC> $cur->find_eq(376);
AAC> *LINE 8* while (my $hashref = $cur->fetch_hashref and $hashref->{"K040"} ==
AAC> 376)
AAC> {
AAC> print "Content-type: text/html\n\n";
AAC> print 'ok';
AAC> print $hashref;
AAC> }
AAC> ================= End cut =================
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
