All pastes #912793 Raw Edit

GS42K0

public text v1 · immutable
·published 2008-02-21 17:17 UTC
rendered paste body
package CutSys::URI;
use strict;
use warnings;

sub primitive_escape {
	my $primitive = shift;

	$primitive =~ s/[\x3A-\x40\x22-\x26\x00-\x1F\x7F\s"]/'%'.sprintf '%x', ord $&/ge;
	return $primitive;
}
1;