日常メモ帳

知ってる人はしってますが俺はPerl病です、趣味でも仕事でも、「ちょっとやってみよう」
と思うとまずPerlでコーディングしてます。いい加減JAVAにすればいいのに

ってことで、モバイルPCだろうが何だろうがPerlを入れてる俺ですが
発売日にかったAndroidWALKMAN（まだ従来型携帯電話なので初Android端末）にも
とりあえず、Perl入れてみました。というか、当たり前のように用意されてるのね
FTPサーバも入れたので、PCで作ったスクリプトをFTP転送して実行、という
普通にWEBサーバやってるのと変わらない手順に

とりあえず、どのくらいの速度で動くのか確認したかったので
こんな感じの……

#perl
$t=time();
for($i=0;$i<10000000;$i++)
{
	$a+=sqrt($i);
}
print "time:".(time()-$t);

コードで速度を測ってみました。
ちなみに、自宅のC2D E8200のPCで４秒
このWEBサーバが動いている「さくらのVPS512」で２秒（あれ？　はやい）
で、AndroidWALKMANの結果が27秒でした。
流石に全然遅いけど、まったく使えないってほとじゃないし、
ちょっとした、ツールくらいには十分なりそう
さらに面白そうなのがAndroidのAPIからのデータの入出力も出来るところ

さっそく

#perl
use Android;
 
sub dumphash {
   my $hash = pop;
   my $key, $down;
   for $key (keys %$hash) {
      if ($key eq "result") {
         $down = $hash->{$key};
         for $key (keys %$down) {
            print "result ==> $key => $down->{$key}\n";
         }
      }
   }
}
 
my $a = Android->new();
my $r;

$r=$a->wifiGetConnectionInfo();
print "wifiGetConnectionInfo .".$r->{result}."\n";
&dumphash ($r);

こんな感じにしてみると、wifiの接続状態を取得してきました。
面白い！
ほかにも、いろいろステータスをとってくるみたいですが、なんか
上手くとってこれない物が大半……ちょっと原因は不明
カメラ搭載の機種なら、カメラ画像とかも撮ってくるみたいんなんですが
こいつには非搭載なんで、その辺は試せず

他にもインプットボックスみたいなのも作れるっぽいので、簡単なアプリなら
わざわざSDK落としてJAVAでコード組まなくても、これで十分そう
楽しみが増えた