LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する in C++ DouKaku?

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

tinyurl.com( http://tinyurl.com/ )のサービスを利用し、 http://ll.jus.or.jp/2008/info/xgihyo というURLを短縮しなさい。tinyurl.comのalias機能は使わないものとする。なお、参考までに短縮したURLは http://tinyurl.com/5mngx8 となる。

余力のあるものはこのプログラムを短くしてみたり、短くしてみたり、短くしてみよ。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

see: tinyurl.comでURLを短縮するRubyスクリプト

#!/usr/bin/env ruby

require 'rubygems'
require 'mechanize'

def tinyurl(url, _alias = nil)
    m = WWW::Mechanize.new
    res = m.get('http://tinyurl.com/')
    form = res.forms[1]
    form['url'] = url
    form['alias'] = _alias if _alias
    res = m.submit(form)
    regexp = Regexp.new('.*(http\:\//tinyurl.com/[a-z0-9-]+).*')
    match = regexp.match(res.body)
    return match[1] if match
end

if __FILE__ == $0 then
    puts tinyurl('http://ll.jus.or.jp/2008/info/xgihyo')
end

post comment

Posted feedbacks - C++

MSXMLのXmlHttpRequestを使いました。というわけでWindows限定です。さらに、#importを使っているので、Visual C++などでしかコンパイルできないです。なお、#import内のmsxml6.dllはmsxml3.dllやmsxml4.dllに置き換えても動くでしょう。

このプログラム自体は、std::wstringを全く使わなくても出来上がりますが、コピペして使い回すときの便を（少しだけ）考えてstd::wstringで入出力するようにしてあります。

XMLHTTPRequestの各メソッド・プロパティも_com_errorを投げる可能性があります。使い回すときには考慮しておいたほうが良いでしょう。

#include <iostream>
#include <boost/algorithm/string/predicate.hpp>
#include <boost/range.hpp>
#include <comdef.h>
#include <comutil.h>
#import <msxml6.dll>

_bstr_t ToBStr(const std::wstring& s)
{
    return _bstr_t(SysAllocStringLen(s.c_str(), s.size()), false);
}

std::wstring ToWString(const _bstr_t& s)
{
    return std::wstring(static_cast<PCWSTR>(s), static_cast<PCWSTR>(s) + s.length());
}

boost::iterator_range<const wchar_t*> BStrRange(const _bstr_t& s)
{
    return boost::make_iterator_range(static_cast<PCWSTR>(s), static_cast<PCWSTR>(s) + s.length());
}

std::wstring GetTinyUrlString(const std::wstring& url)
{
    MSXML2::IXMLHTTPRequestPtr xmlhttp;
    HRESULT hr = xmlhttp.CreateInstance("Msxml2.XMLHTTP");
    if (FAILED(hr))
    {
        throw _com_error(hr);
    }
    xmlhttp->open(L"GET", ToBStr(L"http://tinyurl.com/api-create.php?url=" + url));
    xmlhttp->send();
    _bstr_t result = xmlhttp->GetresponseText();
    if (boost::algorithm::iequals(BStrRange(result), L"error"))
    {
        throw std::runtime_error("Tinyurl returns error");
    }
    return ToWString(result);
}

int main()
{
    HRESULT hr = CoInitialize(0);
    if (FAILED(hr))
    {
        throw _com_error(hr);
    }
    std::wcout << GetTinyUrlString(L"http://ll.jus.or.jp/2008/info/xgihyo") << std::endl;
    CoUninitialize();
}

DouKaku?

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する

Posted feedbacks - C++

Index

Feed

Other

Link

Pathtraq