untie函数

首页 / Perl入门教程 / untie函数

描述

此函数打破了变量和包之间的绑定,从而取消了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 - untie函数》你学到了什么?在下面做个笔记吧!做站不易,你的分享是对我们最大的支持,感谢!😊

好记忆不如烂笔头。留下你的足迹吧 :)

相关推荐

重学线性代数 -〔朱维刚 - 〕

高楼的性能工程实战课 -〔高楼 - 〕

编程高手必学的内存知识 -〔海纳 - 〕

Kubernetes入门实战课 -〔罗剑锋 - 〕

如何使用 editorconfig 来防止字段上的下划线前缀?

如何获取自上次峰值 Pandas 以来的行数

在Flutter DevTools 中重放请求或复制请求为 CURL

当按下小部件中的按钮时,PyQt5 删除 QListWidgetItem

无法在类方法中访问 Dundered 全局变量

关联满足约束时的快速协议方法

视频推荐

Perl 概述 更多视频教程 »