|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Gernichenko 2:5079/55.125 14 Dec 2003 02:42:44
To : Konstantin Tokar
Subject : Re: use strict
--------------------------------------------------------------------------------
В пятницу, 12 декабря 2003 года, в 22:22, Konstantin Tokar писал(а) мне:
>> SG>> Global symbol "$price" requires explicit package name at
>> SG>> summ.pl line 11. поясните, плз.
>> AV> Очень примерная трактовка: "Глобальная переменная требует
>> AV> определения имени пакета, которому она принадлежит". Выход -
>> AV> поставить ее как локальную с "my".
>> Это первое, что пришло мне в голову, но описание переменной с
>> помощью my не привело к исчезновению ошибки...
KT> Поэтому надо приводить текст скрипта. Тебе надо ошибку найти, или
KT> телепатов?
Честно говоря, мне бы самому хотелось ошибку найти, но для этого надо *четко*
уяснить смысл этого сообщения. Я, честно говоря, сначала не понял его, т.к.
описание с помощью my ни к чему не привело. Вот полный текст скрипта:
=== begin Windows Clipboard ===
#!perl -w
use strict;
require "12_2003_price.RUB.inc.pl";
#my $sum={};
$sum{$_}=0 for (qw(BB DC PC));
while(<>){
chomp;
my ($key, $count)=split(/;/);
$count ||= 1;
print "$key: $count ";
if (defined ($price->{$key})){
for (qw(BB DC PC)){
print " : $_ ", ($count * ($price->{$key}->{$_} || 0 ));
$sum{$_} += $count * ($price->{$key}->{$_} || 0 );
}
print " - $price->{$key}->{'name'}\n";
}
else {print " - not found\n";}
}
print "BB: $sum{'BB'}, DC: $sum{'DC'}, PC: $sum{'PC'}\n";
=== end Windows Clipboard ===
так... по поводу $sum я ошибся... задавал my $sum... а надо было my %sum...
А вот с ссылкой на хеш $price как быть? она определяется во включаемом файле
таким образом:
$price={'5543' => {'DC' => 66, 'PC'=> 77, 'OP' => 55}};
ну и т.д.
До свидания, *Konstantin*
С уважением, *Sergey*.
... А сегодня хорошая погода
--- WinNT 5.1.2600 i686 Eng, Borland C++ v5.02
* Origin: Свой ум - хорошо, а с чужим хуже (2:5079/55.125)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
