Tie Dye Supplies

Tie::Proxy::Hash is a Perl module created to efficiently merge & translate hashes. SYNOPSIS my (%hash, $ref); $ref = tie %hash, Tie::Proxy::Hash, (bart => +{a => 1, b => 2}, maggie => +{a => 5, c => 6, e => 10}, ); $hash{a} == 1; # true $hash{b} == 2; # true (bart supercedes maggie)...

This animated screensaver features the famous tie fighter of star wars flying around your screen.

Cache::Memcached::Tie is a Perl module created for using Cache::Memcached as hash. SYNOPSIS #!/usr/bin/perl -w use strict; use Cache::Memcached::Tie; my %hash; my $memd=tie %hash,Cache::Memcached::Tie, {servers=>[192.168.0.77:11211]}; $hash{b}=[a,{b=>a}]; print $hash{a}; print...


Platforms: *nix

Cache-Memcached-Tie is a tie for Cache::Memcached. Installation: To install this module type the following: perl Makefile.PL make make test make install.


Platforms: *nix

Locale::Maketext::Lexicon::Tie is a Perl module to use tied hashes as lexicons for Maketext. SYNOPSIS package Hello::I18N; use base Locale::Maketext; use Locale::Maketext::Lexicon { en => [ Tie => [ DB_File => en.db ] ], }; This module lets you easily tie the %Lexicon hash to a database...


Platforms: *nix

Tie::FileLRUCache is a lightweight but robust filesystem based persistent LRU cache. SYNOPSIS OBJECT INTERFACE use Tie::FileLRUCache; my $cache = Tie::FileLRUCache->new({ -cache_dir => $directory, -keep_last => 100 }); # Inserting value into LRU cache using -key $cache->update({ -key =>...


Platforms: *nix

Tie::ListKeyedHash is a system allowing the use of anonymous arrays as keys to a hash. SYNOPSIS use Tie::ListKeyedHash; [$X =] tie %hash, Tie::ListKeyedHash; my $live_key = [key,items,live]; $hash{$live_key} = Hello!; $hash{[key,trees,grow]} = Goodbye!; print...


Platforms: *nix

Tie::Array::PackedC is a tie a Perl array to a C-style array (packed; elements of a single, simple data type). SYNOPSIS use Tie::Array::PackedC qw(packed_array packed_array_string); my $ref=packed_array(1,2,3,4); my $ref2=packed_array_string(my $s,1,2,3,4); use Tie::Array::PackedC...


Platforms: *nix

Tie::UrlEncoder is a Perl module for interpolatably URL-encode strings. Syntactic sugar for URL-Encoding strings. Tie::UrlEncoder imports a tied hash %urlencode into your package, which delivers a RFC 1738 URL Encoded string of whatever is given to it, for easy embedding of URL-Encoded strings...


Platforms: *nix

Tie::CountLoop is a Perl module that helps you have a counter looping in a scalar with min max and increment value. SYNOPSIS use Tie::CountLoop; tie my $counter , Tie::CountLoop,15 ,-1 ,15 ,7 ,0; my $t = tied $counter; $t->increment( 1 ); for ( 1 .. 20 ) { print " <<$counter>> <$_>...


Platforms: *nix

Thread::Tie can tie variables into a thread of their own. SYNOPSIS use Thread::Tie; # use as early as possible for maximum memory savings # use default thread + tieing + create thread when needed tie $scalar, Thread::Tie; tie @array, Thread::Tie; tie %hash, Thread::Tie; tie *HANDLE,...


Platforms: *nix

Tie::Hash::RegexKeys will match hash keys using Regular Expressions. SYNOPSIS use Tie::Hash::RegexKeys; use Data::Dumper; my %h; tie %h, Tie::Hash::RegexKeys; my $a = .1.2.3.4.5.6.2; my $b = .1.2.3.4.5.7; my $c = .1.2.3.4.5.6.1; my $d = .1.2.3.4.5.6.1.6; $h{$a}="key1";...


Platforms: *nix

Tie::Array::RestrictUpdates can limit the number of times you change elements in an array. SYNOPSIS use Tie::Array::RestrictUpdates; tie @foo,"Tie::Array::RestrictUpdates",1; # Default limit is 1. # Every element from the array can only be changed once @foo = qw(A B C D E); for(0..4) {...


Platforms: *nix

Tie::Scalar::Sticky is a Perl module with block assignments to scalars. SYNOPSIS use strict; use Tie::Scalar::Sticky; tie my $sticky, Tie::Scalar::Sticky; $sticky = 42; $sticky = ; # still 42 $sticky = undef; # still 42 $sticky = 0; # now its zero tie my $sticky, Tie::Scalar::Sticky...


Platforms: *nix

Tie::CharArray module can access Perl scalars as arrays of characters. SYNOPSIS use Tie::CharArray; my $foobar = a string; tie my @foo, Tie::CharArray, $foobar; $foo[0] = A; # $foobar = A string push @foo, !; # $foobar = A string! print "@foon"; # prints: A s t r i n g ! tie my @bar,...


Platforms: *nix

Tie::OffsetArray can tie one array to another, with index offset. SYNOPSIS use Tie::OffsetArray; tie @a, Tie::OffsetArray, 1, @b; # offset=1; use given array. tie @c, Tie::OffsetArray, 2; # use anonymous array. $a[0] = x; # assign to $b[1]; tied(@a)->array->[0] = y; # assign to $b[0]....


Platforms: *nix

Tie::Hash::Sorted Perl module presents hashes in sorted order. SYNOPSIS use Tie::Hash::Sorted; my %ages = ( John => 33, Jacob => 29, Jingle => 15, Heimer => 48, Smitz => 12, ); my $sort_by_numeric_value = sub { my $hash = shift; [ sort {$hash->{$b} <=> $hash->{$a}} keys %$hash ];...


Platforms: *nix

Tie::DB_Lock Perl module can tie hashes to databases using shared and exclusive locks. SYNOPSIS use Tie::DB_Lock; use DB_File; tie(%hash, Tie::DB_Lock, $filename, rw); # Open for writing $hash{key} = value; untie %hash; tie(%hash2, Tie::DB_Lock, $filename); # Default is read-only...


Platforms: *nix

Tie::Trace can easy print debugging with tie. SYNOPSIS use Tie::Trace; my %hash; tie %hash, "Tie::Trace"; $hash{hoge} = hogehoge; # warn Hash => Key: hoge, Value: hogehgoe at ... my @array; tie @aray, "Tie::Trace"; push @array, "array"; # warn Array => Point: 0, Value: array at ......


Platforms: *nix

Tie::File can access the lines of a disk file via a Perl array. SYNOPSIS # This file documents Tie::File version 0.96 use Tie::File; tie @array, Tie::File, filename or die ...; $array[13] = blah; # line 13 of the file is now blah print $array[42]; # display line 42 of the file $n_recs...


Platforms: *nix