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
Proxyfinder
on Dec 22, 2007 at 20:27
0 replies by Onur
This program is not usable anymoreThis program finding proxies (getting from samair.ru/proxy) and optional pinging them. Example output:
IP   Port  Country  Status  Ping
129.69.210.96  3128  Germany  Online  101
193.196.39.10  3127  Germany  Online  103
141.76.45.17  3124  Germany  Online  104
80.156.84.39  80  Germany  Online  105
217.172.56.174  23  Germany  Online  107
80.156.84.38  80  Germany  Online  107
88.198.9.185  3128  Germany  Online  107
Example XML output:
<?xml version='1.0'?>
<opt complete_time="1198372633">
  <proxy ip="202.56.176.1" checktime="1198372568" country="Afghanistan" durum="Online" ping="678" port="3128" type="transparent proxy" />
  <proxy ip="196.202.252.244" checktime="1198372570" country="Angola" durum="Offline" ping="0" port="80" type="transparent proxy" />
  <proxy ip="200.81.25.5" checktime="1198372572" country="Argentina" durum="Offline" ping="0" port="3128" type="transparent proxy server" />
  <proxy ip="190.2.61.161" checktime="1198372572" country="Argentina" durum="Online" ping="316" port="80" type="high-anonymous proxy" />
  <proxy ip="201.234.107.165" checktime="1198372573" country="Argentina" durum="Online" ping="357" port="80" type="transparent proxy" />
  ...
</opt>
This program doesn't have any sort option. I dont know how can i short an array reference. You can sort output with `sort` command. For example if you want to sort ping column:
./proxyfinder.pl --text --ping | grep Online | sort -k 5
You can download latest version of this program:
cvs -d :pserver:anonim@0nur.net:/root checkout proxyfinder
This is my first post to here. Sorry for my bad English
Sol::Parser - a sol file reader
on Dec 18, 2007 at 03:47
1 reply by andreas1234567
Local Shared Object (LSO), sometimes known as flash cookies, is a cookie-like data entity used by Adobe Flash Player. LSOs are stored as files on the local file system with the .sol extension. This module reads a Local Shared Object file and return content as a list.
member availability entry and display script
on Dec 12, 2007 at 06:43
1 reply by andyselby
A script (two actually) that is used to display the availability of members on each weekday so that a date may be decided on when the maximum amount of memebers are available. see it in action at webplus.andy.abel.co.uk/cgi-bin/entry.cgi Split the code into two files at the line of hashes. Done with a lot of help from batman on #miltonkeynes.pm
host-switchport mapper
on Dec 07, 2007 at 13:59
0 replies by colakong
A utility for describing where hosts are physically connected. Queries Cisco switches for CAM tables, queries hosts for MAC information using wmic (available on WinXP/W2K3), compares CAM/MAC information for host-to-switch-and-port-and-vlan mapping.
Log Rotation
on Nov 23, 2007 at 03:15
2 replies by Danikar

A small script I wrote for work. My first script that is going to be used for anything real, so I am pretty nervous putting it into practice tomorrow.

I figured I would throw it up here and see if anyone had any suggestions and so forth.

The key thing is that so far it seems to work. Also, I know very little about log rotation, so hopefully I got the concept down heh.

I used a few `command` to archive old logs, I am sure there is a perl module out there for it, but time was for the essence in here. Any suggestions to switch that stuff out with I am open to.

Date time stamp isn't working correctly. =\

Send email using perl and sendmail
on Nov 19, 2007 at 20:23
2 replies by sKore
Send email using perl and sendmail
Create HTML files using perl on the fly
on Nov 19, 2007 at 20:18
2 replies by sKore
Create HTML files using perl on the fly.
piglist
on Nov 16, 2007 at 13:20
1 reply by hsinclai
piglist makes a formatted, sorted list of subdirectory names and their sizes in K. If the path names are longer than 44 characters, piglist reformats itself to output a 132 character wide report. piglist uses File::Find and the output of 'du', on unix/linux
Zooomr uploader
on Nov 12, 2007 at 22:25
5 replies by polettix
A simple upload script for Zooomr, an online photo album service that will hopefully reach Flickr standards. The script contains full documentation in POD, but you will be able to do the following:
shell$ zooomr -u pippo@example.com -p pluto foto*.jpg # Let the program ask you for the password, so that you don't have # to show it on the screen shell$ zooomr add -u pippo@example.com photo*.jpg # Add a tag shell$ zooomr add -u pippo@example.com --tag awesome photo*.jpg # Add two tags shell$ zooomr add -u pippo@example.com -t awesome -t good photo*.jpg
Happy uploading! You can also save your recurrent options inside a configuration file .zooomr inside your home directory.

Update: added more features and checks for good uploads vs fake ones (Zooomr sometimes simply seems to throw an upload in the dust bin).

Update: added support for browser cookie file, managing external authentication via browser (needed for OpenID accounts). Added some missing documentation.

Update: added support for summary file at the end of upload, to report managed files and their URIs (see this post in Zooomr groups).

Update: changed upload URI to conform to current non-flash upload URI.

Download MIT OpenCourseware
on Nov 12, 2007 at 13:48
0 replies by diotalevi

This is a convenient way to download some classes from MIT's OpenCourseware website.