Perl Code

Parsing GET/POST requests
Use CGI it's more reliable:

eg:

use CGI qw(:standard param); my $field = param('field')

Print Environment Variables
while (($key, $value) = each(%ENV)) { print " $key -> $value"; }

A simple server
#! /usr/bin/perl -w # server0.pl

use strict; use Socket;

# use port 7890 as default my $port = shift || 7890; my $proto = getprotobyname('tcp');

# create a socket, make it reusable socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!"; setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!";

# grab a port on this machine my $paddr = sockaddr_in($port, INADDR_ANY);

# bind to a port, then listen bind(SERVER, $paddr) or die "bind: $!"; listen(SERVER, SOMAXCONN) or die "listen: $!"; print "SERVER started on port $port\n";

# accepting a connection my $client_addr; while ($client_addr = accept(CLIENT, SERVER)) { 	 # find out who connected my ($client_port, $client_ip) = sockaddr_in($client_addr); my $client_ipnum = inet_ntoa($client_ip); my $client_host = gethostbyaddr($client_ip, AF_INET); # print who has connected print "got a connection from: $client_host","[$client_ipnum]\n"; # send them a message, close connection print CLIENT "Smile from the server"; close CLIENT; } (http://www.devarticles.com/art/1/430/(3)

Perl Split File
Takes a file and splits it into individual files. The delimeter between each file is ~filename, eg it takes a file formatted:- ~output1 blah blah blah ~output2 moo moo moo and creates two files titled output1 and output2 with the respective contents from the original file: #!/usr/bin/perl $filename=$ARGV[0]; $openhandle=0; open (DATA,"<$filename"); while () { if (/^~(.*)/) { if ($openhandle) { close OUTPUT; }			open (OUTPUT, ">$1"); $openhandle=1; } elsif ($openhandle) { print OUTPUT; }	}	close OUTPUT; close DATA;


 * strip white space: s/\s+$//;