Funny Or Die Landlord Pearl

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

Net::Z3950 is a Perl extension for talking to Z39.50 servers. WARNING You should not be using this module unless you need this precise API for compatibility reasons. New applications should use the ZOOM-Perl module (Net::Z3950::ZOOM) instead. SYNOPSIS (This code blocks in reads: see below...

Data::Type is a Perl module with versatile data and value types. SYNOPSIS use Data::Type qw(:all); use Error qw(:try); try { verify $email , EMAIL; verify $homepage , URI(http); verify $cc , CREDITCARD( MASTERCARD, VISA ); verify $answer_a , YESNO; verify $gender , GENDER; verify...


Platforms: *nix

Tie::FlatFile::Array is a Perl extension which treats a flatfile database as an array of arrays. This module allows the programmer to treat a flatfile database as as array of arrays. For example, lets say you have a datafile that has fixed-length records like so: Field-name Type URL ASCII...


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

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

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

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


Platforms: *nix

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


Platforms: *nix

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