Perl - предотвратить случайное изменение данных

Когда необходимо предотвратить случайное изменение входных данных в плагине, можно либо передать копию данных, воспользовавшись модулем Clone, либо сделать данные неизменяемыми. Для последнего наиболее оптимальным является использование модуля Data::Lock или Hash::Util (идет в стандартной поставке Perl).

Perl7 за 7 секунд :-)

Сейчас идет разработка Perl6, а используется Perl5:

 > perl -e 'print "This is Perl v$]!\n"'
 This is Perl v5.008008!

Per6, Perl6 - все хотят Perl6. А я хочу Perl7! :-)

 > perl -e '$] = 7; print "This is Perl v$]!\n"'
 Modification of a read-only value attempted at -e line 1.

Не вышло... :-(
А если постараться?

 > perl -e 'Internals::SvREADONLY($],0); $]=7; print "This is Perl v$]!\n"'
 This is Perl v7!

Ура!!! Perl7 существует!!! На радостях пошел купятся в море!!!

Perl Closure - последний бастион пал

Perl предоставляет разработчику полную свободу действий и доступа к любым данным.

Правда в Perl6 частично отходят от этого принципа, но это лишь внешняя уступка современным объектно-ориентированным предрассудкам, которые легко обходятся при помощи ролей.

Perl не ограничивает свободу, но и не препятствует ограничению свободы. Вы можете создать полностью закрытые области данных при помощи замыканий. Замыкание - это закрытый и нерушимый бастион в свободном мире Perl.

Однако на данный момент этот бастион пал.
При помощи новой версии модуля PadWalker можно не только проникнуть за стены крепости-замыкания, но и изменить непосредственно то, что находиться за этими стенами.

Рассмотрим пример:

 use PadWalker;

 sub foo {
     my $foo = shift;
     sub { print "$foo\n" };
 }
 
 my $foo = foo(3);
 $foo->();

 PadWalker::set_closed_over($foo, { '$foo' => \5 });
 $foo->();

В этом примере мы изменили значение переменной $foo c 3 на 5.
Внимание, если эта переменная не read-only, то модификацию замыкания необходимо производить следующим способом:

 PadWalker::set_closed_over($foo, { '$foo' => \ do { my $foo = 5 } });

Как говориться в старой военной мудрости: "Нет такой крепости, которую не возможно было бы взять".

Perl - когда наступит Рождество

• Parrot 2 - начало 2010 года (по материалом Parrot рассылки для разработчиков)


• Perl 6 - весна 2010 года (объявлено на YAPC::Europe 2009)


• Parrot 3 - начало 2011 года