Funny Or Die Landlord Pearl

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

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

MassSpec::ViewSpectrum::RealVsHypPeptide is a Perl module to view a real mass spectrum on the same graph as a hypothetical spectrum generated by fragmenting a peptide in silico. SYNOPSIS use MassSpec::ViewSpectrum::RealVsHypPeptide; open GRAPHIC, ">mygraphic.png" or die "Unable to open...


Platforms: *nix

SNMP::Info::Layer2::C2900 is a SNMP Interface to Cisco Catalyst 2900 Switches running IOS. SYNOPSIS # Let SNMP::Info determine the correct subclass for you. my $c2900 = new SNMP::Info( AutoSpecify => 1, Debug => 1, # These arguments are passed directly on to SNMP::Session DestHost =>...


Platforms: *nix

Data::Serializer package contains modules that serialize data structures. SYNOPSIS use Data::Serializer; $obj = Data::Serializer->new(); $obj = Data::Serializer->new( serializer => Storable, digester => MD5, cipher => DES, secret => my secret, compress => 1, ); $serialized =...


Platforms: *nix

PBJ::JNI is a Perl module with full access to and from Java virtual machine from Perl. SYNOPSIS use PBJ::JNI::JavaVM; my ($env, $jvm, @vm_opts); my ($cls, $fid, $mid, $out); # Create the Java VM @vm_opts = ("-Xrs", "-Xcheck:jni"); $jvm = new PBJ::JNI::JavaVM(); $env =...


Platforms: *nix

Term::Gnuplot is a Perl module for lowlevel graphics using gnuplot drawing routines. SYNOPSIS use Term::Gnuplot :ALL; list_terms(); change_term(dumb) or die "Cannot set terminal.n"; term_init(); # init() term_start_plot(); # graphics(); $xmax = scaled_xmax(); $ymax = scaled_ymax();...


Platforms: *nix

SNMP::Info::Layer3::N1600 is a Perl5 Interface to Nortel 16XX Network Devices. SYNOPSIS # Let SNMP::Info determine the correct subclass for you. my $n1600 = new SNMP::Info( AutoSpecify => 1, Debug => 1, # These arguments are passed directly on to SNMP::Session DestHost => myswitch,...


Platforms: *nix

Text::Refer can parse Unix "refer" files. SYNOPSIS Pull in the module: use Text::Refer; Parse a refer stream from a filehandle: while ($ref = input Text::Refer *FH) { # ...do stuff with $ref... } defined($ref) or die "error parsing input"; Same, but using a parser object for more...


Platforms: *nix

Pod::Simple::Wiki is a class for creating Pod to Wiki filters. SYNOPSIS To create a simple filter to convert from Pod to a wiki format: #!/usr/bin/perl -w use strict; use Pod::Simple::Wiki; my $parser = Pod::Simple::Wiki->new(kwiki); if (defined $ARGV[0]) { open IN, $ARGV[0] or die...


Platforms: *nix

Audio:PSID is a Perl module to handle SID files (Commodore-64 music files). SYNOPSIS use Audio::SID; $mySID = new Audio::SID(-filename => Test.sid) or die "Whoops!"; print "Title = " . $mySID->get(title) . "n"; print "MD5 = " . $mySID->getMD5(); $mySID->set(author => LaLa, title =>...


Platforms: *nix

File::Remote is a Perl module to read/write/edit remote files transparently. SYNOPSIS # # Two ways to use File::Remote # # First, the function-based style. Here, we can use the # special :replace tag to overload Perl builtins! # use File::Remote qw(:replace); # special :replace tag #...


Platforms: *nix

Apache Users project is an Apache username enumerator, via /~username requests. This script uses a list of common system names like root, admin etc ... You should manually check the issue to establish the http return code, ie: 403 as this is needed for the command line. No native SSL support....


Platforms: *nix

PerlIO::locale is a PerlIO layer to use the encoding of the current locale. SYNOPSIS use PerlIO::locale; open my $filehandle, <:locale, $filename or die $!; This is mostly a per-filehandle version of the open pragma, when used under the form use open :locale; The encoding for the...


Platforms: *nix

PAR::WebStart is a Perl implementation of Javas WebStart. SYNOPSIS my $file = hello.pnlp; my $ws = PAR::WebStart->new(file => $file); $ws->fetch_pars() or die $ws->{ERROR}; my $tmpdir = $ws->{tmpdir}; chdir($tmpdir) or die qq{Cannot chdir to "$tmpdir": $!}); my @args =...


Platforms: *nix

DNS::ZoneParse is a Perl module to parse and manipulate DNS Zone Files. SYNOPSIS use DNS::ZoneParse; my $zonefile = DNS::ZoneParse->new("/path/to/dns/zonefile.db", $origin); # Get a reference to the MX records my $mx = $zonefile->mx; # Change the first mailserver on the list $mx->[0]...


Platforms: *nix

WordNet::Similarity::PathFinder is a Perl module to implement path finding methods (by node counting) for WordNet::Similarity measures of semantic relatedness. SYNOPSIS use WordNet::QueryData; my $wn = WordNet::QueryData->new; use WordNet::Similarity::PathFinder; my $obj =...


Platforms: *nix

MLDBM is a Perl module to store multi-level hash structure in single level tied hash. SYNOPSIS use MLDBM; # this gets the default, SDBM #use MLDBM qw(DB_File FreezeThaw); # use FreezeThaw for serializing #use MLDBM qw(DB_File Storable); # use Storable for serializing $dbm = tie %o, MLDBM...


Platforms: *nix

Rose::Object::MakeMethods::Generic is a Perl module that can create simple object methods. SYNOPSIS package MyObject; use Rose::Object::MakeMethods::Generic ( scalar => [ power, error, ], scalar --get_set_init => name, boolean --get_set_init => is_tall, boolean => [ is_red,...


Platforms: *nix

SNMP::Multi is a Perl module to perform SNMP operations on multiple hosts simultaneously. SYNOPSIS use SNMP::Multi; my $req = SNMP::Multi::VarReq->new ( nonrepeaters => 1, hosts => [ qw/ router1.my.com router2.my.com / ], vars => [ [ sysUpTime ], [ ifInOctets ], [ ifOutOctets ] ], );...


Platforms: *nix