Tick Tick Boom Synopsis

DBIx::EnumConstraints is a Perl module that generates enum-like SQL constraints. SYNOPSIS use DBIx::EnumConstraints; my $ec = DBIx::EnumConstraints->new({ name => kind, fields => [ [ k1, a, b ] , [ k2, b ] ] }); # get enum field definition my $edef = $ec->enum_definition; # $edef is...

asMon is a system monitor for Linux systems running afterstep, but should work on other window managers, too. I got fed up with most other wharf system monitors that didnt show the correct memory usage, and took up too much CPU. asmon also shows the exact amount of memory used and load avg by the...

SYNOPSIS Simplest Each time a new object is created the default style will be slightly different. use PostScript::File; use PostScript::Graph::Style; my $file = new PostScript::File(); my $seq = new PostScript::Graph::Sequence(); while (...) { my $style = new...


Platforms: *nix

Regexp::MatchContext is Perl module to replace (and improve) $MATCH, $PREMATCH, and $POSTMATCH SYNOPSIS use Regexp::MatchContext -vars; $str = m/(?p) d+ /; print "Before: $PREMATCHn"; print "Matched: $MATCHn"; print "After: $POSTMATCHn"; $MATCH = 2 * $MATCH; # substitute into original...


Platforms: *nix

SYNOPSIS use Math::FresnelZone; use Math::FresnelZone qw(fresnel fresnelMi fresnelKm); The arguments are: 0 - distance in kilometers or miles (default is 1), 1 - frequency in GHz (defualt 2.4), 2 - set to true to specify that the distance you are inputting is in miles and that the...


Platforms: *nix

SYNOPSIS use Array::Compare; my $comp1 = Array::Compare->new; $comp->Sep(|); $comp->Skip({3 => 1, 4 => 1}); $comp->WhiteSpace(0); $comp->Case(1); my $comp2 = Array::Compare->new(Sep => |, WhiteSpace => 0, Case => 1, Skip => {3 => 1, 4 => 1}); my @arr1 = 0 .. 10; my @arr2 = 0 .....


Platforms: *nix

SYNOPSIS use HTML::TreeBuilder; use HTML::WikiConverter::Normalizer; my $tree = new HTML::TreeBuilder(); $tree->parse( text ); my $norm = new HTML::WikiConverter::Normalizer(); $norm->normalize($tree); # Roughly gives " text " print $tree->as_HTML(); HTML::WikiConverter dialects...


Platforms: *nix

SYNOPSIS use Devel::Peek; Dump( $a ); Dump( $a, 5 ); DumpArray( 5, $a, $b, ... ); mstat "Point 5"; Devel::Peek contains functions which allows raw Perl datatypes to be manipulated from a Perl script. This is used by those who do XS programming to check that the data they are sending from...


Platforms: *nix

SYNOPSIS # client connection: my $c = new Jabber::Connection( server => jabber.org, log => 1, ); # component connection: # my $c = new Jabber::Connection( # server => localhost:5700, # localname => comp.localhost, # ns => jabber:component:accept, # log => 1, # debug => 1, # );...


Platforms: *nix

Strings edit is a library that provides I/O facilities for integer, floating-point, Roman numbers, and strings. Both input and output subroutines support string pointers for consequent stream processing. The output can be aligned in a fixed size field with padding. Numeric input can be checked...


Platforms: *nix

SYNOPSIS # To send a user to login: use Hey::heyPass; $heyPass = Hey::heyPass->new($yourSiteId, $yourSiteKey); $login = $heyPass->beginSession({ successUrl => "http://$ENV{HTTP_HOST}/loginSuccess.cgi?sessionId=%s", failureUrl => "http://$ENV{HTTP_HOST}/loginFailure.cgi?sessionId=%s",...


Platforms: *nix

XML::TiePYX is a Perl module to read or write XML data in PYX format via tied filehandle SYNOPSIS use XML::TiePYX; tie *XML,XML::TiePYX,file.xml open IN,file.xml or die $!; tie *XML,XML::TiePYX,*IN,Condense=>0; my $text=< tag xmlns="http://www.omsdev.com" >text< /tag >; tie...


Platforms: *nix

SYNOPSIS use POE qw(Component::Player::Mpg123); $mp = POE::Component::Player::Mpg123->new(); $mp->play("/tmp/test.mp3"); POE::Kernel->run(); This component is used to manipulate the mpg123 player from within a POE application. The less common but open-source mpg321 has also been tested....


Platforms: *nix

SYNOPSIS From the CLI, call as below where /some/dir/ is any directory you have permission to write to. perl -e "use Chart::EPS_graph::Test; print Chart::EPS_graph::Test->full_test(/some/dir);" From anywhere else call... use Chart::EPS_graph::Test; print...


Platforms: *nix

Linux From Scratch (LFS) is a project that provides you with the steps necessary to build your own custom Linux system. There are a lot of reasons why somebody would want to install an LFS system. The question most people raise is "why go through all the hassle of manually installing a Linux...


Platforms: *nix

Test::Unit::GTestRunner is a Unit testing framework helper class SYNOPSIS use Test::Unit::GTestRunner; Test::Unit::GTestRunner->new->start ($my_testcase_class); Test::Unit::GTestRunner::main ($my_testcase_class); If you just want to run a unit test (suite), try it like this:...


Platforms: *nix

SYNOPSIS use Math::MatrixReal; use Math::MatrixReal::Aug; These are certain extra methods for Math::MatrixReal, in the tradition of Math::MatrixReal::Ext1; $matrix1->augmentright($matrix2); Creates a new matrix of the form [$matrix1 $matrix2]. $matrix1 and $matrix2 must have the same...


Platforms: *nix

Debian::Package::HTML is a Perl module that generates a webpage information (and Linda/Lintian checks) about a Debian binary or source package using HTML::Template SYNOPSIS use strict; use Debian::Package::HTML; my $package = Debian::Package::HTML->new(%packageHash);...


Platforms: *nix

SYNOPSIS ex. CGI use GD::Barcode::UPCE; binmode(STDOUT); print "Content-Type: image/pngnn"; print GD::Barcode->new(EAN13, 123456789012)->plot->png; with Error Check my $oGdBar = GD::Barcode->new(EAN13, 12345678901); die $GD::Barcode::errStr unless($oGdBar); #Invalid Length...


Platforms: *nix

Twin Distress project is a puzzle game where you remove all blocks of the same color from the screen. Two blocks are removed at a time, and must be of the same color. After completing a level, you will be rewarded with a bonus point for every tick left on the clock. For each level thereafter,...


Platforms: *nix