Foreach

Music::Chord::Namer - You give it notes, it names the chord. SYNOPSIS use Music::ChordName qw/chordname/; print chordname(qw/C E G/); # prints C print chordname(q/C E G/); # same (yes, array or string!) print chordname(qw/C Eb G Bb D/); # prints Cm9 print chordname(qw/G C Eb Bb D/); #... Platforms: *nix

SYNOPSIS my $mi = Movie::Info->new || die "Couldnt find an mplayer to usen"; foreach my $file (@ARGV) { my %info = $mi->info($file) || warn "Couldnt read info from $filen" && next; print "$file (WxH) - $info{width}x$info{height}n"; } Movie::Info is a thin layer around MPlayers... Platforms: *nix

cDB is a class for easy access MySQL databases.cDB Class includes:- Internal timming for benchmarcks- isRsEmpty - checks if resultset is empty (fast)- getRows - similar to getRows of asp ADO (easy loop regs with foreach)- debugMode Platforms: PHP

A simple plugin allowing commenters to reply to each other's comments.Installation : 1. Upload the directory kommentvalasz to /wp-content/plugins/. 2. Insert somewhere into the foreach loop of your comments.php file (/wp-content/themes/YOUR_THEME/comments.php). 3. Activate the plugin under the... Platforms: PHP

Given a set of points in N-dimensional Euclidean space, works out for each point the distance to its nearest neighbour (unless its nearest neighbour isn't very close). The distance metric is a method; subclass and override it for non-Euclidean space. SYNOPSIS use... Platforms: *nix

This module allows you to interact with the ConstantContact mass email marketing service from perl, such as creating and mainting contacts and contact lists. Before using this module, you must register your application with the ConstantContact company, agree to their terms & conditions, and... Platforms: *nix

Palm::Magellan::NavCompanion is a Perl module that gives you access to the waypoints in the Magellan's GPS Companion "Companion Waypoints.pdb" file. You have to be able to load that file, which probably means that you have it on your computer rather than your Palm. On my machine, this file shows... Platforms: *nix

Audio::FLAC::Header is a Perl module returns a hash containing basic information about a FLAC file, a representation of the embedded cue sheet if one exists, as well as tag information contained in the FLAC file's Vorbis tags. There is no complete list of tag keys for Vorbis tags, as they can be... Platforms: *nix

MediaWiki::Bot::Plugin::Admin is a plugin to the MediaWiki::Bot framework to provide administrative functions to a bot. SYNOPSIS use MediaWiki::Bot; my $bot = MediaWiki::Bot->new('Account'); $bot->login('Account', 'password'); my @pages = ('one', 'two', 'three'); foreach my $page (@pages)... Platforms: *nix

Class::DBI::Plugin::FilterOnClick is a Perl module to generate browsable and searchable HTML Tables using FilterOnClick in conjunction with Class::DBI. SYNOPSIS # Inside of your sub-class of Class::DBI add these lines: use Class::DBI::Plugin::FilterOnClick; use Class::DBI::Pager; use... Platforms: *nix

Filesys::SmbClientParser is a Perl client to reach Samba ressources with smbclient. SYNOPSIS use Filesys::SmbClientParser; my $smb = new Filesys::SmbClientParser (undef, ( user => Administrateur, password => password )); # Or like -A parameters: $smb->Auth("/home/alian/.smbpasswd");... Platforms: *nix

Algorithm::Knapsack is a brute-force algorithm for the knapsack problem. SYNOPSIS use Algorithm::Knapsack; my $knapsack = Algorithm::Knapsack->new( capacity => $capacity, weights => @weights, ); $knapsack->compute(); foreach my $solution ($knapsack->solutions()) { foreach my $index... Platforms: *nix

Archive::Chm is a Perl module that performs some read-only operations on HTML help (.chm) files. Range of operations includes enumerating contents, extracting contents and getting information about one certain part of the archive. The module supersedes Text::Chm written by Domenico Delle Side.... Platforms: *nix

FrameNet::WordNet::Detour is a WordNet to FrameNet Detour. SYNOPSIS use FrameNet::WordNet::Detour; # Creation without parameters, $WNHOME and $FNHOME will be used my $detour = FrameNet::WordNet::Detour->new; # Creation with some parameters my $detour2 =... Platforms: *nix

Mail::Webmail::Gmail is an interface to Googles webmail service. SYNOPSIS # Perl script that logs in to Gmail, retrieves the user defined labels # Then prints out all new messages under the first label use Mail::Webmail::Gmail; my $gmail = Mail::Webmail::Gmail->new( username =>... Platforms: *nix

Games::Cards is a Perl module for writing and playing card games. SYNOPSIS use Games::Cards; my $Rummy = new Games::Cards::Game; # Create the correct deck for a game of Rummy. my $Deck = new Games::Cards::Deck ($Rummy, "Deck"); # shuffle the deck and create the discard pile... Platforms: *nix

POE::Component::Client::Traceroute is a non-blocking traceroute client. SYNOPSIS use POE qw(Component::Client::Traceroute); POE::Component::Client::Traceroute->spawn( Alias => tracer, # Defaults to tracer FirstHop => 1, # Defaults to 1 MaxTTL => 16, # Defaults to 32 hops Timeout => 0, #... Platforms: *nix

SYNOPPSIS use LWP::Simple use XML::Parser; use XML::Parser::YahooRESTGeocode; #connect to yahoo geocode service my $url = http://api.local.yahoo.com/MapsService/V1/geocode; my $get = appid=YahooDemo&street=701+First+Street&city=Sunnyvale&state=CA; #call yahoo geocode service my $xml =... Platforms: *nix

Tree::BPTree is a Perl implementation of B+ trees. SYNOPSIS use Tree::BPTree; # These arguments are actually the defaults my $tree = new Tree::BPTree( -n => 3, -unique => 0, -keycmp => sub { $_[0] cmp $_[1] }, -valuecmp => sub { $_[0] <=> $_[1] }, ); # index the entries in this... Platforms: *nix

Template::FAQ contains Frequently Asked Questions about the Template Toolkit. Template Toolkit Language Why doesnt [% a = b IF c %] work as expected? Because the parser interprets it as [% a = (b IF c) %] Do this instead: [% SET a = b IF c %] If Im using TT to write out a TT... Platforms: *nix