atsushi nagase - ngsdev.org
引越しも落ち着き、嫁と共通の友人達が遊びに来てくれたり
（挨拶して、ほとんど寝てたけど）、ほぼリア充です。
プライベートな用事でGoogle Spreadsheetsのアンケート機能を使う用事があり、
モバイル対応をするために、Perlのモジュールらしきものを殴り書きました。
汚ソースですが、とりいそぎ晒してみます。
Net::Google::Form [SVN Repository]
use Data::Dumper;
use Net::Google::Form;
my $formkey = "ckJybUNHVDZ0cEU0SjZvb0prVDhGS2c6MA..";
my $form = new Net::Google::Form($formkey,"ja");
my $res = $form->parse;
print Dumper($res);
とかをやると、設定した項目がスクレーピングされているのがわかると思います。
cgiがパラメータを受け取ると、そのままGoogleにパラメータを転送します。
モバイル対応するとこのフォームがこんな感じになります。
ちゃんと結果も受け取れている予定です。[シートを見る]
それぞれcheckoutしてご自分の環境でテストしていただければと思います。
（弊社の環境のリソースがないので）
JSONPとかのAPIにして汎用的に使い回す、とかの可能性もあると思うので、ブラッシュアップしてまいります。
コメントする