• worker は なんか文字列を受け取って、10秒待ってから、log.txt というファイルに受け取った文字列と共に今の時刻を追加で書き込む
• client は 実行されると dispatch_background メソッドを使って結果を受け取るのを待たずにタスクをディスパッチする。この場合にタスクへの引数は実行された時刻

というサンプルにしてみた。まずは worker 。

!/usr/bin/perl

use strict;
use warnings;

use Gearman::Worker;
use Storable;
use IO::File;

my $worker = Gearman::Worker->new;
$worker->job_servers(qw|localhost|);
$worker->register_function(
    sum => sub {
        my $job = shift;
        sleep(10);
        &work( $job->arg );
    }
);
$worker->work while 1;

sub work {
    my $client_time = shift;
    my $text        = "client:$client_time worker:" . time();
    my $io          = IO::File->new();
    $io->open( 'log.txt', 'a' ) or die $!;
    $io->print("$text\n");
    $io->close;
}

次に client のソース。

#!/usr/bin/perl

use strict;
use warnings;

use Gearman::Client;
use Gearman::Task;

my $client = Gearman::Client->new;
$client->job_servers(qw|localhost|);

$client->dispatch_background( "sum", time(), {} );

gearmand を立ち上げて、worker も実行。 そんでおもむろに client を適当に連射。 するとちゃんとキューとして受け付けて10秒待ってから書き込んでくれてる様子。

client:1204818581 worker:1204818591
client:1204818599 worker:1204818609 #連射スタート
client:1204818600 worker:1204818619
client:1204818601 worker:1204818629
client:1204818601 worker:1204818639
client:1204818602 worker:1204818649
client:1204818602 worker:1204818659
client:1204818603 worker:1204818669
client:1204818668 worker:1204818679 #連射終わる
client:1204818715 worker:1204818725

次は TheSchwartz を使ってみる。

--- Letter.pm.org       2008-02-21 00:36:56.000000000 +0900
+++ Letter.pm   2008-02-21 12:29:39.000000000 +0900
@@ -4,6 +4,7 @@
 use Imager;
 use Imager::Matrix2d;
 use vars qw($VERSION);
+use utf8;

 $VERSION = '0.05';

@@ -67,12 +68,28 @@
                $self->getFont()->transform(matrix=>$m);
        }
        # draw letter - using Imager::String method
+       my $font = $self->getFont;
+       my $x = $o{x} + $self->getLeftBearing();
+       my $y = $o{y} + $self->getGlobalAscent() - $self->getAscent();
+       if($self->getText() eq "ー" ){
+           my $m1 = Imager::Matrix2d->rotate(degrees => 270);
+           my $m2 = Imager::Matrix2d->reflect(axis => 'x');
+           my $matrix = $m1 * $m2;
+           $font->transform(matrix => $matrix);
+           my $bbox = $font->bounding_box( string => $self->getText(),
+                                           size=>$font->{size});
+           $x = $x + $bbox->total_width / 2;
+           $y = $y - $self->getAscent() + $self->getAscent() / 4;
+       }else{
+           my $matrix = Imager::Matrix2d->rotate(degrees => 0);
+            $font->transform(matrix => $matrix);
+       }
        $o{target}->string(
                %{$o{others}},
-               x => $o{x} + $self->getLeftBearing(),
-               y => $o{y} + $self->getGlobalAscent() - $self->getAscent(),
+               x => $x,
+               y => $y,
                text => $self->getText(),
-               font => $self->getFont(),
+               font => $font,
                utf8 => 1, vlayout => 0, align => 0
        ) or die $o{target}->errstr;
        # draw baseline position - for debug

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use URI::Escape;
use XML::Atom::Feed;
use URI;

my $query = "ダーリン 桑田 佳祐";
my $url = "http://gdata.youtube.com/feeds/api/videos?vq=" .
    URI::Escape::uri_escape_utf8($query);
my $feed = XML::Atom::Feed->new(URI->new($url));
my @entries = $feed->entries;
die "" unless $entries[0];
my $video_id;
foreach my $link ( $entries[0]->link ) {
    my $href = $link->href;
    if($href =~ m!www.youtube.com/watch\?v=(.*)$!){
        $video_id = $1;
    }
}

print $video_id;

• Merge Key Language-Independent Type for YAML?Version?1.1
• RedHanded ≫ YAML's Merge Key

lang/perl/plagger/assets/plugins/Filter-EntryFullText/

以下に、エロYAMLあげたよ。 Browseだとここ→/lang/perl/plagger/assets/plugins/Filter-EntryFullText - CodeRepos::Share - Trac

まず、Kwiki::HatenaAuthを使う場合は、Kwiki::Theme::Hatenaを使った方が無難。 次に、Kwiki::Edit::HatenaAuthRequiredを有効にしたい場合、 config.yamlに必ず

hatenaauth_required_pages:
- hoge

というようにhatenaauth_required_pagesを設定しておかないとエラーがでる。 yamlの書き方は「-」の先頭には空白があってはいけない。 ちなみにこれで指定したページは、はてな認証でログインした状態ではなくてもEditできるという意味。俺は逆に捉えていた。

また、Hatena仕様にしてかつKwiki::CoolURIを使ったときに、日本語のタイトルページを作ると、 本文だけが文字化けるという現象が起こる。これは、何故か、はてなキーワードを本文の中に入れると解決する。いろいろバッドノウハウがあるがKwikiはなかなか楽しい。

#!/usr/bin/perl
use strict;
use warnings;
use Imager;

my $file = 'picture.jpg';
my $image = Imager->new->read(file => $file);
$image = $image->convert(preset=>'grey');
$image->write(file => 'output.jpg');