詳説 Perl in ゆ㮠- ã¯ã“ã¹ã«ã£ã#http://subtech.g.hatena.ne.jp/miyagawa/20080708/1215473551 絶望ã—ãŸï¼rubyã¨æ¯”較ã—ãŸã¨ãã®perlã®é›£è§£ã•ã«çµ¶æœ›ã—ãŸï¼ #!/usr/bin/perl use strict; # ã“ã“ã¯package main; BEGIN { # プãƒã‚°ãƒ©ãƒ ã®ã¯ã˜ã‚ã«ã‚µãƒ–ルーãƒãƒ³ã‚’定義．ãªãã¦ã‚‚å‹•ã„ãŸã‚Šã™ã‚‹ # ()㯠プãƒãƒˆã‚¿ã‚¤ãƒ—． 引数をã¨ã‚‰ãªã„ã“ã¨ã‚’言明ã—ã¦ã‚‹ # Xクラスã®ã‚³ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿, 実体ã¯$sã®ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ sub X () { bless \(my $s = "ã²ã ã¾ã‚Š"), "X" } # _ == 1 ã«ã™ã‚‹ sub _ () { 1 } } package X; # ã“ã“ã‹ã‚‰Xクラスã®å®šç¾© my $i; # クãƒãƒ¼ã‚¸ãƒ£å¤‰æ•°ã ã‘ã©ï¼Œã‚¹ã‚³ãƒ¼ãƒ—ã¯ãƒ•ã‚¡ã‚¤ãƒ«ã よ use overload # X オブジェクト㮠/ 㨠< 演算
perl - no accessor; # ã ã£ã¦é…ã„ã‚“ã ã‚‚ã‚“ : 404 Blog Not Found
{{#tags}}- {{label}}
{{/tags}}