Bow Tie Puzzle

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...

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>> <$_>...

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

Rush Hour Puzzle Solver project is a Rush Hour puzzle solver that illustrates the solution with PostScript. Rush Hour Puzzle Solver is a small C++ program that reads a Rush Hour board from a text file and produces a nice PostScript file that shows the shortest solution..


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

Tie::HashHistory can track history of all changes to a tied hash. SYNOPSIS my $hh = tie %hash => Tie::HashHistory, PACKAGE, ARGS...; @values = $hh->history(KEY); Tie::HashHistory interposes itself between your program and another tied hash. Fetching and storing to the hash looks...


Platforms: *nix

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)...


Platforms: *nix

Tie::Hash::Stack is a Perl module which maintains an array of hashes like a stack. SYNOPSIS use Tie::Hash::Stack qw(pop_hash push_hash merge_hash); my %hash; tie( %hash, "Tie::Hash::Stack" ); # Ties the hash $hash{ 1 } = "one"; $hash{ 2 } = "two"; $hash{ 3 } = "three"; push_hash...


Platforms: *nix

Multiplication Puzzle project is a simple GTK+ 2 game that emulates the multiplication game found in Emacs. Basically, a multiplication problem is shown with all digits replaced by letters. Your job is to guess which letter represents which number. Translations are available for Afrikaans,...


Platforms: *nix

Tie::FlatFile::Array is a Perl extension which treats a flatfile database as an array of arrays. This module allows the programmer to treat a flatfile database as as array of arrays. For example, lets say you have a datafile that has fixed-length records like so: Field-name Type URL ASCII...


Platforms: *nix

Tie::Form is a Perl module to access a machine readable database file that minics a hardcopy form. SYNOPSIS require Tie::Form; ##### # Using support methods and file handle with # the file subroutines such as open(), readline() # print(), close() # tie *FORM_FILEHANDLE, Tie::Form,...


Platforms: *nix

SYNOPSIS ##### # Subroutines # use Tie::Layers qw(is_handle config); $yes = is_handle( $file_handle ); ($key, $old_value) = config(%options, $key); ($key, $old_value) = config(%options, $key => $new_value ); #### # Config default startup options # @old_options_list =...


Platforms: *nix