Perl Code Examples

NFS Backup System is a Perl script that backup system for NFS. The basic function nfsbu is an automated perl-script backup system between an NFS server and an NFS client. Either by crontab or manual execution, directories listed in the configuration file can be backed up to a directory mounted...

Agent is the Transportable Agent Perl module. SYNOPSIS use Agent; my $a = new Agent( Name => path_to_agent.pa, %args ); $a->run(); Agent Perl is meant to be a multi-platform interface for writing and using transportable perl agents. A Perl Agent Is any chunk of Perl code that can...

HTML::CGIChecker is a Perl module to detect dangerous HTML code. SYNOPSIS use HTML::CGIChecker; $feedback = < TABLE CELLPADDING="2" >< TR >< TD >One column< /TD >< /TR >< /TABLE >< BR > " Arrays & variables " Dough > Hi, how are you ? And now some Perl code: < PRE > print "< HTML ><...


Platforms: *nix

Business::Associates::Stylesheet is a Perl information on the Associates XSLT stylesheets and how to modify the data processing. THE PROCESSING MODEL Before we get going on the details, let us first remind ourselves on what we might call the processing model of the Associates package. The...


Platforms: *nix

Geo::Shapelib is a Perl extension for reading and writing shapefiles as defined by ESRI. SYNOPSIS use Geo::Shapelib qw/:all/; or use Geo::Shapelib qw/:all/; my $shapefile = new Geo::Shapelib { Name => stations, Shapetype => POINT, FieldNames => [Name,Code,Founded]; FieldTypes =>...


Platforms: *nix

StateML is a State Machine Markup Language, with GraphViz and template-driven code generation. SYNOPSIS ## See the stml command for command line use (recommended) ## Heres what a .stml file might look like: < machine id="main" xmlns="http://slaysys.com/StateML/1.0"...


Platforms: *nix

Mozilla::ConsoleService is a Perl interface to Mozilla nsIConsoleService. SYNOPSIS use Mozilla::ConsoleService; Mozilla::PromptService::Register(sub { print $_[0]; }); Mozilla::ConsoleService uses Mozilla nsIConsoleService to pass log messages to perl code, similar to JavaScript Console...


Platforms: *nix

SVG::SVG2zinc is a Perl module to display or convert svg files in scripts, classes, images... SYNOPSIS use SVG::SVG2zinc; &SVG::SVG2zinc::parsefile(file.svg, Backend,file.svg, -out => outfile, -verbose => $verbose, -namespace => 0|1, -prefix => string, ); # to generate a Perl script:...


Platforms: *nix

Path::Graph is a Perl module created to generate paths from hash graph. SYNOPSIS Code 1 #!usr/bin/perl my %graph = ( A => {B=>1,C=>4}, B => {A=>1,C=>2}, C => {A=>4,B=>2} ); use Paths::Graph; my $g = Paths::Graph->new(-origin=>"A",-destiny=>"C",-graph=>%graph); my @paths =...


Platforms: *nix

sqlpp Perl package is a SQL preprocessor. sqlpp is a conventional cpp-alike preprocessor taught to understand SQL ( PgSQL, in particular) syntax specificities. In addition to the standard #define/#ifdef/#else/#endif cohort, provides also #perldef for calling arbitrary perl code. SYNOPSIS...


Platforms: *nix

Set::Infinite::Basic is a Perl module with sets of intervals. SYNOPSIS use Set::Infinite::Basic; $set = Set::Infinite::Basic->new(1,2); # [1..2] print $set->union(5,6); # [1..2],[5..6] Set::Infinite::Basic is a Set Theory module for infinite sets. It works on reals, integers, and...


Platforms: *nix

HTML::Embperl is a Perl module for building dynamic Websites with Perl. SYNOPSIS Embperl is a Perl extension module which gives you the power to embed Perl code directly in your HTML documents (like server-side includes for shell commands). If building more than a single page, you may also...


Platforms: *nix

Games::PerlWar is a Perl variant of the classic Corewar game. This is a sparring program, similar to the programmed reality of the Matrix. It has the same basic rules, rules like gravity. What you must learn is that these rules are no different than the rules of a computer system. Some of...


Platforms: *nix

Net::TCPwrappers is a Perl interface to tcp_wrappers. SYNOPSIS use Net::TCPwrappers qw(RQ_DAEMON RQ_FILE request_init fromhost hosts_access); ... my $progname = yadd; while (accept(CLIENT, SERVER)) { my $req = request_init(RQ_DAEMON, $progname, RQ_FILE, fileno(CLIENT)); fromhost($req);...


Platforms: *nix

VCS project is a Perl library for generic Version Control System access in Perl. SYNOPSIS use VCS; $file = VCS::File->new($ARGV[0]); print $file->url, ":n"; for $version ($file->versions) { print $version->version, was checked in by , $version->author, "n"; } VCS is an API for...


Platforms: *nix

List::Compare is a Perl module to compare elements of two or more lists. SYNOPSIS The bare essentials: @Llist = qw(abel abel baker camera delta edward fargo golfer); @Rlist = qw(baker camera delta delta edward fargo golfer hilton); $lc = List::Compare->new(@Llist, @Rlist);...


Platforms: *nix

TeX::Hyphen is a Perl module to hyphenate words using TeXs patterns. SYNOPSIS use TeX::Hyphen; my $hyp = new TeX::Hyphen file => hyphen.tex, style => czech, leftmin => 2, rightmin => 2; # my $hyp = new TeX::Hyphen "hyphen.tex"; my $word = "representation"; my @points =...


Platforms: *nix

Devel::Profile is a Perl module to tell me why my perl program runs so slowly. SYNOPSIS perl -d:Profile program.pl less prof.out The Devel::Profile package is a Perl code profiler. This will collect information on the execution time of a Perl script and of the subs in that script. This...


Platforms: *nix

PDL::Fit::Levmar is a Perl module with Levenberg-Marquardt fit/optimization routines. Levenberg-Marquardt routines for least-squares fit to functions non-linear in fit parameters. This module provides a PDL ( PDL::PDL ) interface to the non-linear fitting library levmar (written in C). Levmar...


Platforms: *nix

Emacs::Lisp provides support for writing Emacs extensions in Perl. Emacs allows you to customize your environment using Lisp. With EPL, you can use Perl, too. This module allows Perl code to call functions and access variables of Lisp. You still need to learn some Lisp in order to understand...


Platforms: *nix