Funny Or Die Landlord Pearl

DBIx::SQLCrosstab::Format is a Perl module with formats results created by DBIx::SQLCrosstab. SYNOPSIS use DBIx::SQLCrosstab::Format; my $dbh=DBI->connect("dbi:driver:database" "user","password", {RaiseError=>1}) or die "error in connection $DBI::errstrn"; my $params = { dbh => $dbh,...

File::Stat::ModeString - conversion file stat mode to/from string representation. SYNOPSIS use File::Stat::ModeString; $string = mode_to_string ( $st_mode ); $st_mode = string_to_mode ( $string ); $type = mode_to_typechar( $st_mode ); $record = < IN >; chomp $record; $record =~...

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

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


Platforms: *nix

SQL::Translator::Producer::GraphViz is a GraphViz producer for SQL::Translator. SYNOPSIS use SQL::Translator; my $trans = new SQL::Translator( from => MySQL, # or your db of choice to => GraphViz, producer_args => { out_file => schema.png, add_color => 1, show_constraints => 1,...


Platforms: *nix

Chess::PGN::Parse is a Perl module that reads and parses PGN (Portable Game Notation) Chess files. SYNOPSIS use Chess::PGN::Parse; use English qw( -no_match_vars ); my $pgnfile = "kk_2001.pgn"; my $pgn = new Chess::PGN::Parse $pgnfile or die "cant open $pgnfilen"; while...


Platforms: *nix

DBIx::SQLCrosstab Perl module creates a server-side cross tabulation from a database. SYNOPSIS use DBIx::SQLCrosstab; my $dbh=DBI->connect("dbi:driver:database" "user","password", {RaiseError=>1}) or die "error in connection $DBI::errstrn"; my $params = { dbh => $dbh, op => [ [SUM,...


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

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

Net::YahooMessenger is a Perl interface to the Yahoo!Messenger IM protocol. SYNOPSIS use Net::YahooMessenger; my $yahoo = Net::YahooMessenger->new( id => your_yahoo_id, password => your_password, ); $yahoo->login or die "Cant login Yahoo!Messenger"; $yahoo->send(recipient_yahoo_id,...


Platforms: *nix

madlibs engine project is a MadLibs clone. The madlibs engine is a tiny engine for MadLibs-like interactive stories. Basically, you enter different words of a certain part of speech. The program pastes them into a story text, creating weird, funny, or stupid results. It runs on anything...


Platforms: *nix

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


Platforms: *nix

Lingua::Phonology::FileFormatPOD is a Perl module that contains documentation for the xml file format written and read by Lingua::Phonology. As of v0.3, Lingua::Phonology is able to read and write an XML file that defines a complete Lingua::Phonology object. This file is meant to be...


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

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

MassSpec::ViewSpectrum is a Perl extension for viewing a mass spectrum. SYNOPSIS use MassSpec::ViewSpectrum; open PNG, ">mygraphic.png" or die "Unable to open output filen"; binmode PNG; my @masses = (1036.4,1133,1437,1480,1502); my @intensities = (0.1,0.15,0.05,0.10,0.2); my...


Platforms: *nix

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

MP4::Info is a Perl module that can fetch info from MPEG-4 files (.mp4, .m4a, .m4p, .3gp). SYNOPSIS #!perl -w use MP4::Info; my $file = Pearls_Before_Swine.m4a; my $tag = get_mp4tag($file) or die "No TAG info"; printf "$file is a %s trackn", $tag->{GENRE}; my $info =...


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