Results for tag "ソフトウェア"

オブジェクト至高プログラミング

今週検証したコードに感銘を受けたので記録しておく。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<?php
class Hoge{
    function __construct() {
        $this->aaa();
        $this->bbb();
        // ひたすら己のメソッド実行
    }
    function aaa(){
        // 100行以上
    }
    function bbb(){
        // 100行以上
    }
    // こんなメソッドいっぱい!
}
new Hoge();
?>

コンストラクタにひたすらメソッドを書いてnewするだけ。最強!!

[Perl]ドコモのiメニュー検索のキーワードを取得する

ドコモ2009夏モデルのリファラー出力記念。
ドコモのiメニューで検索した時の検索キーワードを取得します。(たぶん)
$uriの値は実際はちょっと異なります。

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
use Perl6::Say;
use URI;
use URI::Escape;
use URI::Query;
 
my $uri = 'http://docomo.ne.jp/?key=%41%42%43';
 
my $query = URI->new($uri)->query;
my $key = (URI::Query->new($query)->hash)->{key};
say uri_unescape($key);

ドコモのドメインじゃなくてもkeyパラメータがあったらデコードしちゃいますが・・・

Windows7にすぐ手を出すのはやめた方がいい

mixiでWindows7の発売日についての日記を見てたら、すぐ買うとかVista買ったのにというのが多いけど、すぐ買うと色々トラブルに見舞われると思うよ。

OSとしては良くできてるし速いと思うけど、ドライバやウィルスチェックソフトのようなシステムファイルを扱うソフトの対応状況はまだまだ。

DellのPCでBuild7000英語版を動かしてるけど今こんな状況。

・IEEE1394カード動かず
・サウンドドライバは正常と出てるが音出ない
・インストールできないフリーのウィルスチェックソフトが結構あった
・CD/DVD仮想ドライブを作るソフトも限定される
・ウィンドウを複数立ち上げてると、たまに変なチラツキが発生する

Windows7標準搭載のPCを買うなら上記のような事はまぁないと思うけど、今使ってるPCにインストールしようとしている人は周辺機器とかアプリが使えるのか調べてからにした方がいい。

[Perl]Mooseで携帯キャリア判定モジュール

自作の携帯サイト用アクセス解析ソフト「Episode」の携帯キャリア判定モジュールをMooseでリファクタリングしてみた。色々改善の余地があるコードだけどとりあえず動くので良しとする。

HashRef[Str]型のdefaultの指定方法にめっちゃ苦労した。default = {a=>’a’}ってできなくて、無名サブルーチン使わなきゃいけないらしい。

MooseX::AttributeHelpersを組み込めば、この辺が楽になるのかね?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
package Episode::Request::UserAgent;
use Moose;
use Perl6::Say;
 
has 'useragent' => (
    is  => 'rw',
    isa => 'Str',
    default => '',
    required => 1,
);
 
 
has 'regex' => (
    is  => 'ro',
    isa => 'HashRef[Str]',
    default => sub {
        {
            docomo   => '^DoCoMo',
            au       => '^(?:KDDI|UP\.Browser\/.+?)-(.+?) ',
            softbank => '^(?:SoftBank|Semulator)',
        }
    },
    required => 1,
);
 
 
__PACKAGE__->meta->make_immutable;
no Moose;
 
sub is_mobile {
    my $self = shift;
    $self->useragent =~ $self->regex->{docomo} ||
    $self->useragent =~ $self->regex->{au} ||
    $self->useragent =~ $self->regex->{softbank}
    ? 1 : 0;
}
 
sub AUTOLOAD {
    my $self = shift;
    our $AUTOLOAD;
    my $pkg = __PACKAGE__ . '::is_';
    $AUTOLOAD =~ s/$pkg//;
    my $regex = $self->regex->{$AUTOLOAD};
    $self->useragent =~ m|$regex| ? 1 : 0;
}
1;
 
my $ua = 'KDDI-HI31 UP.Browser/6.2.0.5 (GUI) MMP/2.0';
my $req = new Episode::Request::UserAgent;
$req->useragent($ua);
say 'mobile? : ',   $req->is_mobile;
say 'docomo? : ',   $req->is_docomo;
say 'au? : ',       $req->is_au;
say 'softbank? : ', $req->is_softbank;

結果

mobile? : 1
docomo? : 0
au? : 1
softbank? : 0

[Java]IISログの時間を日本時間にする

こんな感じでいいのだろうか。拡張性は一切考慮しなかった。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
import java.util.*;
import java.text.*;
 
public class IISLog {
 
    private static final DateFormat FORMAT = new SimpleDateFormat("yyyy-MM-dd HH:mm:ss");
 
    public static String JST(String time) throws ParseException {
        Date date = FORMAT.parse(time);
        Calendar cal = Calendar.getInstance();
        cal.setTime(date);
        cal.add(Calendar.HOUR, 9);
        return FORMAT.format(cal.getTime());
    }
 
    public static void main(String[] args) {
        try {
            System.out.println(IISLog.JST("2008-08-27 23:00:00"));
        } catch (ParseException ex) {
            ex.printStackTrace();
        }
    }
}