関連

概要

Perlでクラスを作成する

方法

#!/usr/bin/perl
{
  package Hoge;

  # コンストラクタ
  sub new {
    my $class = shift;
    my $this = {
      foo = 10,
    };
    return bless $this, $class;
  }

  # メソッド
  sub getFoo {
    my $this = shift;
    return  $this->{foo};
  }
}
{
  package main;
  $hoge = new Hoge();
  print $hoge->getFoo() . "\n";
}

解説

ポイントは

えっと、急ぎメモなので正直良く分かってないです。

参考

Last-modified: 2013-08-17 (土) 18:07:15 (2227d)