Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Допускается ли такое использование

Автор: AlexanderI 29.5.2008, 11:44

Допускается ли такое использование ? Если у этого какие-то недостатки ?

Код


sub xxx {

...

sub yyy {  ... }

sub zzz {  ... }


}

Автор: ginnie 29.5.2008, 11:46

Я бы не допустил smile

AlexanderI, не могли бы Вы пояснить смысл такого написания?

Автор: AlexanderI 29.5.2008, 11:53

Просто у меня есть большой файл где:
--------------------

Код


$ test = $test2

sub yyy1 {  ... }

sub yyy2 {  ... }

sub yyy3 {  ... }

sub yyy4 {  ... }

--------------------

Теперь появилась необходимость передовать в $test значения через shift.

т.е. вот так

Код


sub xxx {
$ test = shift;
sub yyy1 {  ... }
...
sub yyy4 {  ... }

}

Автор: shamber 29.5.2008, 11:55

AlexanderI, что то вы совсем путано пишите.
Вам что нужно одну переменную всем передавать?
Вообщем не понятно зачем так извращаться

Автор: ginnie 29.5.2008, 11:58

Понятнее не стало. Можно еще поподробнее? В функциях yyy1..4 надо видеть значение $test, присвоенное в xxx или что?

Автор: shamber 29.5.2008, 12:01

может вместо этого

Код


sub xxx {
$ test = shift;
sub yyy1 {  ... }
...
sub yyy4 {  ... }

}

написать нечто такое

Код



$ test = shift; #присвоили
sub xxx {
return \$test; #ссылка даже лучше
}
sub yyy1 {
my $test = xxx();#получили
 }

хотя можно и лучше написать

Автор: amg 29.5.2008, 14:07

Цитата(AlexanderI @ 29.5.2008, 11:44

)

Допускается ли такое использование ? Если у этого какие-то недостатки ?

Для перла не имеет значения, в каком месте кода определена функция. Все равно она будет доступна везде (по крайней мере, в пределах одного скрипта). Т.е. такое использование допускается. Недостатки - перлу все равно, програмисту - по обстоятельствам. Если бы мне потребовалось ипользовать функции, нужные только внутри подпрограммы (а иначе зачем их там определять?), то, чтобы не плодить лишние сущности, сделал бы так:

Код

syb xxx {
  my $yyy = sub {...};
  my $zzz = sub {...};
  ...
}

Автор: ginnie 29.5.2008, 14:24

Уважаемый amg, в связи с Вашим высказыванием

Цитата

Для перла не имеет значения, в каком месте кода определена функция. Все равно она будет доступна везде (по крайней мере, в пределах одного скрипта).

возник вопрос

Код


use strict;
use warnings;

my $test = 10;

sub func1 {
    my $test = 5;
    warn 'func1: ', $test;
    sub func2 {
        warn 'func2: ', $test;
    }
}

func1();
func2();

Код


func1: 5 at ../../test.pl line 8.
func2: 5 at ../../test.pl line 10.

Код


use strict;
use warnings;

my $test = 10;

sub func1 {
    my $test = 5;
    warn 'func1: ', $test;
}

sub func2 {
    warn 'func2: ', $test;
}

func1();
func2();

Код


func1: 5 at ../../test.pl line 8.
func2: 10 at ../../test.pl line 12.

Автор: shamber 29.5.2008, 14:43

Уважаемый ginnie, мне кажется amg говорил о функции smile

и она действительно доступна из любого места программы.
о переменных не было ни слова

Автор: ginnie 29.5.2008, 14:55

Уважаемый shamber, меня смутила фраза "Для перла не имеет значения, в каком месте кода определена функция". Я ее трактовал по своему, поэтому и привел пример зависимости результатов от места определения функции. А с тем, что функция вызовется вне зависимости от места ее определения в package (в скрипте их может быть несколько smile

) я полностью согласен!

Автор: yura_nev 29.5.2008, 16:12

Стоит обратить внимание, что в случае

Код

use strict;
use warnings;

my $test = 10;

sub func1 {
    my $test = time();
    warn 'func1: ', $test;
    sub func2 {
        warn 'func2: ', $test;
    }
}

func1();
func2();

sleep 2;
func1();
func2();

func2() - не просто функция - это замыкание:

Код

func1: 1212066460 at - line 8.
func2: 1212066460 at - line 10.
func1: 1212066462 at - line 8.
func2: 1212066460 at - line 10.

Автор: sir_nuf_nuf 29.5.2008, 16:37

Ага, кстати очень интересное замыкание.
Оно создается тогда когда создается функция, т.е. на этапе компиляции,
а вот переменные лексического окружения для такого замыкания инициализируется при первом вызове внешней функции:

Код


sub a {
  my $ss = shift;
  sub f {
    print $ss, "\n";
  }
}

f();
a(1);
f();
a(2);
f();

выведет

Код


          (пусто тут)
1
1

Автор: ginnie 29.5.2008, 17:03

Уважаемый yura_nev, похоже на замыкание, но есть нюанс smile

Код


use strict;
use warnings;

my $test = 10;

sub func1 {
    my $test = time();
    warn 'func1: ', $test;
    sub func2 {
        warn 'func2: ', $test // 'undef';
    }
}
func2();
func1();
sleep(1);
func1();
func2();

Код


func2: undef at ../../test.pl line 10.
func1: 1212069722 at ../../test.pl line 8.
func1: 1212069723 at ../../test.pl line 8.
func2: 1212069722 at ../../test.pl line 10.

подробности можно посмотреть в статье http://www.perl.com/pub/a/2002/05/07/mod_perl.html

Автор: ginnie 29.5.2008, 17:23

Уважаемый sir_nuf_nuf, там все немного сложнее smile

До этого момента я думал, что что-то понимаю в Perl smile

Код


use strict;
use warnings;

my $test = 10;
warn 'main: ', \$test;

my $func1 = sub {
    warn 'func1: ', \$test;
    sub func2 {
        warn 'func2: ', \$test;
    }
};

$func1->();
func2();
func2();
func2();
func2();
func2();
func2();

Код


main: SCALAR(0x804eb30) at ../../test.pl line 5.
func1: SCALAR(0x804eb30) at ../../test.pl line 8.
func2: SCALAR(0x809c0d4) at ../../test.pl line 10.
func2: SCALAR(0x809c0e0) at ../../test.pl line 10.
func2: SCALAR(0x809c0d4) at ../../test.pl line 10.
func2: SCALAR(0x809c0e0) at ../../test.pl line 10.
func2: SCALAR(0x809c0d4) at ../../test.pl line 10.
func2: SCALAR(0x809c0e0) at ../../test.pl line 10.

это у меня на компьютере что-то не так, или у Вас тоже воспроизведется?

Автор: shamber 30.5.2008, 08:31

Код


main: SCALAR(0x182d8f0) at Perl-1.pl line 6.
func1: SCALAR(0x182d8f0) at Perl-1.pl line 9.
func2: SCALAR(0x1f3d1a0) at Perl-1.pl line 11.
func2: SCALAR(0x1f3d464) at Perl-1.pl line 11.
func2: SCALAR(0x1f3d1a0) at Perl-1.pl line 11.
func2: SCALAR(0x1f3d464) at Perl-1.pl line 11.
func2: SCALAR(0x1f3d1a0) at Perl-1.pl line 11.
func2: SCALAR(0x1f3d464) at Perl-1.pl line 11.

Автор: ginnie 30.5.2008, 10:44

Кто-нибудь мне может объяснить, почему этот код так работает?