Funny Or Die Landlord Pearl

Net::Akismet is a Perl interface to Akismet - comment and trackback spam fighter. SYNOPSIS my $akismet = Net::Akismet->new( KEY => secret-baba-API-key, URL => http://example.blog.net/, ) or die(Key verification failure!); my $verdict = $akismet->check( USER_IP => 10.10.10.11,...

HTTP::DAV is a WebDAV client library for Perl5. SYNOPSIS # DAV script that connects to a webserver, safely makes # a new directory and uploads all html files in # the /tmp directory. use HTTP::DAV; $d = new HTTP::DAV; $url = "http://host.org:8080/dav/"; $d->credentials(...

File::Format::RIFF is a Perl module to Resource Interchange File Format/RIFF files. SYNOPSIS use File::Format::RIFF; open( IN, file ) or die "Could not open file: $!"; my ( $riff1 ) = File::Format::RIFF->read( *IN ); close( IN ); $riff1->dump; my ( $riff2 ) = new File::Format::RIFF(...


Platforms: *nix

Encode::PerlIO is a detailed document on Encode and PerlIO. Overview It is very common to want to do encoding transformations when reading or writing files, network connections, pipes etc. If Perl is configured to use the new perlio IO system then Encode provides a "layer" (see PerlIO) which...


Platforms: *nix

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

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

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

DBD::Amazon is a DBI driver abstraction for the Amazon E-Commerce Services API. SYNOPSIS $dbh = DBI->connect(dbi:Amazon:, $amznid, undef, { amzn_mode => books, amzn_locale => us, amzn_max_pages => 3 }) or die "Cannot connect: " . $DBI::errstr; # # search for some Perl DBI books #...


Platforms: *nix

SQL::Amazon::Request::Help is an Interface to retrieve Help content. SYNOPSIS $dbh = DBI->connect(dbi:Amazon:, $amznid, undef, { amzn_mode => books, amzn_locale => us, amzn_max_pages => 3 }) or die "Cannot connect: " . $DBI::errstr; # # search for some Perl DBI books # $sth =...


Platforms: *nix

SQL::Amazon::UserGuide is a Perl module with user Guide for DBD/SQL::Amazon. SYNOPSIS # # create the parser, passing in the current Amazon metadata # my $parser = SQL::Amazon::Parser->new(%attrs); # # parse a SQL statement, returning a SQL::Amazon::Statement # my $stmt =...


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

GD::Image::CopyIFS is a Perl module for fractal-based image copying and resizing. SYNOPSIS # zoom in on an area of an image use GD::Image::CopyIFS; my $width = 64; my $height = 60; my $scale = 4; my $neww = $scale * $width; my $newh = $scale * $height; my $src_file = src.jpeg; my...


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

X500::DN is a Perl module that can handle X.500 DNs (Distinguished Names), parse and format them. SYNOPSIS use X500::DN; my $dn = X500::DN->ParseRFC2253 (cn=John Doe, o=Acme, Inc., c=US) or die; print $dn->getRFC2253String(), "n"; $dn = new X500::DN (new X500::RDN (c=>US), new X500::RDN...


Platforms: *nix

Statistics::OLS is a Perl module to perform ordinary least squares and associated statistics. SYNOPSIS use Statistics::OLS; my $ls = Statistics::OLS->new(); $ls->setData (@xydataset) or die( $ls->error() ); $ls->setData (@xdataset, @ydataset); $ls->regress(); my ($intercept, $slope)...


Platforms: *nix

Chart::Plot is a Perl module to plot two dimensional data in an image. SYNOPSIS use Chart::Plot; my $img = Chart::Plot->new(); my $anotherImg = Chart::Plot->new ($image_width, $image_height); $img->setData (@dataset) or die( $img->error() ); $img->setData (@xdataset, @ydataset);...


Platforms: *nix

Socket::PassAccessRights is a Perl extension for BSD style file descriptor passing via Unix domain sockets. SYNOPSIS use Socket::PassAccessRights; Socket::PassAccessRights::sendfd(fileno(SOCKET), fileno(SEND_ME)) or die; $fd = Socket::PassAccessRights::recvfd(fileno(SOCKET)) or die; open...


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

PerlIO::via::CBC is a Perl IO layer for reading/writing CBC encrypted files. SYNOPSIS use PerlIO::via::CBC; PerlIO::via::CBC->config( key => my secret key, cipher => Blowfish, iv => $KJh#(}q, regenerate_key => 0, # default true padding => space, prepend_iv => 0, pcbc => 1 #default 0...


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