Re: perl 5.16.0 ã§ãƒ¡ãƒ¢ãƒªãƒªãƒ¼ã‚¯ï¼Ÿ - tokuhirom's blogRe: perl 5.16.0 ã§ãƒ¡ãƒ¢ãƒªãƒªãƒ¼ã‚¯ï¼Ÿ http://d.hatena.ne.jp/tagomoris/20120731/1343713558 以下ã®ã‚³ãƒ¼ãƒ‰ã§å†ç¾ã™ã‚‹ã®ã§ã€Perl 5.16.0 ã®ãƒã‚°ã®ã‚ˆã†ã§ã™ã€‚もりもりプãƒã‚»ã‚¹ãŒãµã¨ã£ã¦ã„ãã¾ã™ã€‚ use strict; my $kan = bless +{}, 'Kan'; my $code = sub { }; for (1..100) { for (1..1000) { for my $f ($code, $kan) { ref $f; } } my @x = split /\s+/, `ps aux|grep leak.pl|grep -v grep| grep -v vim`; print $x[5], $/; } ref ã®ã‚ャッシュ処ç†ã¨ã‹ãŒãƒã‚°ã£ã¦ã‚‹ã¨ã‹ã§ã™ã‹ã。 ã¨ã‚Šã‚ãˆãš perlbug ã—ã¦ãŠãã¾ã—ãŸã€‚
{{#tags}}- {{label}}
{{/tags}}