Исходное сообщение
"Релиз оптимизирующего компилятора Perl5-кода RPerl 4.0" Отправлено Аноним, 06-Июл-18 12:24
> А использовать идентификаторы, НЕначинающиеся с символа "$", ещё не разрешили? > $ cat NoSigils.pm package NoSigils; use Filter::Simple; use strict; our %sw = qw'     SCALAR    $     ARRAY    @     HASH    %     CODE    &     GLOB    *     REF        $ '; FILTER {     while( my ($k, $v) = each %sw){     s/(?:$k\_OF|$k\_)/$v/g     } }; > $ cat test.pl #!/usr/bin/perl package main; use strict; use NoSigils; my (HASH_h, SCALAR_a, SCALAR_b) = qw/a s d f/; my REF_r = \HASH_h; while (my (SCALAR_a, SCALAR_b) = each HASH_OF REF_r) {     print "key: SCALAR_a  => SCALAR_b\n"; } GLOB_xyz = sub {     print "sub xyz called\n"; }; my REF_to_glob = \GLOB_xyz; GLOB_deref = GLOB_OF REF_to_glob; xyz(); deref(); > $ perl test.pl key: a  => s key: d  => f sub xyz called sub xyz called Не благодари.

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> А использовать идентификаторы, НЕначинающиеся с символа "$", ещё не разрешили? >> $ cat NoSigils.pm > package NoSigils; > use Filter::Simple; > use strict; > our %sw = qw' > SCALAR $ > ARRAY @ > HASH % > CODE & > GLOB * > REF $ > '; > FILTER { > while( my ($k, $v) = each %sw){ > s/(?:$k\_OF|$k\_)/$v/g > } > }; >> $ cat test.pl > #!/usr/bin/perl > package main; > use strict; > use NoSigils; > my (HASH_h, SCALAR_a, SCALAR_b) = qw/a s d f/; > my REF_r = \HASH_h; > while (my (SCALAR_a, SCALAR_b) = each HASH_OF REF_r) { > print "key: SCALAR_a => SCALAR_b\n"; > } > GLOB_xyz = sub { > print "sub xyz called\n"; > }; > my REF_to_glob = \GLOB_xyz; > GLOB_deref = GLOB_OF REF_to_glob; > xyz(); > deref(); >> $ perl test.pl > key: a => s > key: d => f > sub xyz called > sub xyz called > Не благодари.
	Введите код, изображенный на картинке: