Perl5.10.0ã§ã¯ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã‚’ãƒã‚¹ãƒˆã—ãŸã¨ãã®ãƒ¡ãƒ¢ãƒªãƒªãƒ¼ã‚¯ãŒè§£æ¶ˆã•ã‚Œã¦ã„ã‚‹ã¿ãŸã„ - sub usuilog;Perl5.8ã¾ã§ã¯ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã‚’ãƒã‚¹ãƒˆã—ãŸå ´åˆã«ãƒ¡ãƒ¢ãƒªãƒ¼ãƒªãƒ¼ã‚¯ãŒç™ºç”Ÿã™ã‚‹ã¨ã„ã†å•é¡ŒãŒã‚ã‚Šã¾ã—ãŸãŒã€5.10.0ã§ã¯è§£æ¶ˆã•ã‚Œã¦ã„るよã†ã§ã™ã€‚ 例ãˆã°ä»¥ä¸‹ã®ã‚ˆã†ãªã‚½ãƒ¼ã‚¹ã‚’実行ã™ã‚‹ã¨ use strict; use Devel::Leak::Object qw(GLOBAL_bless); package Foo; sub new { my $class = shift; return bless { id => shift }, $class; } sub DESTROY { my $self = shift; print "Destroy @{[$self->{id}]} $self\n"; } package main; sub main ($) { my $j = shift; print "# MAIN BLOCK START\n"; my $foo = Foo->new( $j );
So-netã€ã€ŒSo-net å…‰ with フレッツã€è§£ç´„時処ç†ã§èª¤è«‹æ±‚ãŒç™ºç”Ÿã€€
æ±è¨¼å°Žå…¥ã®â€œæ–°ã‚·ã‚¹ãƒ†ãƒ â€ã«ä¸å°è¨¼åˆ¸ãŒé を抱ãˆã‚‹ãƒ¯ã‚± - 経済・マãƒãƒ¼ - ZAKZAK
{{#tags}}- {{label}}
{{/tags}}