電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

URLエンコードを生成

Perlのunpack関数を使用して、URLエンコードを出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my $text = "猫に小判";
$text =~ s/([^0-9a-zA-Z])/"%".uc(unpack("H2",$1))/eg;
$text =~ s/ /+/g;
print $text;
 
exit;

サンプルコードです。

%E7%8C%AB%E3%81%AB%E5%B0%8F%E5%88%A4

出力結果です。

スポンサードリンク
スポンサードリンク