Perl Internalsについて - Unknown::Programming

実は、Perl 5.8以降では、Internals::SvREADONLY()という関数がuseなしで使えるようになっていて、Internals::SvREADONLY($scalar, 1)で$scalarをREADONLY flagをonに、Internals::SvREADONLY($scalar, 0)でoffにできます。 404 Blog Not Found:perl - Const released -- True Readonly SUGEEEE、ってかそんなのあるなんて知らなかった。まぢで？まぢで？早速試してみた。 my $foo = 10; Internals::SvREADONLY($foo, 1); eval { $foo = 'WRYYYYYY' }; # エラーになるはず print $@ ? "error! $@" : 'not error!'; Interna

[tyru]

変数をreadonlyに出来るInternals::SvREADONLYについて

[f99aq]

READONLY

[kamipo]

Internals::SvREADONLY

[TAKESAKO]

【Internals::SvREADONLY()】