Tick Tick Boom Synopsis

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

X-Chat NewsWindow is a perl script for X-Chat (or X-Chat Aqua) implements one of those annoying announcer scripts that announce your currently playing audio track in iTunes or your current audio or video track in VLC to your IRC channel because you feel for some reason that everyone wants to...

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

SYNOPSIS use File::Find::Rule; # find all the subdirectories of a given directory my @subdirs = File::Find::Rule->directory->in( $directory ); # find all the .pm files in @INC my @files = File::Find::Rule->file() ->name( *.pm ) ->in( @INC ); # as above, but without method chaining my...


Platforms: *nix

UnNaTuRaL is a platform-independent role-playing engine. It was named for the "UnNaTuRaL laws" of infinite individual user-created worlds. These detailed worlds are built entirely from resource files (simple, easy-to-read text-files) which control the language of the user interface, the terrain...


Platforms: *nix

[COPYRIGHT] SYNOPSIS use XML::DOM::Lite qw(Parser XSLT); $parser = Parser->new( whitespace => strip ); $xsldoc = $parser->parse($xsl); $xmldoc = $parser->parse($xml); $output = XSLT->process($xmldoc, $xsldoc);.


Platforms: *nix

PortfolioTracker helps you track and manage your stock portfolio of Euronext shares in realtime (15 delay). Assess your stock positions (price, daychange, gain, gain%, value, weight%) with one command. Portfolio changes are easy maintained in a text file. Example of generated output:...


Platforms: *nix

SYNOPSIS Example 1 use Config::Magic; use Data::Dumper; $input=q{ Section 1 { [Section 4] #Comment style #1 //Comment style #2 ;Comment style #3 Monkey:1 Monkey=>2 Monkey:=3 < Section 2 > Foo = Bar Baz { Bip:1 Pants==5 } < /Section > < Tasty Cheese="3" / > < Section 5 >...


Platforms: *nix

Cross-LFS stands for Cross Linux From Scratch (CLFS) and is a project that provides you with step-by-step instructions for building your own customized Linux system entirely from source. Why would I want a CLFS system? Many wonder why they should go through the hassle of building a Linux...


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

CGI::Application::Plugin::Authentication::Driver::Dummy is a dummy authentication driver which lets anyone authenticate regardless of the password they provide SYNOPSIS use base qw(CGI::Application); use CGI::Application::Plugin::Authentication; __PACKAGE__->authen->config( DRIVER =>...


Platforms: *nix

SYNOPSIS ###### # Subroutine interface # use Data::Startup qw(config override); $options = override(%default_options, @option_list ); $options = override(%default_options, @option_list ); $options = override(%default_options, %option_list ); @options_list = config(%options ); ($key,...


Platforms: *nix

SYNOPSIS ##### # Subroutines # use Tie::Layers qw(is_handle config); $yes = is_handle( $file_handle ); ($key, $old_value) = config(%options, $key); ($key, $old_value) = config(%options, $key => $new_value ); #### # Config default startup options # @old_options_list =...


Platforms: *nix

SYNOPSIS use Error qw( :try ); use Pipeline::Config; my $config = Pipeline::Config->new(); try { my $pipe = $config->load( somefile.type ); my $pipe2 = $config->load( somefile, type ); } catch Error with { print shift; } Pipeline::Config lets you specify the structure of a Pipeline...


Platforms: *nix

SYNOPSIS use NetPacket::IP; $ip_obj = NetPacket::IP->decode($raw_pkt); $ip_pkt = NetPacket::IP->encode($ip_obj); $ip_data = NetPacket::IP::strip($raw_pkt); NetPacket::IP provides a set of routines for assembling and disassembling packets using IP (Internet Protocol). Methods...


Platforms: *nix

Trading-shim is a database driven connector API that provides a persistent store SQL backend database. The trading shim is a command-line and dbms controlled interface to the socket-based API of Interactive Brokers Trader Workstation, abbreviated as the IB tws socket api, or simply tws api....


Platforms: *nix

EXAMPLE # This is a really long synopsis, but hopefully it will give you an idea... package MyPackage; use Class::Driver; use base q(Class::Driver); our %drivers; return 1; sub new { my($class, %args) = @_; die "mime_type is required" unless($args{mime_type}); die "no driver to...


Platforms: *nix

SYNOPSIS use DCE::RPC; use Authen::Perl::NTLM qw(lm_hash nt_hash); use constant DCOM_IREMOTEACTIVATION => pack("H32", "B84A9F4D1C7DCF11861E0020AF6E7C57"); use constant DCOM_IF_VERSION => 0x00; use constant DCOM_XFER_SYNTAX => pack("H32", "045D888AEB1CC9119FE808002B104860"); use constant...


Platforms: *nix

SYNOPSIS require UNIVERSAL::derived_classes; package A; package B; @ISA = qw( A ); package C; @ISA = qw( B ); package main; my @derived_classes = A->derived_classes; # B, C my @derived_classes_reversed = A->derived_classes_reversed; # C, B UNIVERSAL::derived_classes provides the...


Platforms: *nix

Hexacolor allows you to convert colors to websafe HEX colors.Using Hexacolor you can mix your desired color using RGB 0-255 or RGB percentages [like the ones used in QuarkXPress«] and you can easily convert RGB 0-255 values to RGB percentage values or vice versa, just by clicking the % tick box.


Platforms: Mac