This section is now closed for posting code. Please use Cool Uses For Perl instead.

Code Categories
Audio Related ProgramsFTP stuffNT Admin
CGI ProgrammingFun StuffWin32 Stuff
Chatterbox ClientsGUI ProgrammingMiscellaneous
CryptographyHTML UtilityText Processing
Database ProgrammingUtility ScriptsNetworking Code
E-Mail ProgramsWeb StuffPerlMonks Related Scripts


New Code
Small FTP Client with GUI
on Jul 26, 2007 at 18:41
2 replies by Perforin
Thats my little GUI FTP Client, with some Options like upload and download files.
SSL mail with auth
on Jul 26, 2007 at 10:32
1 reply by zentara
My isp just upgraded it's mail security to use ssl for both pop and smtp. Here are 2 scripts to connect to the pop-ssl and smtp-ssl-auth.
phoon - show the phase of the moon
on Jul 25, 2007 at 13:01
1 reply by jima
A Perl translation of Jef Poskanzer's phoon program.
Class::DBI keys as accessors
on Jul 25, 2007 at 11:14
0 replies by duncs
When using Class::DBI with a table such as:
Table: preferences +----+------------------+----------------------------+ | id | name | value | +----+------------------+----------------------------+ | 0 | filename | /path/to/file.txt | | 1 | item_enabled | 1 | | 2 | task_name | something | +----+------------------+----------------------------+
you want to use:
print DB::Prefs->filename,$/; DB::Prefs->filename("/new/path/to/file");
instead of:
my $row=DB::Prefs->search({ name => "filename" })->first; print $row->value,$/; $row->value("/new/path/to/file");
MySQL Query Sniffer
on Jul 16, 2007 at 17:22
0 replies by jagh

A MySQL query sniffer. It sniffs the network with Net::Pcap, extracts queries from MySQL packets, and prints them on standard output.

The documentation, as well as any future versions, lives at [http://iank.org/querysniffer/]

join - join two files according to a common key
on Jul 12, 2007 at 11:16
1 reply by Corion

A counterpart to part, it allows you to join two files side by side according to common values. This is similar to the join UNIX command except that the join command expects the input files to be sorted according to the keys, while this program will slurp the second file into a hash and then output the result according to the order of the first file.

Optionally (and untested) it can use a tied hash as on-disk storage in the case that the storage for the files is larger than the available RAM.

Cpan downloader with shell
on Jul 10, 2007 at 05:22
1 reply by jmrenouard
The main problem with cpan-download perl code is that you always need 5/6 modules installed on your system to be able to download and install your favorite modules easily.

In big compagnies, access to ftp are reduced so that cpan install ... can't be used easily because it used principaly ftp as module download protocol.

This script is a mix between shell and perl.

This script is based in wget, tar from the system so that you don't need extra modules to start installing automatically new module.

In fact, this is a nasty way, to be honest but it can be used to install cpan, libwww, cpan2rpm and them it can be forgotten.

But for a brand new installed system it is a ideal module installer because it is not depending from various module but from a standard based install perl !

In order to cross proxy just set your http_proxy environnement variable.

export http_proxy=proxyIp:proxyPort perl cpan.pl cpan2rpm
NIST NVD Feed Parser
on Jul 06, 2007 at 11:00
3 replies by semio
This script is used to pull the latest high severity CVE entries published by NIST. The end result is a populated html table that can be used for reporting or other purposes. Hopefully someone will find it useful. Comments and suggestions for improvement (code, presentation or otherwise) are very welcome. cheers.
SmallTalk-like Message browser
on Jul 03, 2007 at 17:12
1 reply by diotalevi
Examines a code tree and reports on which things are called by which other things.
PortKnockerz
on Jul 02, 2007 at 02:04
0 replies by LordScinawa
this code open the port 22 with iptables if you try to connect to the port 7, 3 5, 10 in the correct order.