Funny Or Die Pearl Landlord Baby

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

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

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

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

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

Mail::Sendmail is a simple platform independent mailer. SYNOPSIS use Mail::Sendmail; %mail = ( To => you@there.com, From => me@here.com, Message => "This is a very short message" ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:n", $Mail::Sendmail::log; Simple...


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

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

[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