camel

鐃緒申魯鐃緒申鐃緒申鐃殉とわ申鐃塾わ申鐃緒申鐃緒申鐃獣わ申鐃初い鐃叔わ申鐃緒申鐃緒申Perl 5鐃緒申鐃緒申念鐃緒申峭鐃緒申鐃緒申粉愎鐃緒申鐃�tie()鐃緒申鐃獣わ申鐃所し鐃殉わ申鐃緒申

tie鐃舜随申鐃夙わ申 - 鐃緒申鐃緒申鐃緒申鐃緒申
鐃緒申鐃緒申函鐃塾�鐃叔緒申鐃緒申鐃緒申動鐃緒申鐃緒申鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙をコンストラク鐃夙わ申鐃緒申鐃所、鐃夙わ申鐃緒申鐃緒申鐃緒申鐃縮わ申鐃緒申鐃夙でわ申鐃緒申鐃所、鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里鐃緒申弍鐃緒申鐃緒申鐃緒申鐃塾わ申鐃叔種申鐃緒申茲随申蠅刻申襦�

鐃夙わ申鐃緒申鐃緒け鐃叔￥申tie()鐃祝つわ申鐃銃醐申辰討鐃緒申鐃緒申鐃緒申箸砲鐃緒申泙鐃緒申腓�鐃緒申

tie()鐃夙はなにわ申?

鐃緒申鐃出り、鐃瞬ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙ではなわ申鐃緒申perl鐃緒申鐃夙み刻申鐃淳デ￥申鐃緒申鐃緒申鐃緒申鐃竣わ申裏鐃叔ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙駕申鐃緒申鐃緒申鐃緒申箸漾廚里鐃緒申箸任鐃緒申鐃緒申鐃緒申譴�鐃淑わ申tie鐃夙呼ばわ申襪�鐃夙醐申鐃緒申鐃出￥申鐃術随申鐃緒申鐃緒申蠅居申譴随申鐃緒申薀刻申坊鐃俊つわ申鐃暑か鐃初、鐃叔わ申鐃緒申

鐃緒申鐃緒申鐃准拠、実際に醐申鐃銃みまわ申鐃順う鐃緒申

use strict;
use warnings;
{
    package MyScalar;
    use Carp;
    sub TIESCALAR {
        my $pkg = shift;
        carp "TIESCALAR('$pkg')";
        bless \do { my $scalar }, $pkg;
    }
    sub FETCH($) {
        my $this = shift;
        carp "FETCH($this)";
        return $$this;
    }
    sub STORE($$) {
        my ( $this, $value ) = @_;
        carp "STORE($this, $value)";
        $$this = $value;
    }
    sub DESTROY {
        my $this = shift;
        carp "DESTROY($this)";
    }
}

{
    tie my $scalar, 'MyScalar';
    $scalar = 1;
    print $scalar, "\n";
    $scalar++;
    print $scalar, "\n";
    print 'tied($scalar) = ', tied($scalar), "\n";
    tied($scalar)->STORE(3);
    print $scalar, "\n";
}

CodePad鐃緒申動鐃緒申鐃緒申鐃緒申鐃緒申鐃塾で￥申鐃緒申鐃緒申鐃叔わ申同鐃緒申侫鐃緒申鐃緒申鐃緒申鐃�MyScalar鐃術ッワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申泙鐃�....鐃夙思って削申CodePad鐃薯見わ申鐃緒申鐃緒申鐃緒申鐃�[鐃緒申鐃処し鐃緒申鐃塾でワ申鐃緒申媛鐃�]鐃緒申鐃淑ので以常申漏銅鐃緒申孫圓鐃緒申討鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑器申鐃緒申鐃祝なっわ申鐃夙思わ申鐃殉わ申鐃緒申

