A B

Tao::DBI::st is a Perl module for DBI statements with portable support for named placeholders. SYNOPSIS use Tao::DBI qw(dbi_connect dbi_prepare); $dbh = dbi_connect($args); $sql = q{UPDATE T set a = :a, b = :b where k = :k}; $stmt = $dbh->prepare($sql); $rc = $stmt->execute({ k => $k, a... Platforms: *nix

Sort::Half::Maker is a Perl module to create half-sort subs easily. SYNOPSIS use Sort::Half::Maker qw(make_halfsort); $sub = make_halfsort( start => [ qw(x y z) ], end => [ qw(a b c) ], fallback => sub { $_[0] cmp $_[1] }, ); @list = sort $sub qw(a y f h w z b t x); # qw(x y z f h t w... Platforms: *nix

Sub::PatMat can call a version of subroutine depending on its arguments. SYNOPSIS use Sub::PatMat; # basics: sub fact : when($_[0] <= 1) { 1 } sub fact { my ($n) = @_; $n*fact($n-1) } print fact(6); # referring to things other than @_: sub mysort : when($a < $b) { -1 } sub mysort :... Platforms: *nix

Text::TemplateFill is a Perl module for formatting of reports with templates from files, use for I18N. SYNOPSIS use Text::TemplateFill; my $tmpl = new Text::TemplateFill; $tmpl->SetOpt(BaseDir => "paras/$Country"); $tmpl->SetOpt(ErrorFunction => &LogMsg, LineTerminator => "rn"); # Must... Platforms: *nix

Algorithm::DiffOld is a Perl module to compute `intelligent differences between two files / lists but use the old (<=0.59) interface. NOTE This has been provided as part of the Algorithm::Diff package by Ned Konz. This particular module is ONLY for people who HAVE to have the old interface,... Platforms: *nix

.AudioLink is a tool that makes searching for music on your local storage media easier and faster. Your searches can include a variety of criteria, like male artists, female artists, band, genre, etc. It is flexible, you have options of using a command line interface, multiple choices of GUIs,... Platforms: *nix

PDL::GSL::INTERP is a PDL interface to Interpolation routines in GSL. SYNOPSIS use PDL; use PDL::GSL::INTERP; my $x = sequence(10); my $y = exp($x); my $spl = PDL::GSL::INTERP->init(cspline,$x,$y); my $res = $spl->eval(4.35); $res = $spl->deriv(4.35); $res = $spl->deriv2(4.35);... Platforms: *nix

PDL::GSL::INTEG is a PDL interface to numerical integration routines in GSL. This is an interface to the numerical integration package present in the GNU Scientific Library, which is an implementation of QUADPACK. Functions are named gslinteg_{algorithm} where {algorithm} is the QUADPACK... Platforms: *nix

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

File::Find::Parallel allows you to traverse a number of similar directories in parallel. SYNOPSIS use File::Find::Parallel; my $ffp = File::Find::Parallel->new( qw( /foo /bar ) ); print "Union:n"; my $union = $ffp->any_iterator print " $_n" while $_ = $union->(); print... Platforms: *nix

Nasal is a language that I wrote for use in a personal project. Ostensibly it was because I was frustrated with the dearth of small-but-complete embeddable scripting languages, but of course I really wrote it because it was fun. It is still young and incomplete in a few places, but is under... Platforms: *nix

OpenTaxSolver (OTS) project is a free program for calculating Tax Form entries and tax-owed or refund-due, such as Federal or State personal income taxes. An optional graphical front-end, OTS_GUI, has been added. Currently, TaxSolver has been updated for the 2005 tax-year for the following... Platforms: *nix

Term::ANSIScreen is a Perl module for terminal control using ANSI escape sequences. SYNOPSIS # qw/:color/ is exported by default, i.e. color() & colored() use Term::ANSIScreen qw/:color :cursor :screen :keyboard/; print setmode(1), setkey(a,b); print "40x25 mode now, with a mapped to... Platforms: *nix

XML::Filter::DataIndenter is a SAX2 Indenter for data oriented XML. SYNOPSIS use XML::Filter::DataIndenter; use XML::SAX::Machines qw( Pipeline ); Pipeline( XML::Filter::DataIndenter => *STDOUT ); ALPHA CODE ALERT: This is the first release. Feedback and patches welcome. In data... 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

File::DirCompare is a Perl module to compare two directories using callbacks. SYNOPSIS use File::DirCompare; # Simple diff -r --brief replacement use File::Basename; File::DirCompare->compare($dir1, $dir2, sub { my ($a, $b) = @_; if (! $b) { printf "Only in %s: %sn", dirname($a),... Platforms: *nix

DBIx::EnumConstraints is a Perl module that generates enum-like SQL constraints. SYNOPSIS use DBIx::EnumConstraints; my $ec = DBIx::EnumConstraints->new({ name => kind, fields => [ [ k1, a, b ] , [ k2, b ] ] }); # get enum field definition my $edef = $ec->enum_definition; # $edef is... Platforms: *nix

Regexp::Genex - get the strings a regex will match, with a regex. SYNPOSIS # first try: $ perl -MRegexp::Genex=:all -le print for strings(qr/a(b|c)d{2,3}e*/) $ perl -x `pmpath Regexp::Genex` #!/usr/bin/perl -l use Regexp::Genex qw(:all); $regex = shift || "a(b|c)d{2,4}?"; print... Platforms: *nix

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... Platforms: *nix

FLAT::Legacy::FA::RE is a regular expression base class. SYNOPSIS use FLAT::Legacy::FA::RE; use FLAT::Legacy::FA::NFA; my $re = RE->new(); $re->set_re(a|b|(hi)*); my $nfa = $re->to_nfa(); print $nfa->info(); # see stuff on NFA my $dfa = $nfa->to_dfa(); print $dfa->info(); # see stuff... Platforms: *nix