Live Free Or Die Flag

If you like to chat and change your nickname automatically (until now you can only do it manually) then do it with this tiny program (just 8K) for Live Messenger or Messenger Plus which changes your nickname automatically every so many seconds.You can use a text file with a list of names from...

SVG::Metadata is a Perl module to capture metadata info about an SVG file. SYNOPSIS use SVG::Metadata; my $svgmeta = new SVG::Metadata; $svgmeta->parse($filename) or die "Could not parse $filename: " . $svgmeta->errormsg(); $svgmeta2->parse($filename2) or die "Could not parse...

PerlIO::via::Logger is a PerlIO layer for prefixing current time to log output. SYNOPSIS use PerlIO::via::Logger; PerlIO::via::Logger->format( [%b %d, %Y %r] ); use PerlIO::via::Logger format => [%b %d, %Y %r] ; open( my $in,<:via(Logger),filein ) or die "Cant open file.ln for reading:...


Platforms: *nix

Algorithm::Dependency is a base class for implementing various dependency trees. SYNOPSIS use Algorithm::Dependency; use Algorithm::Dependency::Source::File; # Load the data from a simple text file my $data_source = Algorithm::Dependency::Source::File->new( foo.txt ); # Create the...


Platforms: *nix

Template::Ast is a Perl module to process ASTs for Perl Template Toolkit. SYNOPSIS use Template::Ast; # Rebuild AST stored in file: $ast = Template::Ast->read(foo.ast) or die Template::Ast->error(); # Writing existing AST to file: $ast = { Marry => [24, F], John => [21, M] };...


Platforms: *nix

Makefile::Parser is a Simple Parser for Makefiles. SYNOPSIS use Makefile::Parser; $parser = Makefile::Parser->new; # Equivalent to ->parse(Makefile); $parser->parse or die Makefile::Parser->error; # Get last value assigned to the specified variable CC: print $parser->var(CC); # Get...


Platforms: *nix

jTDS is an open source 100% pure Java (type 4) JDBC 3.0 driver for Microsoft SQL Server (6.5, 7, 2000 and 2005) and Sybase (10, 11, 12, 15). jTDS is based on FreeTDS and is currently the fastest production-ready JDBC driver for SQL Server and Sybase. jTDS is 100% JDBC 3.0 compatible, supporting...


Platforms: *nix

MP3::Icecast is a Perl module to generate Icecast streams, as well as M3U and PLSv2 playlists. SYNOPSIS use MP3::Icecast; use MP3::Info; use IO::Socket; my $listen_socket = IO::Socket::INET->new( LocalPort => 8000, #standard Icecast port Listen => 20, Proto => tcp, Reuse => 1,...


Platforms: *nix

Imager::Filters is an entire image filtering operations. SYNOPSIS use Imager; $img = ...; $img->filter(type=>autolevels); $img->filter(type=>autolevels, lsat=>0.2); $img->filter(type=>turbnoise) # and lots of others load_plugin("dynfilt/dyntest.so") or die "unable to load pluginn";...


Platforms: *nix

Module::Signature is a Perl module signature file manipulation. SYNOPSIS As a shell command: % cpansign # verify an existing SIGNATURE, or # make a new one if none exists % cpansign sign # make signature; overwrites existing one % cpansign -s # same thing % cpansign verify # verify a...


Platforms: *nix

SimpleCDB - A Perl-only Constant Database. SYNOPSIS use SimpleCDB; # writer # - tie blocks until DB is available (exclusive), or timeout tie %h, SimpleCDB, db, O_WRONLY or die "tie failed: $SimpleCDB::ERRORn"; $h{$k} = $v; die "store: $SimpleCDB::ERROR" if $SimpleCDB::ERROR; untie %h;...


Platforms: *nix

Image::ParseGIF can parse a GIF image into its compenent parts. SYNOPSIS use Image::ParseGIF; $gif = new Image::ParseGIF ("image.gif") or die "failed to parse: $@n"; # write out a deanimated version, showing only the first frame $gif->deanimate(0); # same again, manually printing each...


Platforms: *nix

MPEG::LibMPEG3 is a Perl interface to libmpeg3 module. SYNOPSIS use strict; use MPEG::LibMPEG3; my $mpeg = MPEG::LibMPEG3->new( $filename ); $mpeg->set_cpus(1); ## I only have 1 cpu but you can put whatever $mpeg->set_mmx(1); ## but it has mmx instructions printf "Audio Streams: %dn",...


Platforms: *nix

Samba::LDAP::Config is a Perl module to config file related tasks for Samba::LDAP. SYNOPSIS use Samba::LDAP::Config; my $config = Samba::LDAP::Config->new() or die "Cant create objectn"; # Returns where smbldap.conf, smbldap_bind.conf and # smb.conf are located my $smbldap_conf =...


Platforms: *nix

Mac::Errors is a Perl module with constants for Mac error codes. SYNOPSIS use Mac::Errors qw(openErr); if( $value == openErr ) { ... } my $error = $MacErrors{ $symbol }; # -- OR -- my $error = $MacErrors{ $number }; my $symbol = $error->symbol; my $number = $error->number; my $desc =...


Platforms: *nix

Mac::PropertyList is a Perl module to work with Mac plists at a low level. SYNOPSIS use Mac::PropertyList; my $data = parse_plist( $text ); # == OR == my $data = parse_plist_file( $filename ); # == OR == open my( $fh ), $filename or die "..."; my $data = parse_plist_fh( $fh ); my...


Platforms: *nix

Net::Lyskom is a Perl module used to talk to LysKOM servers. SYNOPSIS use Net::Lyskom; $a = Net::Lyskom->new(); $conf = 6; $a->login(pers_no => 437, password => "God", invisible => 1) or die "Failed to log in: $a->err_stringn"; $b = $a->send_message(7680, "Oook!"); $b =...


Platforms: *nix

File::Sync is a Perl access to fsync() and sync() function calls. SYNOPSIS use File::Sync qw(fsync sync); fsync(*FILEHANDLE) or die "fsync: $!"; sync(); use File::Sync qw(fsync); use IO::File; $fh = IO::File->new("> /tmp/foo") or die "new IO::File: $!"; ... fsync($fh) or die "fsync:...


Platforms: *nix

MP3::Info is a Perl module that can manipulate / fetch info from MP3 audio files. SYNOPSIS #!perl -w use MP3::Info; my $file = Pearls_Before_Swine.mp3; set_mp3tag($file, Pearls Before Swine, q"77s", Sticks and Stones, 1990, q"(c) 1990 77s LTD.", rock & roll); my $tag =...


Platforms: *nix

Animated Counter provides a nice animated counter. Each time when a page is reloaded the counter increases the digits "live".. Free perl and php scripts for your homepage. Counter, guestbook, poll, download systems, link indexing and more.


Platforms: *nix