about sitehisaichi5518がPerlを書いて、つついて、イチャイチャするブログ。最近はnode.jsもやってる。

hisaichi5518プロフィール/ twitter管理人twitter/ rss feedRSS feed

permalinkRakudo Star が出ました。

遂にでた。まだ試してないけど、見た限りPerl5 とは別物だと思う。
でも、正規表現がすげーとか聞きました。今度、試そうと思う。

rakudo’s star at master – GitHub
http://github.com/rakudo/star

2010年7月31日 土曜日 perl (No comments) Tags:

permalink今日知ったPerlのしょうもない事。

こんな書き方出来るんだなあ、と今日はじめて知った。面白い。

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
use LWP::UserAgent;
use File::Basename;

my $image_url = "http://～.jpg";
my $filename  = "/testtset".(fileparse($image_url, qr/\.[^.]*/))[2];

open my $fh, '>', $filename or die "$filename:$!";
my $res = LWP::UserAgent->new->get($image_url, ':content_cb' => sub { print $fh shift });
close $fh;
unlink $filename unless $res->is_success;

2ji girlに実装中のどエロモードが本当にどエロで面白い。

2010年7月18日 日曜日 perl (No comments) Tags:

permalink2ji girlの特別モードを考えてる。

前、エロ画像だけ集める方法思いついた！と書いたけど、需要があるようなのでそれを2ji girlに取り込む事にしました。
二次元のエロ画像を集めるのはいいんだけど、単純に取り込むだけだと”萌える画像を集める”に反してしまうので、特別モードとして色々提供しようかなあと思い、色々考えたのでメモメモ。

必要があれば、追記していきます。

特別モードの特徴

  • 一日一回更新
  • 画像保存期間は一日
  • tumblrは使わない

特別モードの種類

  • 三次モード
  • どエロモード
2010年7月17日 土曜日 雑記 (No comments) Tags:

permalinkRe: よし、今から根こそぎ作るわ

めんどかったので、最初から書き直した。参考程度に。
make_url()に引数として、URI->new(“最初のページURL”);を渡す。
とりあえず偶然目についた同人の樹（thumb.phpで表示出来る猫バス2）に対応してみた。それ以外はめんどいので対応してない。
via http://bbs.aniota.info/r.cgi/material/1278578670/118

注意

  • 33ページ目の画像を取ってくる
  • nekobus()のreturnらへんがごちゃごちゃしてるけど、他に思いつかないから気にしない。
  • 一応、自分でurl作成して携帯で表示確認したけど、めんどくてちゃんとめいでんたんの日記を読んでないので間違えてても泣かない。
  • cgiで実行するなら、headerのcontent_typeを追加する事。このままだと500エラーが出る。
  • URIは標準モジュールじゃない。例えば、codepadにこのコードを貼っつけてもエラーが出る。

以下、コード

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
use strict;
use warnings;

use MIME::Base64 qw/encode_base64/;
use URI;

# 根こそぎmode(未対応)
sub nekosogi { die 'error' }

# 猫バスmode
sub nekobus {
    my $u = shift;
    my $c = $u->query_param('c') || "";
    my $d = $u->query_param('d') || "";

    if($c && $d){
        my $img_url = './gazou/'.$c.'/'.$d.'/033.jpg';
        # queryをリセット
        $u->query_form({});
        return $u->as_string.'thumb.php?tm='.encode_base64('a:2:{s:1:"p";s:'.length($img_url).':"'.$img_url.'";s:1:"s";d:240;}');
    }
    else {
        die 'error';
    }
}

sub make_url {
    return nekobus shift;
    # nekosogiは未対応の為、振り分けなし。
}

print make_url(URI->new("http://ac-max.com/doujinki/main/?c=090128&d=004"));
2010年7月14日 水曜日 perl 4 comments

permalinkWeb中央図書館ってなんなんやー!

大学でマーケティング論とかそんな名前の授業を聞いていて、Web中央図書館2の方向を変えるべき時だなぁと思いました。
ただの”小説(詩)投稿サイト”という枠組みの中だけで生き残っていくのは難しいし、ありふれてるので今の大手には勝てない。

そこでWeb中央図書館ってなんなんやーと考えてみた結果、今後は”Web中央図書館”という名前らしいサイトにしようかなと思います。

ついでにパブーというサイトが最近公開されました。
電子書籍作成だけでなく、販売も出来るらしいので、興味がある人は是非。

このパブーで漫画だったり写真集みたいなのを公開している人がいて、すげーと思ったわけですが、そういえばWeb中央図書館でもこういう使い方が出来るのにこういう使い方してる人いないなーと思いました。画像表示機能を使えば、漫画や写真集だって投稿しようと思えば出来るんです。
こういう機能の使い方を変えれば出来る事だったり、新しいアイディアは全部ウェルカムなんですが、誰もやらないという悲しい現実。管理人の僕がユーザーの皆さんを引っ張らなきゃいけないなと思いました。

雑記 (No comments) Tags:

permalink2ji girl4になりました。

実は、アップデートしてました。
中身をオレオレフレームワークからMojoliciousで完全に書きなおしたのとデザインが少し変わったくらいです。更新をもっと多くしたいと思いつつ、そこは放置してます。

最近、オフ会に行くと2ji girl使ってるよ！と言ってくれたりする人がいて幸せです。萌え萌えキュンなサービスなので説明する時とか恥ずかしいのだけど、使ってもらえると嬉しいです。ありがとう。

2ji girlは、モバイルにも対応してます。むしろ僕はモバイルでよく見てるよ！
2ji girl
よろしくお願いします！

2010年7月11日 日曜日 リリースノート (No comments) Tags:

permalink面白い事出来ないかなと考えてた。

アニヲタの集いのニヤリが復活して、2ji girlをリンクしてもらえたので、アクセス数がすごい勢いで伸びてます。まさにアニヲタ砲。
そんな2ji girlを眺めているとやっぱり少し違うなーって画像が出てくる。色んな人の萌えるものを集める事が目的だったのでそれでいいんだけど、ちょっと面白くない。
これをどうにか出来ないか考えてたら、ふとエロ画像だけ集める方法を思いついた。今と全てが違うので、今のところやる気が起きないけど、気が向いたら実装しようと思う。今は、Web中央図書館3と2ji girl4を頑張ろう。

2010年7月9日 金曜日 雑記 (No comments)