[Run via codepad] 
TIESCALAR('MyScalar') at tiescalar.pl line 28
STORE(MyScalar=SCALAR(0x181c290), 1) at tiescalar.pl line 29
FETCH(MyScalar=SCALAR(0x181c290)) at tiescalar.pl line 30
1
FETCH(MyScalar=SCALAR(0x181c290)) at tiescalar.pl line 31
STORE(MyScalar=SCALAR(0x181c290), 2) at tiescalar.pl line 31
FETCH(MyScalar=SCALAR(0x181c290)) at tiescalar.pl line 32
2
tied($scalar) = MyScalar=SCALAR(0x181c290)
STORE(MyScalar=SCALAR(0x181c290), 3) at tiescalar.pl line 34
FETCH(MyScalar=SCALAR(0x181c290)) at tiescalar.pl line 35
3
DESTROY(MyScalar=SCALAR(0x181c290)) at tiescalar.pl line 0

鐃緒申鐃塾わ申鐃夙わ申鐃初、鐃淑駕申鐃塾わ申鐃夙わ申鐃緒か鐃緒申泙鐃緒申鐃�

  • tie my $scalar, 'MyScalar'鐃熟￥申TIESCALAR('MyScalar')鐃緒申孫圓鐃緒申鐃�
  • $scalar鐃緒申鐃粛にワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申函鐃�MyScalar::FETCH()鐃緒申鐃渋行わ申鐃緒申鐃�
    • tied($scalar)->FETCH()鐃緒申同鐃緒申
  • $scalar鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申函鐃�MyScalar::STORE()鐃緒申鐃渋行わ申鐃緒申鐃�
    • $scalar = $value鐃緒申鐃緒申tied($scalar)->STORE($value)鐃緒申同鐃緒申
  • 鐃緒申鐃緒申鐃緒申鐃竣わ申抜鐃緒申鐃緒申鐃夙わ申鐃緒申鐃叔￥申MyScalar::DESTROY()鐃緒申鐃渋行わ申鐃緒申鐃�

鐃竣わ申鐃緒申法鐃�tie()鐃緒申鐃曙た鐃術随申鐃緒申鐃出わ申鐃緒申鐃緒申遒�鐃緒申鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申鐃出わ申鐃緒申瓮緒申奪標討喀个鐃緒申鐃緒申儡鐃緒申鐃緒申鐃緒申里任鐃緒申鐃�

Scalar鐃塾常申隋�鐃緒申埜鐃緒申鐃緒申未鐃淑わ申鐃淑わ申鐃緒申鐃緒申廛鐃叔わ申鐃緒申鐃緒申鐃緒申鐃曙がArray鐃緒申Hash鐃緒申File Handle鐃夙なわ申函鐃緒申發�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃粛ばなわ申覆鐃緒申瓮緒申奪匹鐃緒申鐃緒申鐃緒申泙鐃緒申鐃緒申鐃緒申鐃緒申佑鐃緒申鐃緒申鐃銃縁申鐃緒申任鐃緒申鐃緒申泙鐃緒申鐃�Perl 5鐃祝わ申Tie::Scalar, Tie::Array, Tie::Hash, 鐃緒申鐃緒申鐃緒申 Tie::Handle鐃夙わ申鐃緒申鐃駿￥申鐃緒申鐃緒申鐃初ス鐃緒申鐃緒申鐃叔わ申鐃術意わ申鐃緒申討鐃緒申鐃塾で￥申鐃緒申鐃緒申鐃緒申兢鐃緒申鐃緒申鐃緒申必鐃竣なメソ鐃獣ドわ申鐃緒申鐃薯自作し鐃銃楽をするこ鐃夙わ申鐃緒申鐃殉わ申鐃緒申

鐃夙わ申鐃緒申鐃緒申鐃緒申Damian鐃緒申鐃緒申鐃熟わ申鐃緒申tie鐃緒申鐃緒申鐃緒申鐃緒申鐃淑のでわ申鐃緒申

asin:0596001738
Perl Best Practices
Damian Conway
[邦鐃緒申:Perl鐃駿ワ申鐃夙プラク鐃銃ワ申鐃緒申]
"Perl Best Practices" P.451

