PIB

• bit.do
• bit.ly
• ux.nu
• j.mp
• 00m.in
• Tiny URL
• is.gd
• goo.gl
• t.co

• TENKAI
• KnowURL

元ネタ:

• cod.note / RubyでURL短縮展開のコードがきもいです…
• 404 Blog Not Found / perl - 短縮URLを一行で展開する
• Schwarze SQ / 短縮URLを展開するRubyスクリプトを作ってみた

1 liner 縛り、外部コマンドありって条件で
元ネタ(？)に準ずると以下のような感じだろうか？

awk 'BEGIN{U=u=ARGV[1];while("curl -sI "U|getline)if($1=="Location:")u=$2;print u}' http://j.mp/dankogai
ruby -e'puts /^Location: (.+)$/=~IO.read("|curl -sI "+$*[0])?$1:$*[0]' http://j.mp/dankogai
_(){ (echo $1;curl -sI $1|grep ^Location:|cut -d" " -f2-)|tail -n1;unset -f _;};_ http://j.mp/dankogai

しかし、これだと 2 hops 以上トレース出来ない。
最終的な飛び先を把握するって意味では以下のようにした方が良い気がする。

awk 'BEGIN{print u=ARGV[1];while("curl -sI "u|getline)if($1=="Location:")print u=$2}' http://j.mp/dankogai
_(){ echo $1;wget --spider -qS $1 2>&1|grep ^\\s*Location:;unset -f _;};_ http://j.mp/dankogai