|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 25 Jun 2002 20:59:30
To : Andrey Sapozhnikov
Subject : Re: Странности с пере менным и
--------------------------------------------------------------------------------
Вот что товарищ просил:
"Я не могу понять - это нормальное поведение или какой-либо баг.
Если это нормальное поведение, то можно от него избавиться,
т.е. сделать так, чтобы $var был виден в независимости от
относительного положения касательно f2() ?"
Теперь перемести my $var; и посмотри, что будет.
Andrey Sapozhnikov wrote:
> Konstantin Tokar wrote:
>
>> Andrey Sapozhnikov wrote:
>> > Konstantin Tokar wrote:
>> >
>> >> объявить как use vars qw($var);
>> >
>> >
>> > И зачем это нужно в данном случае, не объяснишь? :)
>> >
>> В каком данном? Приведи свой вариант решения поставленной проблемы.
>>
>
>
> ================= [test.pl] =======================
> #!/usr/bin/perl -w
> use strict;
> use StTest;
>
> print "Before f1\n";
> StTest::f1();
> print "Before f2\n";
> StTest::f2();
> =================== [StTest.pm] =======================
> package StTest;
> use strict;
>
> my $var;
>
> sub f2 {
> print "var = $var\n";
> }
>
> sub f1 {
> $var = "value";
> print "var = $var\n";
> }
>
> 1;
> ========================================================
>
> Андрей
>
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
