unknownplace.org

やったら眠い。帰って朝早く来よう。

てなわけで退社。

出社。

退社。

10日ぶりくらいに PC 再起したら encfs で

fusermount: failed to open /dev/fuse: No such file or directory

とか言う fuse のエラーが出てマウントできなくて困った。秘密鍵とかいろいろ encfs 内に保存してるからマウントできないとなんもできない。

そいや最近 fuse アップグレードしてたきもするなぁ。それが原因かしら。

いろいろぐぐったところ

sudo mknod /dev/fuse -m 0666 c 10 229 

として何かよくわからないファイルを作ったら動くようになった。。

ちょっとしたスクリプトなんかかくときに、いちいち FileHandle とか使うのめんどいので、シンプルに読み書きできるものを探してみたんだけど、なんかなさげなので作った。

無駄に wantarray とか使ってみたりしてるので、

my $text = File::Data::Simple->read('test.txt');

とか書くと普通に読み込んだデータを返し、

my @lines = File::Data::Simple->read('test.txt');

とか書くとデータを読み込んで、改行で分割した配列を返す。

やべー、ぼのぼのが GyaO で見えるよ。

出社。

これを忘れていた。何も出力しないフィルタ。

[% clmemo.reset %]

とかしてて、RSS に変なの紛れ込んでた。

[% clmemo.reset | null %]

とかしなきゃだめ。( clmemo は Class::DBI::Iterator オブジェクト )

gorou さんがうごかねっつってるので触ってみた。

#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use FileHandle;
use Readonly;

Readonly my $url     => 'http://bulkfeeds.net/app/terms.xml';
Readonly my $api_key => 'my key';

my $ua = LWP::UserAgent->new;

# read test.txt
my $text = q{};
if ( my $fh = FileHandle->new('test.txt') ) {
    $text = join q{}, <$fh>;
    $fh->close;
}
else {
    die 'text read error';
}

# call api
my $res = $ua->request(POST $url, [ apikey => $api_key, content => $text, ]);

if (not $res->is_success) {
    die $res->status_line;
}
else {
    print $res->status_line, qq{\n\n};
    print $res->content;
}

で、結果

200 OK

<?xml version="1.0" encoding="utf-8"?>
<terms>
<term>クリッパーズ</term>
<term>臥</term>
<term>NBA</term>
<term>プレシーズン</term>
<term>初戦</term>
<term>開幕</term>
<term>田</term>
<term>アシスト</term>
<term>リバウンド</term>
<term>サンズ</term>
<term>ユーイング</term>
<term>リビングストン</term>
<term>95</term>
<term>勇</term>
<term>4Q</term>
<term>俊敏</term>
<term>＞？</term>
<term>無得点</term>
<term>得点</term>
<term>ベンチ</term>
</terms>

動いてる！ あーこれおもしろいかも。

退社。飲みに行っていたので遅くなった。