Réponse

tied est un mécanisme puissant de Perl qui permet de remplacer le comportement standard d'une variable par une logique personnalisée (via un objet qui implémente une interface spéciale). Il est souvent utilisé pour lier des variables à un stockage tiers ou à un comportement non standard (par exemple, cache, base de données, chiffrement à la volée).

Exemple : TIEHASH pour la synchronisation avec un fichier

package FileHash;
use Storable;
sub TIEHASH {
    my ($class, $file) = @_;
    my $data = -e $file ? retrieve($file) : {};
    bless { file => $file, data => $data }, $class;
}
sub STORE   { my ($s, $k, $v) = @_; $s->{data}{$k} = $v; store($s->{data}, $s->{file}); }
sub FETCH   { my ($s, $k) = @_; $s->{data}{$k} }
sub EXISTS  { my ($s, $k) = @_; exists $s->{data}{$k} }
sub DELETE  { my ($s, $k) = @_; delete $s->{data}{$k}; store($s->{data}, $s->{file}); }
sub CLEAR   { my $s = shift; $s->{data} = {}; store($s->{data}, $s->{file}); }
1;

# Utilisation:
tie my %hash, 'FileHash', '/tmp/data.store';
$hash{x} = 42;
print $hash{x};

Particularités

La classe doit implémenter les méthodes TIEHASH, FETCH, STORE, EXISTS, DELETE, CLEAR.
Fonctionne pour des scalaires (TIESCALAR), des tableaux (TIEARRAY) et des hachages (TIEHASH).
Difficile à déboguer et à tester, peut souvent entraîner des effets secondaires inattendus.

Question piège

Question : Peut-on utiliser la fonction untie pour ramener une variable à son comportement normal, et que se passera-t-il si cela n'est pas fait ?

Réponse : Après avoir utilisé untie %hash;, les opérations suivantes sur la variable perdent le lien avec l'objet, mais les méthodes internes de déliage (DESTROY) peuvent être appelées uniquement après la destruction complète de la variable. Si untie n'est pas appelé, des données peuvent ne pas être sauvegardées ou des fuites de mémoire peuvent se produire à la fin du script.

Exemple :

tie my %h, 'SomeClass';
# ... travaillons ...
untie %h; # Cela termine correctement le travail de l'objet

Exemples d'erreurs réelles dues à l'ignorance des subtilités du sujet

Histoire Dans le système d'information, un cache a été implémenté via tie pour un hachage, mais on a oublié d'appeler correctement les méthodes de nettoyage (untie). En conséquence, lors des redémarrages répétés du service, le cache continuait de croître et ne libérait pas de mémoire.

Histoire Dans le journal d'audit, TIEARRAY était utilisé pour stocker des événements, et à l'intérieur, seuls une partie des méthodes étaient héritées. En résultait des erreurs difficiles à détecter lors de la tentative de suppression d'un élément en raison de méthodes non initialisées.

Histoire Lors de l'implémentation d'un chiffrement transparent du contenu via tie scalaires, on a oublié de prendre en compte que de nombreux modules CPAN utilisent directement les méthodes internes de Perl, contournant l'interface tie. En conséquence, les données étaient parfois sauvegardées en clair.