Subj : urlencode.pl (rough)
To   : All
From : Angus Mcleod
Date : Thu Dec 02 2004 08:11 am

Here's a quick'n'dirty 'urlencode' proggy in perl:

	#! /usr/bin/perl -w
	while (@ARGV) {
		$_ = shift @ARGV;
		s/([^A-Z0-9])/sprintf("%%%02X", ord($1))/sige;
		print "$_\n";
	}

And here's an equally dirty 'urldecode' proggy:

	#! /usr/bin/perl -w
	while (@ARGV) {
		$_ = shift @ARGV;
		s/\%([A-F0-9]{2})/pack('C',hex($1))/sige;
		print "$_\n";
	}

I'm tired monkeying around with assembler, and these do what I want, so 
I'm not going to worry to implement the various switches that the 
'urlendec' package does.  (or would, if it worked at all.)




---
 þ Synchronet þ Linus is a regular at The ANJO BBS.  No, Linus Brathwaite!

.