Smiling Pasta Synopsis

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

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

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

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

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

Image::BMP is a bitmap parser/viewer. SYNOPSIS use Image::BMP; # Example one: my $img = new Image::BMP( file => some.bmp, debug => 1, ); $img->view_ascii; # Example two: my $img2 = new Image::BMP; $img2->open_file(another.bmp); my $color = $img2->xy(100,100); # Get pixel at...


Platforms: *nix

SYNOPSIS use Mail::Abuse::Report; my $r = new Mail::Abuse::Report ( -text => $report_text, -reader => $reader, -filters => [ $f1, $f2, ... ], -parsers => [ $i1, $i2, ... ], -processors => [ $p1, $p2, ... ], -debug => 1, -config => $config_file, ); This class encapsulates an abuse...


Platforms: *nix

SYNOPSIS perl -MModule::AutoINC < script > ABSTRACT When Module::AutoINC is loaded, it will add itself to @INC and catch any requests for missing resources. If a Perl module is requested that has not been installed, then this will attempt to load it. Under Active State Perl (or any Perl...


Platforms: *nix

SYNOPSIS # # Request # use Business::GestPayCryptHS; my $obj = new Business::GestPayCryptHS; $obj->SetShopLogin($ShopLogin); $obj->SetCurrency($Currency); $obj->SetAmount($Amount); $obj->SetShopTransactionID($ShopTransationID); $obj->SetLanguage($Language); $obj->Encrypt(); if (...


Platforms: *nix

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


Platforms: *nix

SYNOPSIS # automatical computer-vus-computer play script use Games::Checkers::Constants; use Games::Checkers::Board; use Games::Checkers::BoardTree; my $board = new Games::Checkers::Board; my $color = White; my $numMoves = 0; print $board->dump; while ($board->canColorMove($color)) {...


Platforms: *nix

SYNOPSIS use AFS::Cell qw (configdir expandcell getcellinfo localcell whichcell wscell ); my $conf_dir = configdir; my $cell = expandcell(mpa); $cell = localcell; $cell = whichcell(./); $cell = wscell; ($cell, my @hosts) = getcellinfo; print "Cell: $celln"; foreach my $host...


Platforms: *nix

SYNOPSIS Get the size for directory /etc/ with the block size of 1024 while following symbolic links: my $obj = File::Size->new( dir => /etc/, blocksize => 1024, followsymlinks => 1, humanreadable => 1 ); print $obj->getsize(), "n"; File::Size is used to get the size of files and...


Platforms: *nix

Pod::Dsr is a Perl module Convert POD data to formatted DSR input SYNOPSIS use Pod::Dsr; my $parser = Pod::Dsr->new (release => $VERSION, section => 8); # Read POD from STDIN and write to STDOUT. $parser->parse_from_filehandle; # Read POD from file.pod and write to file.1....


Platforms: *nix