Long Beach Hash House Harriers

Variable::Alias is a Perl module created to alias any variable to any other variable. SYNOPSIS use Variable::Alias alias; my $src; my $a; our $b; my @c; our @d; alias $src => $a; alias $a => $b; alias $b => $c[0]; alias @c => @d; $src=src; # All the other variables now have the...

Getopt::GUI::Long is a wrapper around Getopt::Long that extends the value of the original Getopt::Long module. SYNOPSIS use Getopt::GUI::Long; # pass useful config options to Configure Getopt::GUI::Long::Configure(qw(display_help no_ignore_case capture_output)); GetOptions(%opts,...

Ready for summer yet? The beachballs blog screensaver lets beach balls gently float down on your desktop and fill your screen. Watch closely for the palm tree and other beach items float by. Sure to get you in the mood for summer.


Platforms: Windows

Its summer time, and you know what that means. Watch your desktop as beach balls float down onto the beach and fill your screen. Watch closely for the palm tree and other beach items float by. Sure to get you in the mood for summer.


Platforms: Windows

Calculate MD5 hash of multiple files. You can copy MD5 hashes to the clipboard or save to a text file from an easy to use interface. Features: * Fast Calculation * Select multiple files, or drag direct from Windows explorer * Customizable results window * Save results to a...


Platforms: Windows

Hash::NoVivify is a Perl extension for non-vivifying exists and defined functions. SYNOPSIS use Hash::NoVivify qw(Defined Exists); ... if (Exists(%hash, qw(key1 key2 ... keyn ))) { ... } if (Defined(%hash, qw(key1 key2 ... keyn))) { ... } When used on a hash, the exists() and...


Platforms: *nix

Long Range ZIP is a compression program that can achieve very high compression ratios and speed when used with large files. It uses the combined compression algorithms of lzma for maximum compression, lzo for maximum speed, and the long range redundancy reduction of rzip. It is designed to...


Platforms: *nix

Set::Hash is a Perl module with hashes as objects with lots of handy methods (including set comparisons) and support for method chaining. SYNOPSIS use Set::Hash; my $sh1 = Set::Hash->new(name=>"dan",age=>33); my $sh2 = Set::Hash->new(qw/weight 185 height 72/); $sh1->length->print; # 2...


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

Getopt::Long::Descriptive is a Getopt::Long module with usage text. SYNOPSIS use Getopt::Long::Descriptive; my ($opts, $usage) = describe_options($format, @opts, %arg); FORMAT $format = "usage: myprog %o myarg..."; %o will be replaced with a list of the short options, as well as the...


Platforms: *nix

Basset::Container::Hash Perl module implements a layered hash. The easiest way to explain is with an example: my %x = (a => b); tie my %y, Basset::Container::Hash, %x; #<- %x is the parent of y. print $x{a}; #prints b print $y{a}; #prints b (inherited from x) $y{a} = foo; $y{z} = bar;...


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

Hash::Type module contains pseudo-hashes as arrays tied to a "type" (list of fields). SYNOPSIS use Hash::Type; # create a Hash::Type my $personType = new Hash::Type(qw(firstname lastname city)); # create and populate some hashes tied to $personType tie %wolfgang, $personType, "wolfgang...


Platforms: *nix

Class::Method::hash is a Perl module that helps you create methods for handling a hash value. SYNOPSIS use Class::MethodMaker [ hash => [qw/ x /] ]; $instance->x; # empty $instance->x(a => 1, b => 2, c => 3); $instance->x_count == 3; # true $instance->x = (b => 5, d => 8); # Note this...


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

Hash::Merge Perl module merges arbitrarily deep hashes into a single hash. SYNOPSIS use Hash::Merge qw( merge ); my %a = ( foo => 1, bar => [ qw( a b e ) ], querty => { bob => alice }, ); my %b = ( foo => 2, bar => [ qw(c d) ], querty => { ted => margeret }, ); my %c = %{ merge(...


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

Hash::Diff::Dispatch allows to execute code depending on difference between hashes. SYNOPSIS my $hash_watcher = Hash::Diff::Dispatch->new( {}, # Sets the starting hash # The events will be called using the order returned # by calling keys on these values... b => &bold, i => &italic,...


Platforms: *nix

Getargs::Long is a Perl module with named subroutine arguments, with optional type checking. SYNOPSIS use Getargs::Long; # case sensitive use Getargs::Long qw(ignorecase); # case insensitive # Simple, args mandatory my ($val, $other) = getargs(@_, qw(val other)); # Simple, args optional...


Platforms: *nix

Sys::Hostname::Long is a Perl module to try every conceivable way to get full hostname. SYNOPSIS use Sys::Hostname::Long; $host_long = hostname_long; How to get the host full name in perl on multiple operating systems (mac, windows, unix* etc) DISCUSSION This is the SECOND release of...


Platforms: *nix