たつをの ChangeLog : 2010-03-29

Perl で短縮 URL を戻すサンプルスクリプト

2010-03-29-1 [Programming]
tinyurl や bitly などの短縮URLを元のURLに戻すサンプルスクリプトを Perl で書いてみました。
HEADリクエストなげて返ってくるデータを見るだけ。

コード（getlongurl.pl）：
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $url = shift @ARGV;
my $ua = LWP::UserAgent->new(timeout => 5);
my $res = $ua->head($url);
my $lurl = $res->request->uri || "";
print "$lurl\n";

実行例：
% ./getlongurl.pl http://bit.ly/1RmnUT
http://www.google.co.jp/
% ./getlongurl.pl http://flic.kr/p/7P5JBR
http://www.flickr.com/photos/yto/4470939735/
% ./getlongurl.pl http://tinyurl.com/ybbp6e3
http://twilog.org/yto
% ./getlongurl.pl http://ow.ly/1rPmd
http://d.hatena.ne.jp/i_ogi/20090506/watershed
% ./getlongurl.pl http://youtu.be/VtPJRbtZuJU
http://www.youtube.com/watch?v=VtPJRbtZuJU&feature=youtu.be
% ./getlongurl.pl http://j.mp/bIfgGG
http://taisyo.seesaa.net/article/144848049.html

コード（getlongurls.pl）：
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(timeout => 5);
while (<>) {
    chomp;
    my @c = split(/\t/, $_);
    my $url = $c[0];
    my $res = $ua->head($url);
    my $lurl = $res->request->uri || "";
    print "$url\t$lurl\n" if $lurl;
}

実行例：
% cat getlongurls-test.txt
http://tinyurl.com/ybbp6e3
http://ow.ly/1rPmd
http://j.mp/bIfgGG
% ./getlongurls.pl getlongurls-test.txt
http://tinyurl.com/ybbp6e3	http://twilog.org/yto
http://ow.ly/1rPmd	http://d.hatena.ne.jp/i_ogi/20090506/watershed
http://j.mp/bIfgGG	http://taisyo.seesaa.net/article/144848049.html

関連


履歴

  • 追記100330: ご指摘を受けて修正しました。ありがとうございます。
    http://b.hatena.ne.jp/kits/20100330#bookmark-20396697
    $res->{_request}->{_uri}
    ↓
    $res->request->uri
  • 追記160615: getlongurl.pl を少し修正、getlongurls.pl を追加。

2010年春の肩凝り

2010-03-29-2 [Diary][HealthCare]
あとで検索するための自分用メモ。

3/24(火)の夜から肩凝り。
左の肩とその周辺の首とか背中とか。
マッサージしてもらったり、シップ貼ったりしてもらったり。
金曜日ごろにはほぼおさまる。
週末でほぼ完治。

前回は2008年の夏だったみたい。
- [を] 首が痛くて大変な夏2008[2008-07-13-2]
金曜の朝から首が痛くて大変。
文字通り首が回らない。

若いときはこういう状態をずっと「寝違い」だと思っていたんだけど、あるとき雑談の折りこれこそが「肩凝り」だと知った次第。

たつをの ChangeLog
Powered by chalow