Perl

オブジェクト指向

基本的な記述方法

#!/usr/bin/perl

# クラス "Class"
package Class;

sub new
{
  my $pkg = shift;
  my $obj = { x =>10, y => 20 };
  return bless $obj,$pkg;
}

# * bless 関数
#   bless オブジェクトのリファランス,[クラス名]

# * 別の記述方法
# sub new
# {
#   my $pkg = shift;
#   my $obj = bress{ x =>10, y => 20 },$pkg;
#   return $obj,$pkg;
# }

# set メソッド
sub set
{
  my $this = shift;
  $this->{'x'} = shift;
  $this->{'y'} = shift;
}

# get メソッド
sub get
{
  my $this = shift;
  return $this->{'x'},$this->{'y'};
}

1;
# packeage Class の終わり


# メインモジュール
sub main(){

  # インスタンス生成
  my $obj = Class->new();

  # set メソッドで値をセットする。
  $obj->set(10,20);

  # get メソッドで値を受け取る。
  my ($x,$y) = $obj->get();

  print "X = $x \n";
  print "Y = $y \n";

}

# メインモジュールの呼び出し
main();
exit(0);


戻る

      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google