Funny Or Die Landlord Pearl

XML::LibXML::Reader is a Perl interface to libxml2 pull parser. SYNOPSIS use XML::LibXML::Reader; $reader = new XML::LibXML::Reader("file.xml") or die "cannot read file.xmln"; while ($reader->read) { processNode($reader); } sub processNode { $reader = shift; printf "%d %d %s %dn",... Platforms: *nix

File::stat is a by-name interface to Perls built-in stat() functions. SYNOPSIS use File::stat; $st = stat($file) or die "No $file: $!"; if ( ($st->mode & 0111) && $st->nlink > 1) ) { print "$file is executable with lotsa linksn"; } use File::stat qw(:FIELDS); stat($file) or die "No... Platforms: *nix

Empire Online II is a free online multi-player strategy game. In this game, you are a young monarch, must use production, construction, wars, diplomacy and all possible means to protect the country. You will be able to decide the country's destiny: suffers bullying, or gains a prominent... Platforms: Windows

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

DBIx::SQLCrosstab Perl module creates a server-side cross tabulation from a database. SYNOPSIS use DBIx::SQLCrosstab; my $dbh=DBI->connect("dbi:driver:database" "user","password", {RaiseError=>1}) or die "error in connection $DBI::errstrn"; my $params = { dbh => $dbh, op => [ [SUM,... Platforms: *nix

PerlIO::via::Logger is a PerlIO layer for prefixing current time to log output. SYNOPSIS use PerlIO::via::Logger; PerlIO::via::Logger->format( [%b %d, %Y %r] ); use PerlIO::via::Logger format => [%b %d, %Y %r] ; open( my $in,<:via(Logger),filein ) or die "Cant open file.ln for reading:... 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

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

TeX::DVI is a Perl module to write out TeXs DVI (DeVice Independent) file. SYNOPSIS use TeX::DVI; use Font::TFM; my $dvi = new TeX::DVI "texput.dvi"; my $font = new_at Font::TFM "cmr10", 12 or die "Error loading cmr10 at 12 pt: $Font::TFM::errstrn"; $dvi->preamble();... Platforms: *nix

SNMP::Info::Layer3::Aironet is a Perl5 Interface to Cisco Aironet Wireless Devices running Aironet software, not IOS. SYNOPSIS # Let SNMP::Info determine the correct subclass for you. my $aironet = new SNMP::Info( AutoSpecify => 1, Debug => 1, # These arguments are passed directly on to... 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

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

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

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

Net::LDAP::Control::VLV is an LDAPv3 Virtual List View control object. SYNOPSIS use Net::LDAP; use Net::LDAP::Control::VLV; use Net::LDAP::Constant qw( LDAP_CONTROL_VLVRESPONSE ); $ldap = Net::LDAP->new( "ldap.mydomain.eg" ); # Get the first 20 entries $vlv =... Platforms: *nix

AudioFile::Identify::MusicBrainz is a pure-perl MusicBrainz client implementation. A::I::M is, at heart, a pure-perl implementation of the MusicBrainz client protocol, encapsulated in some sensible Track/Album/Artist objects that have the sort of methods youd expect. So I can, given a Track... 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

Net::Server::POP3proxy is a Perl module with POP3 Proxy class for working with virus scanners and anti-spam software. SYNOPSIS use Net::Server::POP3proxy; # Constructors $popproxy = new Net::Server::POP3proxy( Action => sub { filterAction ($_[0]); }, Error => sub { die ($_[0]); }, Debug... Platforms: *nix

GD::Image::Orientation is a Perl extension for managing a GD::Images vertical or horizontal orientation (shapewise). SYNOPSIS use GD::Image::Orientation; for(@images) { my $img = GD::Image->new($_) or die $!; $dbh->do("INSERT INTO photogallery.metainfo (Id,Orientation,File) VALUES... Platforms: *nix

NDBM_File is a Perl module that allows tied access to ndbm files. SYNOPSIS use Fcntl; # For O_RDWR, O_CREAT, etc. use NDBM_File; tie(%h, NDBM_File, filename, O_RDWR|O_CREAT, 0666) or die "Couldnt tie NDBM file filename: $!; aborting"; # Now read and change the hash $h{newkey} =... Platforms: *nix