とりあえず動くこと最優先。実務に使うにはやばい出来です。Moose使ってNet::APNSなモジュールに書き直してる最中。 phpのサンプルが文字コードに触れてなかったので、その部分手を抜いたら大やけど。pushで送られるpayloadはunicodeのようです。まぁ、当たり前なんだろうけどな。 JSON::XSでutf8のフラグを操作しないとiPhone側にalertが出ないのを確認済み。 #!/usr/local/bin/perl use warnings; use strict; use Encode qw/encode decode/; use Socket; use Net::SSLeay qw/die_now die_if_ssl_error/; use JSON::XS; use YAML::Syck; #YAML $YAML::Syck::ImplicitTyping =