|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Mahotkin 2:5020/400 15 Dec 2003 22:29:30
To : Sergey Gernichenko
Subject : Re: use strict
--------------------------------------------------------------------------------
>>>>> "SG" == Sergey Gernichenko
>>>>> <Sergey.Gernichenko@p125.f55.n5079.z2.fidonet.org> writes:
SG> Global symbol "$price" requires explicit package name at summ.pl line
SG> 11. поясните, плз.
SG> Честно говоря, мне бы самому хотелось ошибку найти, но для этого надо
SG> *четко* уяснить смысл этого сообщения. Я, честно говоря, сначала не
SG> понял его, т.к. описание с помощью my ни к чему не привело. Вот
SG> полный текст скрипта:
Тебе же сказали -- нужно объявить переменную $price. Чуть больше
внимательности.
И зачем ты закомментировал объявление $sum (которое должно быть %sum).
SG> === begin Windows Clipboard === #!perl -w use strict;
SG> require "12_2003_price.RUB.inc.pl"; #my $sum={}; $sum{$_}=0 for (qw(BB
SG> Windows Clipboard ===
SG> так... по поводу $sum я ошибся... задавал my $sum... а надо было my
SG> %sum... А вот с ссылкой на хеш $price как быть? она определяется во
SG> включаемом файле таким образом: $price={'5543' => {'DC' => 66, 'PC'=>
SG> 77, 'OP' => 55}}; ну и т.д.
Hу объяви её перед включением файла, а ещё лучше -- прямо внутри него с
помощью my $price.
Вообще, require нужен крайне редко. Мне кажется, что твою задачу можно
решить гораздо прямее.
--alexm
--- ifmail v.2.15dev5.1
* Origin: tyranny (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
