Funny Or Die Landlord Pearl

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

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

Net::DHCP::Packet is a Perl module with object methods to create a DHCP packet. SYNOPSIS use Net::DHCP::Packet; my $p = new Net::DHCP::Packet->new( Chaddr => 000BCDEF, Xid => 0x9F0FD, Ciaddr => 0.0.0.0, Siaddr => 0.0.0.0, Hops => 0); Represents a DHCP packet as specified in RFC 1533,...


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

GD::Text is a Perl module with text utilities for use with GD. SYNOPSIS use GD; use GD::Text; my $gd_text = GD::Text->new() or die GD::Text::error(); $gd_text->set_font(funny.ttf, 12) or die $gd_text->error; $gd_text->set_font(gdTinyFont); $gd_text->set_font(GD::Font::Tiny); ......


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

DBD::MaxDB is a Perl module for MySQL MaxDB database driver for the DBI module version 7.6.0 BUILD 027-121-124-939. SYNOPSIS use DBI; $dbh = DBI->connect("dbi:MaxDB:$hostname/$dbname", "$user", "$password") or die "Cant connect $DBI::err $DBI::errstrn"; $sth = $dbh->prepare("SELECT Hello...


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

SVG::Metadata is a Perl module to capture metadata info about an SVG file. SYNOPSIS use SVG::Metadata; my $svgmeta = new SVG::Metadata; $svgmeta->parse($filename) or die "Could not parse $filename: " . $svgmeta->errormsg(); $svgmeta2->parse($filename2) or die "Could not parse...


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

[COPRIGHT=1] EXAMPLES General #!/usr/bin/perl -w use strict; use DBIx::Simple; # Instant database with DBD::SQLite my $db = DBIx::Simple->connect(dbi:SQLite:dbname=file.dat) or die DBIx::Simple->error; # Connecting to a MySQL database my $db = DBIx::Simple->connect(...


Platforms: *nix

Bio::Graphics::Panel is a Perl module to generate GD images of Bio::Seq objects. SYNOPSIS # This script parses a GenBank or EMBL file named on the command # line and produces a PNG rendering of it. Call it like this: # render.pl my_file.embl | display - use strict; use Bio::Graphics;...


Platforms: *nix

Template::Plugin::SumOf is a Perl module to calculate the sum with VMETHODS. SYNOPSIS # in your script use Template; use Template::Plugin::SumOf; my $tt = Template->new; $tt->process( template.html, { ary => [ { date => 2006-09-13, price => 300 }, { date => 2006-09-14, price => 500 }...


Platforms: *nix