EvoTalk » Blog Archive » Javascript Like escape and unescape Functions in PERL

24 六月, 2009

Javascript Like escape and unescape Functions in PERL

Posted by: asd In: Code Snippet| Perl| 程式設計 ()

PERL:

sub escape {
my($str) = splice(@_);
$str =~ s/(\W)/sprintf('%%%02X', ord($1))/eg;
return $str;
}
sub unescape {
my($str) = splice(@_);
$str =~ s/%(..)/chr(hex($1))/eg;
return $str;
}

Tags: javascript, Perl

Releated Posts

2009/06/24 -- Perl Connect MS SQL Server 2005 Express
2009/02/19 -- Http Post using Perl
2009/01/20 -- Perl Call VC Dll
2007/12/06 -- Web Service: Use Perl XML-RPC
2007/11/07 -- perl regex : grep
2007/07/19 -- Catch TW Yahoo Hot Words
2007/03/21 -- Perl Get Date and Time
2007/03/09 -- Perl File Flush
2007/02/09 -- Uniform Server
2007/01/10 -- Perl Parse XML

No Responses to "Javascript Like escape and unescape Functions in PERL"

Comment Form

Search

Latest Posts
Latest Comments
Tags

BK: 大於和小於在今日更廣泛地使用於標籤上，故在此補充該英文用法： : angle bracket []: square bracket
luh1688: 非常實用且謝謝!~
asd: 好的，不過很久沒修改了，不知道能不能動寄到您的yahoo信箱
LIANG: nice post, thank you
Justmaker: 您好，請問可以跟你要source嗎？我最近有在看股票，想要enhance您的小工具，不知是否可以開放？