Funny Or Die Landlord Pearl

Algorithm::Dependency is a base class for implementing various dependency trees. SYNOPSIS use Algorithm::Dependency; use Algorithm::Dependency::Source::File; # Load the data from a simple text file my $data_source = Algorithm::Dependency::Source::File->new( foo.txt ); # Create the...

Template::Ast is a Perl module to process ASTs for Perl Template Toolkit. SYNOPSIS use Template::Ast; # Rebuild AST stored in file: $ast = Template::Ast->read(foo.ast) or die Template::Ast->error(); # Writing existing AST to file: $ast = { Marry => [24, F], John => [21, M] };...

Makefile::Parser is a Simple Parser for Makefiles. SYNOPSIS use Makefile::Parser; $parser = Makefile::Parser->new; # Equivalent to ->parse(Makefile); $parser->parse or die Makefile::Parser->error; # Get last value assigned to the specified variable CC: print $parser->var(CC); # Get...


Platforms: *nix

MP3::Icecast is a Perl module to generate Icecast streams, as well as M3U and PLSv2 playlists. SYNOPSIS use MP3::Icecast; use MP3::Info; use IO::Socket; my $listen_socket = IO::Socket::INET->new( LocalPort => 8000, #standard Icecast port Listen => 20, Proto => tcp, Reuse => 1,...


Platforms: *nix

Imager::Filters is an entire image filtering operations. SYNOPSIS use Imager; $img = ...; $img->filter(type=>autolevels); $img->filter(type=>autolevels, lsat=>0.2); $img->filter(type=>turbnoise) # and lots of others load_plugin("dynfilt/dyntest.so") or die "unable to load pluginn";...


Platforms: *nix

Module::Signature is a Perl module signature file manipulation. SYNOPSIS As a shell command: % cpansign # verify an existing SIGNATURE, or # make a new one if none exists % cpansign sign # make signature; overwrites existing one % cpansign -s # same thing % cpansign verify # verify a...


Platforms: *nix

SimpleCDB - A Perl-only Constant Database. SYNOPSIS use SimpleCDB; # writer # - tie blocks until DB is available (exclusive), or timeout tie %h, SimpleCDB, db, O_WRONLY or die "tie failed: $SimpleCDB::ERRORn"; $h{$k} = $v; die "store: $SimpleCDB::ERROR" if $SimpleCDB::ERROR; untie %h;...


Platforms: *nix

Image::ParseGIF can parse a GIF image into its compenent parts. SYNOPSIS use Image::ParseGIF; $gif = new Image::ParseGIF ("image.gif") or die "failed to parse: $@n"; # write out a deanimated version, showing only the first frame $gif->deanimate(0); # same again, manually printing each...


Platforms: *nix

MPEG::LibMPEG3 is a Perl interface to libmpeg3 module. SYNOPSIS use strict; use MPEG::LibMPEG3; my $mpeg = MPEG::LibMPEG3->new( $filename ); $mpeg->set_cpus(1); ## I only have 1 cpu but you can put whatever $mpeg->set_mmx(1); ## but it has mmx instructions printf "Audio Streams: %dn",...


Platforms: *nix

Samba::LDAP::Config is a Perl module to config file related tasks for Samba::LDAP. SYNOPSIS use Samba::LDAP::Config; my $config = Samba::LDAP::Config->new() or die "Cant create objectn"; # Returns where smbldap.conf, smbldap_bind.conf and # smb.conf are located my $smbldap_conf =...


Platforms: *nix

Mac::Errors is a Perl module with constants for Mac error codes. SYNOPSIS use Mac::Errors qw(openErr); if( $value == openErr ) { ... } my $error = $MacErrors{ $symbol }; # -- OR -- my $error = $MacErrors{ $number }; my $symbol = $error->symbol; my $number = $error->number; my $desc =...


Platforms: *nix

Mac::PropertyList is a Perl module to work with Mac plists at a low level. SYNOPSIS use Mac::PropertyList; my $data = parse_plist( $text ); # == OR == my $data = parse_plist_file( $filename ); # == OR == open my( $fh ), $filename or die "..."; my $data = parse_plist_fh( $fh ); my...


Platforms: *nix

Net::Lyskom is a Perl module used to talk to LysKOM servers. SYNOPSIS use Net::Lyskom; $a = Net::Lyskom->new(); $conf = 6; $a->login(pers_no => 437, password => "God", invisible => 1) or die "Failed to log in: $a->err_stringn"; $b = $a->send_message(7680, "Oook!"); $b =...


Platforms: *nix

File::Sync is a Perl access to fsync() and sync() function calls. SYNOPSIS use File::Sync qw(fsync sync); fsync(*FILEHANDLE) or die "fsync: $!"; sync(); use File::Sync qw(fsync); use IO::File; $fh = IO::File->new("> /tmp/foo") or die "new IO::File: $!"; ... fsync($fh) or die "fsync:...


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

DBIx::TableHash is a Perl module that can tie a hash to a mysql table + SQL utils. SYNOPSIS use DBIx::TableHash; my $DBHash = DBIx::TableHash->create_or_die (my $Params = { DBIDriver => mysql, Database => mydatabase, HostName => localhost, Port => undef, Login => , Password => ,...


Platforms: *nix

Flickr::Upload is a Perl module to upload images to flickr.com SYNOPSIS use Flickr::Upload; my $ua = Flickr::Upload->new( key => 90909354, secret => 37465825 ); $ua->upload( photo => /tmp/image.jpg, auth_token => $auth_token, tags => me myself eye, is_public => 1, is_friend => 1,...


Platforms: *nix

Speech::Recognizer::SPX::Server is a Perl module for writing streaming audio speech recognition servers using Sphinx2. SYNOPSIS my $sock = new IO::Socket(... blah blah blah ...); my $log = new IO::File(server.log); my $audio_fh = new IO::File(speech.raw); my $srvr =...


Platforms: *nix

Audio::ESD is a Perl extension for talking to the Enlightened Sound Daemon. SYNOPSIS use Audio::ESD; my $stream = Audio::ESD->play_stream({ # these are the defaults sample_rate => 16000, channels => 1, fallback => 0, bits_sample => 16, encoding => linear }) or die "Failed to open ESD...


Platforms: *nix

Audio::SPX is a Perl interface to the Sphinx-II audio library. SYNOPSIS use Audio::SPX; my $ad = Audio::SPX->open_sps(16000); $ad->start_rec or die "start_rec failed"; $ad->stop_rec or die "stop_rec failed"; my $samples = $ad->read($buf, $max); my $cad =...


Platforms: *nix