perl - 継承を使ã„ãŸã„ワケ : 404 Blog Not Found2006å¹´12月05æ—¥09:30 カテゴリLightweight Languages perl - 継承を使ã„ãŸã„ワケ ãŠã£ã¨ã£ã¨ã€‚ã¨ã„ã†ã‚ã‘ã§å…ƒè¨˜äº‹ã¯ç›´ã—ãŸã®ã ã‘ã©ã€ã‚ãˆã¦ç¶™æ‰¿ã‚’使ã„ãŸã‹ã£ãŸã®ã«ã¯ãƒ¯ã‚±ãŒã‚る。 subtech - Bulknews::Subtech - MobileAgent ãŠã—ゃれã§ã‚‚ãªã„ã—ã€ãã‚‚ãã‚‚ã“ã®ã‚³ãƒ¼ãƒ‰ã§ã¯å‹•ã‹ãªã„。 ç„¡ç†ã‚„ã‚Šã‹ã‘ã°ã“ã†ãªã‚‹ã‹ã€‚ package MyMobileAgent; my $i; sub new { my $class = shift; my $self = HTTP::MobileAgent->new(@_); my $pkg = __PACKAGE__ . "::". $i++; no strict 'refs'; @{$pkg."::ISA"} = (ref $self, __PACKAGE__); bless $self, $p
{{#tags}}- {{label}}
{{/tags}}