最近Perlの勉強を始め、入門書を読んだりしてPerlのソースがそこそこ読めるようになってきました。 で、そろそろ実際に書いてみますかということで、以前からほしかったAPIに挑戦してみました。 reurl API Tinyurlなどで圧縮されたURLを復元*1してJSON(callbackがあればJSONP)を返すAPIです。 圧縮されていないと思われるURL(サービスのドメインで判断)は基本的にそのまま返します空文字列を返します。 API API:http://ss-o.net/api/reurl.json Parameters: url (URL encoded) callback (Optional) Ex1. http://ss-o.net/api/reurl.json?url=http%3A%2F%2Ftinyurl.com%2Fc3vhol Ex2. http://ss-o.n