Subroutine Redefined

Dir::Purge is a Perl module to purge directories to a given number of files. SYNOPSIS perl -MDir::Purge -e purgedir (5, @ARGV) /spare/backups use Dir::Purge; purgedir ({keep => 5, strategy => "by_age", verbose => 1}, "/spare/backups"); use Dir::Purge qw(purgedir_by_age); purgedir_by_age...

htmlcat is a script that combines a number of HTML files into one. The beginning of the first file (up to and including < body ... >) is used for all the files since only their bodies are concatenated. An optional divider followed by the label of a file is used between files. Note that: *...

Test::STDmaker is a Perl module to generate test scripts, demo scripts from a test description short hand. SYNOPSIS ####### # Procedural (subroutine) interface # use Test::STDmake qw(find_t_roots get_data perl_command); @t_path = find_t_paths() $date = get_date(); $myperl =...


Platforms: *nix

Data::Str2Num - int str to int; float str to float, else undef. SYNOPSIS ##### # Subroutine interface # use Data::Str2Num qw(config str2float str2int str2integer); $float = str2float($string, [@options]); (@strings, @floats) = str2float(@strings, [@options]); $integer =...


Platforms: *nix

B::LexInfo is a Perl module that shows information about subroutine lexical variables. SYNOPSIS use B::ShowLex (); my $lexi = B::ShowLex->new; Perl stores lexical variable names and values inside a padlist within the subroutine. Certain lexicals will maintain certain attributes after the...


Platforms: *nix

Devel::TraceFuncs is a Perl module with trace function calls as they happen. SYNOPSIS Usage: require Devel::TraceFuncs; max_trace_depth 5; trace_file "foo.out"; trace_file $file_handle; sub foo { IN(my $f, "a message"); DEBUG "hellooo!"; } Devel::TraceFuncs provides utilities to...


Platforms: *nix

jdresolve is a software that resolves IP addresses to hostnames. Any file format is supported, including those where the line does not begin with the IP address. One of the strongest features of the program is the support for recursion, which can drastically reduce the number of unresolved hosts...


Platforms: *nix

Sort::Key is the fastest way to sort anything in Perl. SYNOPSIS use Sort::Key qw(keysort nkeysort ikeysort); @by_name = keysort { "$_->{surname} $_->{name}" } @people; # sorting by a numeric key: @by_age = nkeysort { $_->{age} } @people; # sorting by a numeric integer key: @by_sons =...


Platforms: *nix

RPM::Make is a Perl module to cleanly generate an RPM. SYNOPSIS use RPM::Make; # The "Manifest": list of files that will comprise the software package. my @filelist=(tmproot/file1.txt, tmproot/file2.txt, tmproot/file3.txt, tmproot/file4.txt); my %doc; my %conf; my %confnoreplace; my...


Platforms: *nix

File::SmartNL is a slurp text files no matter the New Line (NL) sequence. SYNOPSIS ##### # Subroutine Interface # use File::SmartNL qw(config fin fout smartnl); $old_value = config( $option ); $old_value = config( $option => $new_value); (@all_options) = config( ); $data =...


Platforms: *nix

perltoot is Toms object-oriented tutorial for perl. Object-oriented programming is a big seller these days. Some managers would rather have objects than sliced bread. Why is that? Whats so special about an object? Just what is an object anyway? An object is nothing but a way of tucking away...


Platforms: *nix

C/Invoke is a library for connecting to C libraries at runtime. This differs from the typical method of interfacing with C, which involves writing static definitions which are then compiled to a machine-dependant format. C/Invoke provides a runtime facility to build descriptions of C functions...


Platforms: *nix

Test::Resub is a lexically scoped subroutine replacement for testing. SYNOPSIS #!/usr/bin/perl use Test::More tests => 4; use Test::Resub qw(resub); { package Somewhere; sub show { my ($class, $message) = @_; return "$class, $message"; } } # sanity is( Somewhere->show(beyond the...


Platforms: *nix

ReleaseAction - call actions upon release. SYNOPSIS use ReleaseAction on_release; { # OO style my $handle = ReleaseAction->new( sub {print "Exiting scopen"} ); print "In scopen"; } { # Functional style my $handle = on_release {print "Exiting scopen"}; print "In scopen"; } { my...


Platforms: *nix

Inline::C is a Perl module that can Write Perl Subroutines in C. Inline::C is a module that allows you to write Perl subroutines in C. Since version 0.30 the Inline module supports multiple programming languages and each language has its own support module. This document describes how to use...


Platforms: *nix

IO::Busy is a Perl module to intercept terminal input while something else is happening. SYNOPSIS use IO::Busy; my $fh = busy { non_interactive_stuff(); }; This module exports a single subroutine, named busy. That subroutine takes a single argument, which must be a block of code. busy...


Platforms: *nix

Devel::DProf is a Perl code profiler. SYNOPSIS perl5 -d:DProf test.pl The Devel::DProf 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 information can be used to determine which subroutines are using...


Platforms: *nix

Sub::Curry is a Perl module to create curried subroutines. SYNOPSIS use Sub::Curry; use Sub::Curry qw/ :CONST curry /; # Import spice constants # and the &curry function. #my $f1 = Sub::Curry::->new(&foo, 1, 2); # Same as below. my $f1 = curry(&foo, 1, 2); my $f2 = $cb1->new(3, 4); my...


Platforms: *nix

Pod::Template is a Perl module for building pod documentation from templates. SYNOPSIS ### As a module ### use Pod::Template; my $parser = new Pod::Template; $parser->parse( template => documentation.ptmpl ); print $parser->as_string ### As a script ### $ podtmpl -I dir1 -I dir2...


Platforms: *nix

File::AnySpec is a Perl module to perform operations on foreign (remote) file names. SYNOPSIS # Subroutine Interface # use File::AnySpec qw(fspec2fspec pm2fspec os2fspec fspec2os fspec_glob fspec2pm); $file = fspec2fspec($from_fspec, $to_fspec $fspec_file, [$nofile]) $os_file =...


Platforms: *nix