Sunday, February 22, 2009

Unix/Linux find command tutorial

The Best tutorial and reference for Unix/Linux find command. Please follow the link :
http://content.hccfl.edu/pollock/Unix/FindCmd.htm

Friday, February 6, 2009

Read form data using Perl

#!/usr/bin/perluse strict;
my $formdata;

read(STDIN,$formdata,$ENV{CONTENT_LENGTH});
print "Content-type: text/html\n\n";

#Add html codes..
for( split(/&/,$formdata) )
{
$_ =~ tr/+/ /;
my ($n,$v) = split(/=/,$_,2);
$n =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
print "$n=$v\n";}
print 'add closing html codes';