A B

Check Your Network Address Translator for Compatibility with Peer-to-Peer Protocols. If you are accessing the Internet from behind a Network Address Translator (NAT) of some kind, I would appreciate your help in surveying the behavior of different NATs, in terms of how and whether they support a... Platforms: *nix

PDL::Fit::LM is a Levenber-Marquardt fitting routine for PDL. Currently, only Levenberg-Marquardt fitting is implemented. Other procedures should be added as required. For a fairly concise overview on fitting see Numerical Recipes, chapter 15 "Modeling of data". SYNOPSIS use PDL::Fit::LM;... Platforms: *nix

Devel::Constants is a Perl module that translates constants back to named symbols. SYNOPSIS # must precede use constant use Devel::Constants flag_to_names; use constant A => 1; use constant B => 2; use constant C => 4; my $flag = A | B; print "Flag is: ", join( and ,... Platforms: *nix

PDL::IO::Misc is a Perl module with misc IO routines for PDL. rcols() Read ASCII whitespaced cols from a file into piddles and perl arrays (also see "rgrep()"). There are two calling conventions - the old version, where a pattern can be specified after the filename/handle, and the new... Platforms: *nix

Statistics::RankOrder contains algorithms for determining overall rankings from a panel of judges. SYNOPSIS use Statistics::RankOrder; my $r = Statistics::RankOrder->new(); $r->add_judge( [qw( A B C )] ); $r->add_judge( [qw( A C B )] ); $r->add_judge( [qw( B A C )] ); my %ranks =... Platforms: *nix

Path::Graph is a Perl module created to generate paths from hash graph. SYNOPSIS Code 1 #!usr/bin/perl my %graph = ( A => {B=>1,C=>4}, B => {A=>1,C=>2}, C => {A=>4,B=>2} ); use Paths::Graph; my $g = Paths::Graph->new(-origin=>"A",-destiny=>"C",-graph=>%graph); my @paths =... Platforms: *nix

Template::Plugin::ASCIITable is a Perl module that allows you to use Text::ASCIITable in your templates. SYNOPSIS [% USE ASCIITable %] blah [% ASCIITable.cols(a, b, c); ASCIITable.rows([1,2,3],[one,two,three]); ASCIITable.draw() %] A plugin object will be instantiated with the... Platforms: *nix

Perl6::Currying is a Perl 6 subroutine currying for Perl 5. SYNOPSIS use Perl6::Currying; sub add ($a,$b) { $a + $b } # Define a sub with named params print add(1,2); # Call it my $incr = &add.prebind(a=>1); # Bind the $a argument to 1 # to create an increment subroutine print... Platforms: *nix

Perl6::Gather is a Perl module that implements the Perl 6 gather/take control structure in Perl 5. SYNOPSIS use Perl6::Gather; @list = gather { # Try to extract odd numbers and odd number names... for (@data) { if (/(one|three|five|nine)$/) { take qq{$_}; } elsif (/^d+$/ && $_ %2) {... Platforms: *nix

Perl6::Placeholders is a Perl 6 implicitly declared parameters for Perl 5. SYNOPSIS use Perl6::Placeholders; my $add = { $^a + $^b }; # Create a sub that adds its two args print $add->(1,2), "n"; # Call it # Use as map, grep, and sort blocks print join ",", sort { $^y <=> $^x } 1..10;... Platforms: *nix

List::Maker is a Perl module that can generate more sophisticated lists than just $a..$b. SYNOPSIS use List::Maker; @list = < 1..10 >; # (1,2,3,4,5,6,7,8,9,10) @list = < 10..1 >; # (10,9,8,7,6,5,4,3,2,1) @list = < 1,3,..10 > # (1,3,5,7,9) @list = < 1..10 x 2 > # (1,3,5,7,9) @list = <... Platforms: *nix

File::VirtualPath is a portable abstraction of a file/dir/url path. SYNOPSIS Content of thin shell "startup.pl": #!/usr/bin/perl use strict; use warnings; my $root = "/home/johndoe/projects/aardvark"; my $separator = "/"; if( $^O =~ /Win/i ) { $root = "c:projectsaardvark";... Platforms: *nix

Carp::Datum is a Perl module used for debugging and tracing. SYNOPSIS # In modules use Carp::Datum; # Programming by contract sub routine { DFEATURE my $f_, "optional message"; # $f_ is a lexical lvalue here my ($a, $b) = @_; DREQUIRE $a > $b, "a > b"; $a += 1; $b += 1; DASSERT $a >... Platforms: *nix

File::Repl is a Perl module that provides file replication utilities. SYNOPSIS use File::Repl; %con = { dira => C:/perl, dirb => M:/perl, verbose => 1, age => 10, }; $ref=File::Repl->New(%con); $r1 = $ref->Update(.p(l|m),a<>b,1); $r2 = $ref->Update(.t.*,a<>b,1,.tmp$); The... Platforms: *nix

Test::Number::Delta is a Perl module to compare the difference between numbers against a given tolerance. SYNOPSIS # Import test functions use Test::Number::Delta; # Equality test with default tolerance delta_ok( 1e-5, 2e-5, values within 1e-6); # Inequality test with default tolerance... Platforms: *nix

NestedMap is a module to make nesting map{}s inside map{}s easierc. SYNOPSIS # show all combinations of (A,B,C) (a,b,c) and (1,2,3) print join("n", nestedmap { nestedmap { nestedmap { join(,@NestedMap::stack[0..2]) } qw(A B C) } qw(a b c) } qw(1 2 3) ); # a zip() function for any... Platforms: *nix

Test::Deep is a Perl module for extremely flexible deep comparison. SYNOPSIS use Test::More tests => $Num_Tests; use Test::Deep; cmp_deeply( $actual_horrible_nested_data_structure, $expected_horrible_nested_data_structure, "got the right horrible nested data structure" ); cmp_deeply(... Platforms: *nix

Math::Numbers is a Perl module that contains methods for mathematical approaches of concepts of the number theory. SYNOPSIS use Math::Numbers; my $a = 123; my $b = 34; my $numbers = Math::Numbers->new($a, $b [, ...]); print "They are coprimes (relatively primes)!n" if... Platforms: *nix

Fyre project is a tool for producing computational artwork based on histograms of iterated chaotic functions. At the moment, it implements the Peter de Jong map in a fixed-function pipeline with an interactive GTK+ frontend and a command line interface for easy and efficient rendering of... Platforms: *nix

Devel::SelfStubber is a Perl module that can generate stubs for a SelfLoading module. SYNOPSIS To generate just the stubs: use Devel::SelfStubber; Devel::SelfStubber->stub(MODULENAME,MY_LIB_DIR); or to generate the whole module with stubs inserted correctly use Devel::SelfStubber;... Platforms: *nix