Argv

Argv is a Perl module that provides an OO interface to an arg vector. SYNOPSIS use Argv; # A roundabout way of getting perls version. my $pl = Argv->new(qw(perl -v)); $pl->exec; # Run /bin/cat, showing how to provide "predigested" options. Argv->new(/bin/cat, [qw(-u -n)],... Platforms: *nix

Chemistry::Artificial::Graphics is a graphic plot for artificial with database support. SYNOPSIS use strict; use Chemistry::SQL; use Chemistry::Artificial::Graphics; my $dbname = $ARGV[0]; my $chaname = $ARGV[1]; my $file = $ARGV[2]; my $mode = $ARGV[3]; if (scalar(@ARGV)!=4) {... Platforms: *nix

IO::Interactive is a Perl module with utilities for interactive I/O. SYNOPSIS use IO::Interactive qw(is_interactive interactive busy); if ( is_interactive() ) { print "Running interactivelyn"; } # or... print {interactive} "Running interactivelyn"; $fh = busy {... Platforms: *nix

Getopt::Euclid is Perl module executable uniform command-Line interface descriptions. SYNOPSIS use Getopt::Euclid; if ($ARGV{-i}) { print "Interactive mode...n"; } for my $x (0..$ARGV{-size}{h}-1) { for my $y (0..$ARGV{-size}{w}-1) { do_something_with($x, $y); } } __END__ =head1... Platforms: *nix

Getopt::Tabular is a Perl module for table-driven argument parsing for Perl 5. SYNOPSIS use Getopt::Tabular; (or) use Getopt::Tabular qw/GetOptions SetHelp SetHelpOption SetError GetError/; ... ≥topt::Tabular::SetHelp (long_help, usage_string); @opt_table = (... Platforms: *nix

HTML::Latex is a Perl module that creates a Latex file from an HTML file. SYNOPSIS use HTML::Latex my $parser = new HTML::Latex($conffile); $parser->set_option(%options); $parser->add_package(@packages); $parser->ban_tag(@banned); $parser->set_log($logfile); # Option 1: foreach my... Platforms: *nix

MassResolve application performs reverse DNS lookups for network blocks or an input file. The requests can be performed mulit-threaded. Usage: ./res < subnet or filename to resolve > < forks > Code: /* MassResolve (C) 2000 John Anderson (john@ev6.net) This program performs reverse dns... 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

Make is a Perl module for processing makefiles. SYNOPSIS require Make; my $make = Make->new(...); $make->parse($file); $make->Script(@ARGV) $make->Make(@ARGV) $make->Print(@ARGV) my $targ = $make->Target($name); $targ->colon([dependancy...],[command...]);... Platforms: *nix

SVG::Parser is a Perl module with XML Parser for SVG documents. SYNOPSIS #!/usr/bin/perl -w use strict; use SVG::Parser; die "Usage: $0 n" unless @ARGV; my $xml; { local $/=undef; $xml=<>; } my $parser=new SVG::Parser(-debug => 1); my $svg=$parser->parse($xml); print... Platforms: *nix

SYNOPSIS my $mi = Movie::Info->new || die "Couldnt find an mplayer to usen"; foreach my $file (@ARGV) { my %info = $mi->info($file) || warn "Couldnt read info from $filen" && next; print "$file (WxH) - $info{width}x$info{height}n"; } Movie::Info is a thin layer around MPlayers... Platforms: *nix

This script represents a way to parse command line from user provided string or try to get the original Argv from Windows OS Platform. Platforms: Windows, Python,

Programs that use data stuff have often problems when executed from another directory or from a graphical filemanager. This problems are more common in Linux/*BSD because of both: everyone uses the terminal, and graphical filemanagers have this strange behavior of launching executables from the... Platforms: *nix

Number::Bytes::Human is a Perl module that can convert byte count to human readable format. SYNOPSIS use Number::Bytes::Human qw(format_bytes); $size = format_bytes(0); # 0 $size = format_bytes(2*1024); # 2.0K $size = format_bytes(1_234_890, bs => 1000); # 1.3M $size = format_bytes(1E9,... Platforms: *nix

Algorithm::Loops is a Perl module with looping constructs: NestedLoops, MapCar*, Filter, and NextPermute*. SYNOPSYS use Algorithm::Loops qw( Filter MapCar MapCarU MapCarE MapCarMin NextPermute NextPermuteNum NestedLoops ); my @copy= Filter {tr/A-Z.,"()/a-z/d} @list; my $string= Filter... Platforms: *nix

Net::Z3950::SimpleServer is a simple Perl API for building Z39.50 servers. SYNOPSIS use Net::Z3950::SimpleServer; sub my_search_handler { my $args = shift; my $set_id = $args->{SETNAME}; my @database_list = @{ $args->{DATABASES} }; my $query = $args->{QUERY}; ## Perform the query on... Platforms: *nix

AtExit is a Perl module that can perform exit processing for a program or object. SYNOPSIS use AtExit; sub cleanup { my @args = @_; print "cleanup() executing: args = @argsn"; } ## Register subroutines to be called when this program exits $_ = atexit(&cleanup, "This call was... Platforms: *nix

Sys::Manage::Cmd - Systems management command volley. SYNOPSIS Command line script use Sys::Manage::Cmd; my $s =Sys::Manage::Cmd->new(); # Script associations (see also embedded in source): $s->{-assoc}->{.ftp}=sub{[ftp,-n,-s:loginfile,!elem!,<,$_[1]->[0]]}; # Target collections:... Platforms: *nix

Apache::TestRun is a Perl module to run the test suite. SYNOPSIS The Apache::TestRun package controls the configuration and running of the test suite. METHODS Several methods are sub-classable, if the default behavior should be changed. bug_report The bug_report() method is executed... Platforms: *nix

Modwheel Perl module is a tree-based Web framework. Most web sites are pages categorized by topic. So web sites can be viewed as a tree system where every page is a sub-tree and the page elements are nodes. Page elements can be things like articles, links, ads, news, comments and so on. In... Platforms: *nix