Funny Or Die Pearl Landlord Baby

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...

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",...

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

Audio::OSS is a pure-perl interface to OSS (open sound system) audio devices. SYNOPSIS use Audio::OSS qw(:funcs :formats :mixer); my $dsp = IO::Handle->new(" dsp_reset($dsp) or die "reset failed: $!"; my $mask = get_supported_formats($dsp); if ($mask & AFMT_S16_LE) { set_fmt($dsp,...


Platforms: *nix

WebService::Eventful is a Perl interface to EVDB public API. SYNOPSIS use WebService::Eventful; my $evdb = WebService::Eventful->new(app_key => $app_key); $evdb->login(user => harry, password => H0gwart$) or die "Cant log in: $WebService::Eventful::errstr"; # call() accepts either an...


Platforms: *nix

Net::DNS::ValueDomain::DDNS is a Perl module to update your Value-Domain (https://www.value-domain.com/) DynamicDNS records. SYNOPSIS use Net::DNS::ValueDomain::DDNS; # Normal usage my $ddns = Net::DNS::ValueDomain::DDNS->new; $ddns->update( domain => example.com, password => 1234,...


Platforms: *nix

Perl6::Builtins is a Perl module that provides erl 5 versions of the new Perl 6 builtins. SYNOPSIS use Perl6::Builtins qw( system ); system $system_cmd or die "Could not $system_cmd: $!"; my $package = caller->{package}; my $file = caller->{file}; my $line = caller->{line}; Several...


Platforms: *nix

Net::FTP::File is a Perl extension for simplifying FTP file operations. SYNOPSIS use Net::FTP::File; my $ftp = Net::FTP->new("some.host.name", Debug => 0) or die "Cannot connect to some.host.name: $@"; $ftp->login("anonymous",-anonymous@) or die "Cannot login ", $ftp->message;...


Platforms: *nix

Text::vFile::toXML can convert vFiles into equivalent XML. SYNOPSIS This module converts iCalendar (iCal : generically, vFile) files into their (equivalent) XML (xCalendar / xCal) representation, according to Royers IETF Draft (http://tools.ietf.org/html/draft-royer-calsch-xcal-03). #...


Platforms: *nix

Jifty::DBI::SchemaGenerator is a Perl module to generate table schemas from Jifty::DBI records. This module turns a Jifty::Record object into an SQL schema for your chosen database. At the moment, your choices are MySQL, SQLite, or PostgreSQL. Oracle might also work right, though its untested....


Platforms: *nix