1

データメンバーがいる場合は、perlクラス（Myclass）で「dt」と言います。「obj1」と「obj2」というクラスの2つのオブジェクトを作成しました。obj1を「2」として「dt」を設定しました。「obj2」を介して「dt」にアクセスする場合、「dt」の値を2として取得する必要があります。

 use Myclass;

 my $obj1 = new Myclass;
 my $obj2 = new Myclass;

 $obj1->{dt} = 2;

 print $obj2->{dt}; // This should print "2"

これを達成するためにクラスを実装する方法は??

4

1 に答える 1

1

ourパッケージスコープを持つキーワードを使用します。

package Myclass;

use strict;
use warnings;

our $dt;

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class
}

sub dt { # Implement getter/setter

    shift;              # Pulls object off @_ (ignores calling class)
    $dt = shift if @_;  # If argument provided, sets 'dt' to it
    return $dt;         # In both cases (getter/setter), returns current $dt
}

1;

その後：

use strict;
use warnings;
use feature 'say';
use Myclass;


my $obj1 = Myclass->new;
my $obj2 = Myclass->new;

$obj1->dt( 2 );  # Set to 2 via $obj1

say $obj2->dt;   # '2'

$obj2->dt( 5 );  # Set to 5 via $obj2

say $obj1->dt;   # '5'
于 2011-11-04T07:15:35.907 に答える