Iron Man Blogging Challenge | taro-nishinoの日記 | スラド YappoLogs: Iron Man Blogging Challengeに参加するよ、日本のPerlな人も参加しようよ http://blog.perlassociation.org/2009/05/perl-iron-man.html って事なので、自分も及ばずながら参加してみます。 で、最近たまに忘れたりする URI モジュールの小ネタ。 相対パスの解決 new_abs() で簡単に作れます。 use strict; use warnings; use feature qw(say); use URI; my $uri = URI->new_abs('../../css/import.css', 'http://example.com/foo/bar/index.html');
タイトル長い。っていうかそのまんまです。 #!/usr/bin/perl use strict; use warnings; use URI; my $s = 'http://example.com/?q=%82%e2%82%e9%95v%82%c5%8aw%82%d4'; utf8::upgrade($s); my $uri = URI->new($s); my %qf = $uri->query_form; $qf{flag} = 'ON'; $uri->query_form( %qf ); my $uri_str = $uri->as_string; これ、一見すると$uri_strは http://example.com/?q=%82%e2%82%e9%95v%82%c5%8aw%82%d4&flag=ONになりそうなんですが、実際には http://example.com/?q=
This domain may be for sale!
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
