perl , значение переменной в подпрограме

[Gike]

я наверно отупел ....

есть програма

my $urla='AAAAA';
show();
exit;

my $urla='BBBBB';

sub show {
if($urla eq ''){print 'pusto'}else{print $urla;}
}

выводит:
pusto

если строчку
my $urla='BBBBB';
убрать , то нормально выводит:
AAAAA


скажите пожалуйста, таких как я лечат?

[Naked]

так а разве глобальные переменные можно в процедуре вызывать. Это же разная область видимости...

[Ghost]

Убери 'my' и переменная станет глобальной, а сейчас она - локальная.

[Gike]

это да, но без my $urla='BBBBB'; все нормально работает

[Ghost]

Gike
А вот так работает:

my $urla='AAAAA';
show();
exit;

$urla='BBBBB';

sub show {
if($urla eq ''){print 'pusto'}else{print $urla;}
}

Я просто не понимаю, зачем два раза объявлять (описывать) переменную?.. Объявил один раз и юзай дальше без 'my' - сие обозначение служит только для первоначального объявления переменной и области ее видимости.

З.Ы. Вот кое-что на эту тему: http://forum.woweb.ru/print10409.html
Там, правда, ничего не сказано про то, что не надо дублировать описание, но моя интуиция подсказывает: "Этого делать не стоит - может глюкнуть". Может я не прав, но считаю так...

[rontommy]

Ghost:
Я просто не понимаю, зачем два раза объявлять (описывать) переменную?

А я не понимаю, зачем объявлять (описывать) переменную после "exit" ?
Этот код все равно выполняться не будет.

[Gike]

объявлять 2 раза ненужно
случайно получилось и 2 часа искал в чем проблема
на то что оно 2 объявлено внимания не обращал

ссылку гляну
спасибо
PS глянул и ничего полезного ненашел всеравно спасибо

rontommy:
Этот код все равно выполняться не будет.

и я так думал, однако дело портит...

[rontommy]

Gike:
и я так думал, однако дело портит

Дело в том, что PERL - интерпретатор и при запуске скрипта сначала весь код "компилируется" а уже потом выполняется. Видимо на этапе компиляции и происходит ссылка на адрес переменной, которая еще не объявлена и ее значение в подрограмме соответственно будет пустое.

[Gike]

rontommy:
происходит ссылка на адрес переменной, которая еще не объявлена

2 раза объявлена

кстати вот так

my $urla='AAAAA';

my $urla='BBBBB';

show();
exit;

sub show {
if($urla eq ''){print 'pusto'}else{print $urla;}
}

выводит BBBBB

[y13]

Так, понял
use warnings; спасёт мир.
Всё происходит по простой причине, perl ругается на то, что мол какого хрена вы ещё раз переменную объявили и делает $urla = undef;
"my" variable $urla masks earlier declaration in same scope at test.pl line 7."