◆URLエンコードされていない元のスクリプト print "http://www.xxx.com/test.cgi?name=$name&chat=$chat\n"; |
◆URLエンコードするように改良したスクリプト $xname=$name;#別の名前の変数にコピー &encode($xname);#URLエンコードする。 $xchat=$chat;#別の名前の変数にコピー &encode($xchat);#URLエンコードする。 print "http://www.xxx.com/test.cgi?name=$xname&chat=$xchat\n"; #$nameの代わりに$xname、$chatの代わりに$xchatを使う # ################### #追加すべきサブルーチン sub encode { $_[0] =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge; $_[0] =~ s/\s/+/g; $_[0]; } |
URLエンコードするように改良したスクリプト &encode($name);#URLエンコードする。 &encode($chat);#URLエンコードする。 print "http://www.xxx.com/test.cgi?name=$name&chat=$chat\n"; ################### #追加すべきサブルーチン sub encode { $_[0] =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge; $_[0] =~ s/\s/+/g; $_[0]; } |