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

perl
tips

asakawajunya のブックマーク 2011/01/03 07:56

<blockquote class="hatena-bookmark-comment"><a class="comment-info" href="https://b.hatena.ne.jp/entry/27896609/comment/asakawajunya" data-user-id="asakawajunya" data-entry-url="https://b.hatena.ne.jp/entry/s/dankogai.livedoor.blog/archives/51573012.html" data-original-href="https://dankogai.livedoor.blog/archives/51573012.html" data-entry-favicon="https://cdn-ak2.favicon.st-hatena.com/64?url=https%3A%2F%2Fdankogai.livedoor.blog%2Farchives%2F51573012.html" data-user-icon="/users/asakawajunya/profile.png">perl - 短縮URLを一行で展開する : 404 Blog Not Found</a><ul class="comment-tag" style="list-style: none; margin: 0px;"><li style="float: left">[<a href="https://b.hatena.ne.jp/q/perl">perl</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/tips">tips</a>]</li></ul><br><p style="clear: left">perlで1行で書けるなら、curlコマンドで行けるかと思い試してみた。コマンド「curl -I <a href="http://j.mp/dankogai" target="_blank" rel="noopener nofollow">http://j.mp/dankogai</a> 2&gt;/dev/null | grep &quot;Location&quot;」実行結果：「Location: <a href="http://blog.livedoor.jp/dankogai/" target="_blank" rel="noopener nofollow">http://blog.livedoor.jp/dankogai/</a>」&quot;Location: &quot;部分が余計ですが。</p><a class="datetime" href="https://b.hatena.ne.jp/asakawajunya/20110103#bookmark-27896609"><span class="datetime-body">2011/01/03 07:56</span></a></blockquote><script src="https://b.st-hatena.com/js/comment-widget.js" charset="utf-8" async></script>

このブックマークにはスターがありません。
最初のスターをつけてみよう！