スマートフォン用の表示で見る

so what

2009-05-01

URLデコード

PERL

非破壊的な置換ってどうやるんだろう?

#!/usr/bin/env perl
use warnings;
use strict;
use Carp;

sub url_decode {
  my ($str) = @_;
  $str =~ s/%([\da-f]{2})/pack('C', hex($1))/egi;
  return $str;
}

my $x = "%83E%83B%83L%83y%83f%83B%83A";
print url_decode($x), "\n";

winebarrel 2009-05-01 00:00

URLデコード
この記事をはてなブックマークに追加
Tweet
  • もっと読む
コメントを書く
« デストラクタ なんでnoraは出てこないんだろう? »
プロフィール
id:winebarrel id:winebarrel はてなブログPro
検索
リンク
  • Twitter
  • Bitbucket
  • GitHub
最新記事
  • ridgepole: v0.7.6でignoreという属性をつけられるようにした
  • apexでrubyをデプロイする
  • active_record_mysql_xverify
  • audit.logのパーサを書いた
  • Postfixでの流量制限について
月別アーカイブ

はてなブログをはじめよう!

winebarrelさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?

はてなブログをはじめる(無料)
はてなブログとは
so what so what

Powered by Hatena Blog | ブログを報告する

スターをつけました

引用をストックしました

引用するにはまずログインしてください

引用をストックできませんでした。再度お試しください

限定公開記事のため引用できません。

読者です 読者をやめる 読者になる 読者になる