Cevap

'tied' — Perl'in güçlü bir mekanizmasıdır ve değişkenin standart davranışını özel bir arayüzü uygulayan bir nesne aracılığıyla özelleştirmenizi sağlar. Genellikle değişkenleri üçüncü taraf depolama ile bağlamak veya standart olmayan davranışlar (örneğin, önbellek, veritabanı, anlık şifreleme) için kullanılır.

Örnek: Dosya ile senkronizasyon için TIEHASH

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;

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

Özellikler

Sınıf, TIEHASH, FETCH, STORE, EXISTS, DELETE, CLEAR yöntemlerini uygulamalıdır.
Skalarlar (TIESCALAR), diziler (TIEARRAY) ve hashler (TIEHASH) için çalışır.
Hataları ayıklamak ve test etmek zordur, genellikle beklenmeyen yan etkilere neden olur.

Yanıtı gerektiren soru

Soru: untie fonksiyonu kullanılabilir mi ve bu işlemi yapmazsanız ne olacak?

Cevap: untie %hash; kullandıktan sonra değişkendeki işlemler nesne ile bağlantıyı kaybeder, ancak dahili çözme yöntemleri (DESTROY) yalnızca değişken tamamen yok olduğunda çağrılabilir. untie çağrılmazsa, skript sona erdiğinde veriler kaydedilmeyebilir veya bellek sızıntıları oluşabilir.

Örnek:

tie my %h, 'SomeClass';
# ... çalışıyoruz ...
untie %h; # Bu, nesnenin düzgün bir şekilde sonlanmasını sağlar

Bu konunun inceliklerini bilmemekten kaynaklanan gerçek hata örnekleri

Hikaye Bilgi sisteminde bir önbellek tie aracılığıyla hash kullanılarak uygulanmış, ancak temizleme yöntemi (untie) düzgün çağrılmamıştır. Sonuç olarak, hizmetin tekrar tekrar başlatılmasında önbellek sürekli büyümüş ve bellek serbest bırakılmamıştır.

Hikaye Denetim kaydında, olayları saklamak için TIEARRAY kullanılmış ve iç kısımlar sadece bazı yöntemleri miras almıştır. Sonuç olarak, bir öğeyi silme girişiminde, başlatılmamış yöntemlerden dolayı zor tespit edilen hatalar meydana gelmiştir.

Hikaye tie ile içeriğin şifrelenmesini sağlarken, birçok CPAN modülünün Perl’in iç yöntemlerini doğrudan kullanmasını göz ardı ettik. Bu yüzden, veriler dönem dönem şifrelenmemiş olarak kaydedilmiştir.