Funny Or Die

Statistics::LineFit module least squares line fit, weighted or unweighted. SYNOPSIS use Statistics::LineFit; $lineFit = Statistics::LineFit->new(); $lineFit->setData (@xValues, @yValues) or die "Invalid data"; ($intercept, $slope) = $lineFit->coefficients(); defined $intercept or die...

Mac::PropertyList is a Perl module to work with Mac plists at a low level. SYNOPSIS use Mac::PropertyList; my $data = parse_plist( $text ); # == OR == my $data = parse_plist_file( $filename ); # == OR == open my( $fh ), $filename or die "..."; my $data = parse_plist_fh( $fh ); my...

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

FrameMaker::FromHTML is a Perl class to convert HTML file to FrameMaker MIF. SYNOPSIS use base FrameMaker::FromHTML; use strict; my ($infile, $outfile); $infile = shift; ($outfile = $infile) =~ s/.htm[l]*$/.mif/; # Insert routine to validate HTML -- eg, use HTML-Tidy # VERY...


Platforms: *nix

Algorithm::Dependency is a base class for implementing various dependency trees. SYNOPSIS use Algorithm::Dependency; use Algorithm::Dependency::Source::File; # Load the data from a simple text file my $data_source = Algorithm::Dependency::Source::File->new( foo.txt ); # Create the...


Platforms: *nix

If you want to live, you must die first. Is the life a joke? No... your life is my game!


Platforms: Windows

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

Uli's Moose is the official successor to the Talking Moose, the Talking jokester for Macintosh. It will pop up from time to time and say something witty, funny, or utterly useless.Hundreds of phrases, lip-synched animation of several Mooses and a few other characters.


Platforms: Mac

MP3::Icecast is a Perl module to generate Icecast streams, as well as M3U and PLSv2 playlists. SYNOPSIS use MP3::Icecast; use MP3::Info; use IO::Socket; my $listen_socket = IO::Socket::INET->new( LocalPort => 8000, #standard Icecast port Listen => 20, Proto => tcp, Reuse => 1,...


Platforms: *nix

Net::DNS::ValueDomain::DDNS is a Perl module to update your Value-Domain (https://www.value-domain.com/) DynamicDNS records. SYNOPSIS use Net::DNS::ValueDomain::DDNS; # Normal usage my $ddns = Net::DNS::ValueDomain::DDNS->new; $ddns->update( domain => example.com, password => 1234,...


Platforms: *nix

Chipcard::CTAPI is a Perl module for communication with chipcard terminals. SYNOPSIS use Chipcard::CTAPI; my $ct = new Chipcard::CTAPI(interface => Χpcard::CTAPI::PORT_COM1) or die "Cant communicate with card terminal"; my $memory_size = $ct->getMemorySize(); $ct->read(0,...


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

File::Sync is a Perl access to fsync() and sync() function calls. SYNOPSIS use File::Sync qw(fsync sync); fsync(*FILEHANDLE) or die "fsync: $!"; sync(); use File::Sync qw(fsync); use IO::File; $fh = IO::File->new("> /tmp/foo") or die "new IO::File: $!"; ... fsync($fh) or die "fsync:...


Platforms: *nix

Speech::Recognizer::SPX::Server is a Perl module for writing streaming audio speech recognition servers using Sphinx2. SYNOPSIS my $sock = new IO::Socket(... blah blah blah ...); my $log = new IO::File(server.log); my $audio_fh = new IO::File(speech.raw); my $srvr =...


Platforms: *nix

GD::Graph is a graph plotting module for Perl 5. SYNOPSIS use GD::Graph::moduleName; GD::Graph is a perl5 module to create charts using the GD module. The following classes for graphs with axes are defined: GD::Graph::lines Create a line chart. GD::Graph::bars and GD::Graph::hbars...


Platforms: *nix

Net::Telnet::Netscreen is a Perl module that interacts with a Netscreen firewall. Net::Telnet::Netscreen is mostly a pure rippoff of Net::Telnet::Cisco, with adaptations to make it work on the Netscreen firewalls. It also has some additional commands, but for basic functionality, see...


Platforms: *nix

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


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

Net::DHCP::Packet is a Perl module with object methods to create a DHCP packet. SYNOPSIS use Net::DHCP::Packet; my $p = new Net::DHCP::Packet->new( Chaddr => 000BCDEF, Xid => 0x9F0FD, Ciaddr => 0.0.0.0, Siaddr => 0.0.0.0, Hops => 0); Represents a DHCP packet as specified in RFC 1533,...


Platforms: *nix

Audio::OSS is a pure-perl interface to OSS (open sound system) audio devices. SYNOPSIS use Audio::OSS qw(:funcs :formats :mixer); my $dsp = IO::Handle->new(" dsp_reset($dsp) or die "reset failed: $!"; my $mask = get_supported_formats($dsp); if ($mask & AFMT_S16_LE) { set_fmt($dsp,...


Platforms: *nix