Hatena::Groupmobilehacker

tokuhiromの日記 RSSフィード

|

2008-07-30

au の一部端末終了のお知らせ 10:34 au の一部端末終了のお知らせ - tokuhiromの日記 を含むブックマーク はてなブックマーク - au の一部端末終了のお知らせ - tokuhiromの日記 au の一部端末終了のお知らせ - tokuhiromの日記 のブックマークコメント

http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html

をみればわかるとおり

  • JPEG 非対応機種
  • GIF 非対応機種
  • モノクロ機種

は終了。

2008-07-29

Email 受信するスクリプトをかくときのやりかた 17:44 Email 受信するスクリプトをかくときのやりかた - tokuhiromの日記 を含むブックマーク はてなブックマーク - Email 受信するスクリプトをかくときのやりかた - tokuhiromの日記 Email 受信するスクリプトをかくときのやりかた - tokuhiromの日記 のブックマークコメント

package Email::MIME::JP::Mobile;
use strict;
use warnings;
use base qw(Email::MIME);
use Encode ();
use Email::Address::JP::Mobile;


sub mobile {
    my ($self, ) = @_;
    $self->{__jp_mobile} ||= Email::Address::JP::Mobile->new( scalar $self->header('From') );
}

sub force_decode_hook { 1 }
sub decode_hook {
    my ($self, $body) = @_;
    $self->mobile->mail_encoding->decode($body);
}

sub subject {
    my ($self, ) = @_;
    my $subject = Email::Simple::header('Subject');
    $self->mobile->mime_encoding->decode($subject);
}

1;
__END__

=head1 SYNOPSIS

    use Email::MIME::JP::Mobile;
    use Email::MIME::XPath;
    my $mail = Email::MIME::JP::Mobile->new($eml);
    say $mail->subject;
    my $bodynode = $mail->xpath_findnodes('//plain');
    say $bodynode->body if $bodynode;

2008-04-28

WX310SAHTTP Header 11:38 WX310SA の HTTP Header - tokuhiromの日記 を含むブックマーク はてなブックマーク - WX310SA の HTTP Header - tokuhiromの日記 WX310SA の HTTP Header - tokuhiromの日記 のブックマークコメント

DOCUMENT_ROOT: /path/to//htdocs
GATEWAY_INTERFACE: CGI-Perl/1.1
HOME: /home/tokuhiro/
HOSTNAME: jigen
HTTP_ACCEPT: '*/*'
HTTP_ACCEPT_ENCODING: 'deflate, gzip'
HTTP_CONNECTION: close
HTTP_HOST: example.com
HTTP_USER_AGENT: Mozilla/3.0(WILLCOM;SANYO/WX310SA/2;1/1/C128) NetFront/3.3
PATH_INFO: /
PERL_SEND_HEADER: On
QUERY_STRING: ''
REQUEST_METHOD: GET
REQUEST_URI: /

役にたつ情報がなさすぎて泣いた

2008-04-24

表記揺れすぎだよ ez 19:59 表記揺れすぎだよ ez - tokuhiromの日記 を含むブックマーク はてなブックマーク - 表記揺れすぎだよ ez - tokuhiromの日記 表記揺れすぎだよ ez - tokuhiromの日記 のブックマークコメント

もうちょっとなんとかしようぜ……

http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html

モノクロ
6万5千
6.5万
26万
256
1568万
4096
65,535
65,536
65536
242144
262,114
262114
262,144
262144

inventinvent2008/04/25 18:46たしかにすげー見づらいですね・・・(^^;)

2008-04-21

Encode::JP::Mobile が SEGV 14:43 Encode::JP::Mobile が SEGV - tokuhiromの日記 を含むブックマーク はてなブックマーク - Encode::JP::Mobile が SEGV - tokuhiromの日記 Encode::JP::Mobile が SEGV - tokuhiromの日記 のブックマークコメント

use strict;
use warnings;
use Encode;
use Encode::JP::Mobile;

my $src = "\x{3093}\x{306a}\x{306e}\x{30d2}\x{30c8}\x{30b3}\x{30c8}</spa=\"mineStatus\" style=\"background-color:#f4f4f4\"> \x{ec50} <b\n";
encode( 'x-sjis-docomo', $src, sub { "\x{3013}" } );

で SEGV する。

(gdb) bt
#0  0xb7f56410 in ?? ()
#1  0xbf9dd030 in ?? ()
#2  0x00000006 in ?? ()
#3  0x00000520 in ?? ()
#4  0xb7e0a811 in raise () from /lib/tls/i686/cmov/libc.so.6
#5  0xb7e0bfb9 in abort () from /lib/tls/i686/cmov/libc.so.6
#6  0xb7e3fdfa in __fsetlocking () from /lib/tls/i686/cmov/libc.so.6
#7  0xb7e486d0 in free () from /lib/tls/i686/cmov/libc.so.6
#8  0xb7e499ef in malloc () from /lib/tls/i686/cmov/libc.so.6
#9  0x080ac82f in Perl_safesysmalloc ()
#10 0x08118e40 in Perl_bytes_to_utf8 ()
#11 0x080d7696 in Perl_sv_utf8_upgrade_flags ()
#12 0x080d791f in Perl_sv_catsv_flags ()
#13 0xb7b1fb25 in encode_method () from /usr/local/lib/perl/5.8.8/auto/Encode/Encode.so
#14 0xb7b1fdcb in XS_Encode__XS_encode () from /usr/local/lib/perl/5.8.8/auto/Encode/Encode.so
#15 0x080bdac1 in Perl_pp_entersub ()
#16 0x080bc399 in Perl_runops_standard ()
#17 0x08063bfd in perl_run ()
#18 0x0805ffd1 in main ()
|