詳説 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 オブジェクトの / と < 演算
