[转载]URL转换脚本代码

信息来源：demonalex.nease.net

#!usr/bin/perl -w
print"**************************\n";
print"* CopyRight By DemonAlex *\n";
print"**************************\n";
print"Please enter:\n";
$string=<STDIN>;
chop($string);
$num=length($string);
for($num2=0;$num2<$num;$num2++){
$str[$num2]=substr($string,$num2,1);
print(&#39;%&#39;);
printf("%x",ord($str[$num2]));
}
print"\n";
exit 1;



#实例输出:
#**************************
#* CopyRight By DemonAlex *
#**************************
#Please enter:
#demonalex.cn.st
#%64%65%6d%6f%6e%61%6c%65%78%2e%63%6e%2e%73%74
#PS: %64%65%6d%6f%6e%61%6c%65%78%2e%63%6e%2e%73%74就是我的主页地址了。
#有问题请email: demonalex_at_dark2s.org