Perlメモ

一部の文字をエンコード

my($keyword, $value) = split(/\(/, "$data");　#$dataを「（」の手前でちょんぎりたかったので
$keyword =~ s/(\W)/'%'.unpack("H2", $1)/ego;　#$keywordをエンコード
$keyword =~ tr/ /+/;　#半角を+に変換

cgiの中でURLにキーワードを変数で入れたいときに、そのキーワードだけをエンコードしたかったので。

http://・・・.cgi?keyword=$keyword　の$keywordだけをエンコード

URLエンコード

http://・・・.cgi?url=$url
$urlを%つきの文字にエンコードする

http://www.rakuten.ne.jp/air-mami/
→http%3a%2f%2fwww%2erakuten%2eco%2ejp%2fair%2dmami%2f

$url =~ s/(\W)/'%'.unpack("H2", $1)/ego;