#!/usr/local/bin/perl

require "/home/scsfac/downeyt/public/scripts/parse-lib.pl";

$toencode = ' !@#^&()+={[}]|\\:;"\'<,>.?/';

#$toencode =~ s/([ !@#$%^&()+={\[}\]:;\"'<,>.?\/|\\])/xescape_one($1)/ge;


#$toencode =~ s/([ !@])/escape_one($1)/ge;

	#	 print "$toencode\n";

print ord('%');
print xescape('@'),"\n";

sub xescape {
    my($toencode) = @_;

    $toencode =~ s/([ !@#$%^&()+={\[}\]:;\"'<,>.?\/|\\])/xescape_one($1)/ge;

    return $toencode;
}

sub xescape_one {
    my($char) = @_;
    my($hex_val,$val);
    $val = ord($char);
    print "$val\n";
    $hex_val = $table[$val % 16] . $hex_val;
    $val = int ($val / 16);
    $hex_val = $table[$val % 16] . $hex_val;
    return "$char%".$hex_val;
}