描述
该函数打破了变量和包之间的绑定,撤销了由 tie 函数创建的关联。
用法
以下是此函数的简单语法 -
untie VARIABLE
返回值
此函数在失败时返回 0,成功时返回 1。
示例
以下是显示其基本用法的示例代码 -
#!/usr/bin/perl -w
package MyArray;
sub TIEARRAY {
print "TYING\n";
bless [];
}
sub DESTROY {
print "DESTROYING\n";
}
sub STORE {
my ($self, $index, $value ) = @_;
print "STORING $value at index $index\n";
$self[$index] = $value;
}
sub FETCH {
my ($self, $index ) = @_;
print "FETCHING the value at index $index\n";
return $self[$index];
}
package main;
$object = tie @x, MyArray; #@x is now a MyArray array;
print "object is a ", ref($object), "\n";
$x[0] = 'This is test'; #this will call STORE();
print $x[0], "\n"; #this will call FETCH();
print $object->FETCH(0), "\n";
untie @x #now @x is a normal array again.
执行上述代码时,会产生以下结果 -
TYING object is a MyArray STORING This is test at index 0 FETCHING the value at index 0 This is test FETCHING the value at index 0 This is test DESTROYING
相关用法
- Perl undef用法及代码示例
- Perl unshift()用法及代码示例
- Perl unpack用法及代码示例
- Perl unlink用法及代码示例
- Perl unshift用法及代码示例
- Perl utime用法及代码示例
- Perl use用法及代码示例
- Perl umask用法及代码示例
- Perl uc()用法及代码示例
- Perl uc用法及代码示例
- Perl ucfirst用法及代码示例
- Perl sin()用法及代码示例
- Perl abs()用法及代码示例
- Perl kill用法及代码示例
- Perl chop()用法及代码示例
- Perl wantarray用法及代码示例
- Perl gmtime用法及代码示例
- Perl exists()用法及代码示例
- Perl split用法及代码示例
注:本文由纯净天空筛选整理自 Perl untie Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。