Twitterなどで使われているURL短縮サービス「TinyURL」のAPI。
http://tinyurl.com/api-create.php?url=短縮したいURLhttp://tinyurl.com/api-create.php?url=http://example.com/ のように url= の後に短縮したいURLを書き、そのURLをたたくと短縮URLがテキストで返ってくる。
$file = file('http://tinyurl.com/api-create.php?url=http://www.example.com/test/test.html'); print_r($file); $file = file_get_contents('http://tinyurl.com/api-create.php?url=http://www.example.com/test/test.html'); echo $file;Perlは、LWP::UserAgent を利用する方法などがある。
use LWP::UserAgent; $url = 'http://tinyurl.com/api-create.php?url=http://www.example.com/test/test.html'; $ua = LWP::UserAgent->new(); $req = HTTP::Request->new('GET', $url); $res = $ua->request($req); $content = $res->content; print $content;