perl - 短縮URLを一行で展開する : 404 Blog Not Found

2011年01月03日06:00 カテゴリLightweight Languages perl - 短縮URLを一行で展開する Perlですから。 Schwarze SQ: 短縮URLを展開するRubyスクリプトを作ってみた なにやら短縮URLを使い、不正なサイトにアクセスさせウィルスに感染させる行為が流行っているらしい(まぁ想定の範囲内だが)。そこで、短縮URLを展開できるrubyスクリプトをちょちょっと作ってみた。perl -MLWP::UserAgent -lE \ 'say LWP::UserAgent->new->head(shift)->request->uri' \ http://j.mp/dankogai id:amachangが昔こさえてくれたこの短縮URLもhttp://blog.livedoor.jp/dankogai/と展開されるはずです。 もう少しverboseに

[kaito834]

短縮URLを展開する Perl のワンライナー。wget でやる場合、「wget -O - -S --max-redirect=0 短縮URL > /dev/null | grep Location」

[oqzl]

PHPなら $h=get_headers('http://j.mp/dankogai',1);echo $h['Location']; でOK

[mongrelP]

そろそろブックマークレットが出る予感（ぇ

[kits]

lwp-request -ud [URL] でできた。

[n2s]

短っｗ

[asakawajunya]

perlで1行で書けるなら、curlコマンドで行けるかと思い試してみた。コマンド「curl -I http://j.mp/dankogai 2>/dev/null | grep "Location"」実行結果：「Location: http://blog.livedoor.jp/dankogai/」"Location: "部分が余計ですが。

[wasai]

メモしておこう

[Donca]

✔ perl - 短縮URLを一行で展開する