Fonction Perl untie

La description

Cette fonction rompt la liaison entre une variable et un package, annulant l'association créée par la fonction de lien.

Syntaxe

Voici la syntaxe simple de cette fonction -

untie VARIABLE

Valeur de retour

Cette fonction renvoie 0 en cas d'échec et 1 en cas de succès.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/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.

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

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