Printf

MPEG::Info is a basic MPEG bitstream attribute parser. SYNOPSIS use strict; use MPEG::Info; my $video = MPEG::Info->new( -file => $filename ); $video->probe(); print $file->type; ## MPEG ## Audio information print $file->acodec; ## MPEG Layer 1/2 print $file->acodecraw; ## 80 print... Platforms: *nix

Video::Info::MPEG is a basic MPEG bitstream attribute parser. SYNOPSIS use strict; use Video::Info::MPEG; my $video = Video::Info::MPEG->new( -file => $filename ); $video->probe(); print $file->type; ## MPEG ## Audio information print $file->acodec; ## MPEG Layer 1/2 print... Platforms: *nix

WAVE Utilities package contains three programs for dealing with WAVE format audio files. SimplifyWave The standard permits WAVE format audio files to contain a variety of chunks, such as playlists, cue lists, and padding. A fair amount of software, however, is unable to parse such complex... 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

Inline::CPR is C Perl Run. Embed Perl in C, ala Inline SYNOPSIS #!/usr/local/bin/cpr int main(void) { printf("Hello World, Im running under Perl version %sn", CPR_eval("use Config; $Config{version}") ); return 0; } Is it C? Is it Perl? Its neither, its both. Its CPR! CPR (C Perl... Platforms: *nix

Algorithm::BinPack is a Perl module that can efficiently pack items into bins. SYNOPSIS Algorithm::BinPack efficiently packs items into bins. The bins are given a maximum size, and items are packed in with as little empty space as possible. An example use would be backing up files to CD,... Platforms: *nix

MP3::Info is a Perl module that can manipulate / fetch info from MP3 audio files. SYNOPSIS #!perl -w use MP3::Info; my $file = Pearls_Before_Swine.mp3; set_mp3tag($file, Pearls Before Swine, q"77s", Sticks and Stones, 1990, q"(c) 1990 77s LTD.", rock & roll); my $tag =... Platforms: *nix

AudioCD::Mac is a MacPerl extension for controlling Audio CDs. SYNOPSIS #!perl -w use AudioCD; use strict; my $cd = new AudioCD; $cd->volume(255); $cd->play(2); print "Now playingn" if $cd->status == CD_PLAY; printf "Volume is %dn", $cd->volume; sleep(5); $cd->pause; print "Now... Platforms: *nix

DBIx::DBStag is a Perl module for Relational Database to Hierarchical (Stag/XML) Mapping. SYNOPSIS use DBIx::DBStag; my $dbh = DBIx::DBStag->connect("dbi:Pg:dbname=moviedb"); my $sql = q[ SELECT studio.*, movie.*, star.* FROM studio NATURAL JOIN movie NATURAL JOIN movie_to_star... Platforms: *nix

Data::Stag is a Perl module with structured tags datastructures. SYNOPSIS # PROCEDURAL USAGE use Data::Stag qw(:all); $doc = stag_parse($file); @persons = stag_find($doc, "person"); foreach $p (@persons) { printf "%s, %s phone: %sn", stag_sget($p, "family_name"), stag_sget($p,... 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

The d command runs a command in the background and redirects its output to a file. The output file is annotated with start and end time, the actual command used, cwd, host, etc. You can ask the d command to extract the last command from the output file and run it again, you can ask it to append... Platforms: *nix

AI::NeuralNet::Simple is a simple learning module for building neural nets. SYNOPSIS use AI::NeuralNet::Simple; my $net = AI::NeuralNet::Simple->new(2,1,2); # teach it logical or for (1 .. 10000) { $net->train([1,1],[0,1]); $net->train([1,0],[0,1]); $net->train([0,1],[0,1]);... Platforms: *nix

Games::Othello is a Perl extension for modelling a game of Othello. SYNOPSIS use Games::Othello; my $game = Games::Othello->new(); while( !game->over ) { printf "It is presently %ss move", ($game->whos_move eq b) ? black, white; my @possible_moves = values $game->possible_moves(); if... Platforms: *nix

Finance::Bank::NetBranch is a Perl module that can manage your NetBranch accounts with Perl. SYNOPSIS use Finance::Bank::NetBranch; my $nb = Finance::Bank::NetBranch->new( url => https://nbp1.cunetbranch.com/valley/, account => 12345, password => abcdef, ); my @accounts =... Platforms: *nix

CGI::Portable is a framework for server-generic web apps. SYNOPSIS Content of thin shell "startup_cgi.pl" for CGI or Apache::Registry env: #!/usr/bin/perl use strict; use warnings; require CGI::Portable; my $globals = CGI::Portable->new(); use Cwd; $globals->file_path_root( cwd() );... Platforms: *nix

Persistent::mSQL is a persistent class implemented using a mSQL database. SYNOPSIS use Persistent::mSQL; use English; # import readable variable names like $EVAL_ERROR eval { ### in case an exception is thrown ### ### allocate a persistent object ### my $emp = new... Platforms: *nix

Persistent::Sybase is a persistent class implemented using a Sybase database. SYNOPSIS use Persistent::Sybase; use English; # import readable variable names like $EVAL_ERROR eval { ### in case an exception is thrown ### ### allocate a persistent object ### my $emp = new... Platforms: *nix

Persistent::Oracle is a persistent class implemented using an Oracle database. SYNOPSIS use Persistent::Oracle; use English; # import readable variable names like $EVAL_ERROR eval { ### in case an exception is thrown ### ### allocate a persistent object ### my $emp = new... Platforms: *nix

Persistent::MySQL is a persistent class implemented using a MySQL database. SYNOPSIS use Persistent::MySQL; use English; # import readable variable names like $EVAL_ERROR eval { ### in case an exception is thrown ### ### allocate a persistent object ### my $emp = new... Platforms: *nix