Don't tie variables or filehandles.
鐃術随申鐃緒申侫鐃緒申鐃緒申鐃熟ワ申疋鐃緒申tie()鐃緒申鐃緒申鐃�

鐃塾わ申鐃祝￥申Perl 5鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙指醐申鐃緒申鐃塾ってわ申鐃緒申弌鐃緒申錣駈申錣�tie()鐃緒申陲気鐃緒申箸鐃縦常申縫鐃緒申屮鐃緒申鐃緒申鐃緒申箸鐃夙わ申鐃出わ申鐃緒申鐃緒け鐃叔わ申鐃緒申鐃渋際わ申鐃緒申鐃緒申鐃緒申鐃緒申速鐃叔もあ鐃緒申泙鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃緒申tie()鐃緒申鐃緒申鐃暑お鐃緒申鐃緒申鐃叔￥申Perl 4鐃緒申鐃緒申鐃塾わ申覆鐃緒申佑任鐃�Perl 5鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙のパワー鐃緒申鐃緒申鐃術わ申鐃暑こ鐃夙わ申鐃緒申鐃緒申泙鐃緒申鐃緒申鐃�Perl 5鐃祝わ申鐃夙み刻申鐃殉わ申討鐃緒申覆鐃緒申鐃叔緒申鐃緒申鐃緒申立鐃緒申鐃淑わ申鐃竣よう鐃祝種申鐃緒申鐃緒申鐃暑こ鐃夙わ申鐃叔緒申砲覆辰討鐃緒申泙鐃緒申鐃�

鐃緒申鐃盾そ鐃盾そ鐃緒申鐃緒申鐃緒申DCONWAY鐃緒申鐃緒申鐃緒申鐃夙￥申tie鐃緒申箸鐃緒申皀醐申紂種申鐃薯いわ申鐃縦わ申弔鐃緒申辰討泙鐃緒申鐃� Readonly鐃淑んかわ申鐃緒申典鐃緒申鐃叔わ申鐃緒申Tie鐃緒申鐃初い鐃緒申DCONWAY鐃緒申鐃緒申鐃緒申Tie鐃緒申Readonly鐃緒申鐃緒申鐃緒申鐃緒申董鐃�Tie鐃緒申鐃緒申鐃淑わ申Attribute::Constant鐃緒申tie鐃緒申鐃緒申鐃塾私が鐃緒申鐃緒申鐃緒申鐃緒申覆鐃銃なんたわ申鐃緒申鐃緒申鐃叔わ申鐃順う鐃緒申鐃粛わ申鐃緒申

tie鐃熟￥申OO鐃緒申鐃塾わ申覆鐃緒申廛鐃緒申鐃緒申鐃淳ング初心鐃峻にとっわ申Use鐃緒申鐃駿わ申鐃緒申里任鐃緒申鐃塾わ申同鐃緒申鐃祝￥申OO鐃薯習わ申鐃緒申里砲鐃�(perl鐃祝限らず!)鐃醇好鐃塾駈申鐃緒申任鐃緒申鐃緒申伴鐃緒申鐃�Tie鐃盾ジ鐃遵ー鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申弌鐃�Perl 5鐃緒申OO鐃熟ほわ申鐃夙居申鐃緒申鐃緒申鐃夙わ申鐃獣てわ申茲わ申鐃緒申蕕わ申鐃�

鐃淳なわ申鐃緒申癲�鐃緒申辰鐃�tie鐃緒申鐃緒申僂鐃緒申討澆泙鐃緒申腓�鐃緒申Perl鐃淑鰹申鐃祝わ申鐃緒申多鐃祝なわ申鐃緒申能鐃叔わ申鐃緒申鐃緒申鐃循わ申函鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申任鐃緒申茵ｏ申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申鐃出種申鐃曙自鐃緒申鐃祝はなわ申泙鐃緒申鐃緒申鐃�

Dan the Perl Monger

See Also: