WWW::Mechanize::Firefoxで簡単スクリーンショット

WWW::Mechanize::Firefox-すごいな mozreplと組み合わせてこんなコードで簡単にスクリーンショットがとれる

#!/usr/bin/env perl use strict; use warnings; use WWW::Mechanize::Firefox; die "usage: $0 <url> <filename>" unless scalar @ARGV == 2; my ($url, $file) = @ARGV; my $mech = WWW::Mechanize::Firefox->new( #tab => 'current', bufsize => 10 * 1024 * 1024, # 10 MB autoclose => 1, ); $mech->get( $url ); my $png = $mech->content_as_png(); my $fh = new IO::File "> $file"; if (defined $fh) { print $fh $png; $fh->close; } print "wrote: $url => $file\n";

perl mechanize-firefox.pl "yahoo.co.jp" yahoo.png

とかってやってとれたスクリーンショットはこんな

write error: filehandle isn't open at /path/to/MozRepl/Client.pm line 186<br />

とかって出たらFirefoxのmozreplが立ち上がってない。

maximum input buffer length exceeded: 1048576 bytes at /path/to/MozRepl/Client.pm line 186<br />

とかって出たらmozreplとperlスクリプトのtelnetのバッファが足りないようなのでgistにあるbufsizeを大きめにとる

PS: 開いてるFirefoxでとったのでMacBookProの解像度を活かしてサイズは(1899 x 1607)になってるのは自慢です

cant use webcam in Firefox3.6.3 + Flash Player 10 + Mac OSX10.6.3

今日、奇妙なFirefoxのバグ？に遭遇

ウェブカムを使うFlashで、Camera.getCameraしたCameraインスタンスをVideo.attachCameraしたりするときに、

Flashの設定パネルが表示されて、
flash security panel
この「許可」をクリックするとカメラから画像がとれるようになるんですが、

Firefox3.6.3 + Flash Player 10,0,42,34 + MacOSX 10.6.3
で、これがクリック出来ないんですね。周りにも何人かいたから近いバージョンでも起こるっぽい。
クリックできないから許可できないので進まない。

HTMLの要素をカットして戻して、とかってやりながら原因を切り分けていくと、、原因、というかこうなおすと直った、のはCSS

CSSの差分はこんな
[css]667c673,674
< width:465px;
-–

/* width:465px; */
text-align: center;
670c677
< width: 465px;
-–
/* width: 465px; */
673c680
< border-right:1px solid #e6e6e6;
-–
/* border-right:1px solid #e6e6e6; */
[/css]

これでFlash Playerからウェブカム使えるかどうか変わるとかありえねー
けど実際ありえた

参考になるだろうと思って最小のHTMLとCSSで再現パターンつくろうと思ったけど他にも周りの要素が関係してそうだったのでめんどくさくて断念。

Firefox3.6.4のbetaでは起こらなかったようなので、一時的な不具合かもしれない。
幸運をいのる。

P.S. macにしましたよ

FITC Amsterdam 2010で話してきました

2/19～2/24だったのでもう1ヶ月になってしまいますね。びびる！
ではプレゼン資料をどうぞ。

Fitc Amsterdam 2010

View more presentations from Masakazu Ohtsuka.

@mariroomがiPhoneから撮ってくれた録画はこちら

slideshareでプレゼン資料からリンクしたい！けどできないので

http://twitter/maaash
http://www.kayac.com/
http://wonderfl.net/

Explore wonderfl
http://wonderfl.net/codes
http://wonderfl.net/tags

Supported libraries
http://wonderfl.net/libraries

Fastest when you want samples
http://www.google.com/search?q=papervision3d
http://wonderfl.net/search?q=papervision3d

Cool idea of actionscriptbible
by Roger Braunstein
http://wonderfl.net/user/actionscriptbible

Collaboration example:
http://wonderfl.net/code/23552f1d7a0805e6a44c812715e89bf6b520e346
http://wonderfl.net/code/6e076415a6d24cbe1c1ce65fb5db5fc9284e9c10
http://wonderfl.net/code/aa66ffdabd0d60b9b0f78bc98d35054860212703
http://wonderfl.net/code/685b39a67b560fd762e25fb805c7cb30780efb78
http://wonderfl.net/code/e40b7ab8221ba0b85632726091fc9211c5f503c4

Flash LIVE Coding
http://wonderfl.net/live

Context Free Art for Actionscript3/Flash

FITC Amsterdam 2010で得た刺激を形にした1つ目

Context Free Artをas3でつくるためのライブラリをつくりました。
sourcecode: http://github.com/mash/ContextFreeArt-AS3
sample:

faster Tree – ContextFreeArtAS3 – wonderfl build flash online

cfdgは本家と同じフォーマットで記述して、
StringをContextFreeArtクラスに渡してaddChildすれば描画されたContextFreeArtを見られる、という簡単仕様。

[as]var art :ContextFreeArt = new ContextFreeArt( cfdg );
addChild( art );[/as]

javascript+CanvasによるContext Free Artの実装があったのでそれを移植する＋Flash向けに最適化（@nutsu ++）しただけですね
jsの方の例はこちら

再帰を繰り返してベクターが多くなってきた時に描画が重くなるのを解決できたらなー
描画しおわった、removeChildされた後に掃除したりするのを追加したら、swcにしてwonderflにライブラリとして追加しようー
ContextFreeArtクラスはただのSprite継承したものなので、ContextFreeArtをBox2Dの世界につっこんだり、マウスとインタラクションしたり、いろいろ試してほしいものです。
まだ対応していないcfdg文法もたくさんあるので、興味をもった方はgithubでforkしてほしいです！

wonderfl本

ブラウザで無料ではじめるActionScript 3.0 ―It’s a wonderfl world―

posted with amazlet at 09.12.23

面白法人カヤックフォークビッツ
ワークスコーポレーション
売り上げランキング: 3750

Amazon.co.jp で詳細を見る

wonderfl本、出ましたね。自分は、「はじめに」と「１－１」を担当させていただきました。
これからFlashやActionscript3をはじめたい、という初心者にとっては本当に役に立つサービス＆本だと思いますので、よろしければ読んでみてください。

DBICでcreate_relatedをoverrideする

DBICを使っています。
User has_many Histories
っていう関係のテーブルUserとHistoryがあった時に、
Userの行それぞれに対して、最新のHistoryをUserの行の中にキャッシュしておくと便利なときがあります。
そんな時に、$user->add_to_histories ってやった時に $userもupdateしたい、という話です。

CREATE TABLE user (id unsigned not null auto_increment, \*\*中略\*\*, history unsigned not null);
CREATE TABLE history (id unsigned not null auto\_increment, user unsigned not null, \*\*中略\*\*, created\_date datetime not null);

UserのRowクラスは

package Schema::Row::User;
中略
\_\_PACKAGE\_\_->has_many( histories => &#8216;Schema::Row::History&#8217;, &#8216;user&#8217; );  

HistoryのRowクラスは

package Schema::Row::History;
中略
\_\_PACKAGE\_\_->belongs_to( user => &#8216;Schema::Row::User&#8217; );  

UserのRowクラスに追加されるadd_to_$relを使って

$user->add\_to\_histories({ action => &#8216;marriage&#8217; });  

とかってやるわけです。

HistoryのRowを追加する時にcreated_dateを意識せずに設定したいときとかに、
HistoryのRowクラスに↓って書いておきます

sub insert {
my $self = shift;
$self->created\_date( DateTime->now ) unless $self->created\_date;
$self->next::method(@_);
return $self;
}

これはよくやるんですが、同じタイミングでUserの方もupdateしたいって時に、

UserのRowクラスに、

sub create_related {
my $self = shift;
my ($rel, $col\_data) = @\_;
my $ret = $self->next::method(@_);
if ( $rel eq &#8216;histories&#8217; ) {  
$self->update({ history => $ret->id }); # とか、$col_data->{action} とか  
}
return $ret;
}

って書いておくと、便利だわー

typester++

[perl]32bit/64bitでメモリ使用量違うけど

同じperlのコードを、2台の違うサーバで動かした時に、やたらメモリ量が違うなぁと。

サーバ1: 50MBくらい
サーバ2: 200MBくらい

なんでだろと調べる

サーバ1で

perl -V  
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:  
Platform:  
osname=linux, osvers=2.6.26-1-686, archname=i486-linux-gnu-thread-multi  
...  
use64bitint=undef, use64bitall=undef, uselongdouble=undef  
...  
Compiler:  
cc='cc', ccflags ='-D\_REENTRANT -D\_GNU\_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D\_LARGEFILE\_SOURCE -D\_FILE\_OFFSET\_BITS=64',  
optimize='-O2 -g',  
cppflags='-D\_REENTRANT -D\_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'  
ccversion='', gccversion='4.3.2', gccosandvers=''  
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234  
d\_longlong=define, longlongsize=8, d\_longdbl=define, longdblsize=12  
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off\_t='off\_t', lseeksize=8  
alignbytes=4, prototype=define[/code]

サーバ2で  

Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
Platform:
osname=linux, osvers=2.6.26-1-vserver-amd64, archname=x86_64-linux-gnu-thread-multi
…
use64bitint=define, use64bitall=define, uselongdouble=undef
…
Compiler:
cc=‘cc’, ccflags =‘-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64’,
optimize=‘-O2 -g’,
cppflags=‘-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include’
ccversion=‘’, gccversion=‘4.3.2’, gccosandvers=‘’
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype=‘long’, ivsize=8, nvtype=‘double’, nvsize=8, Off_t=‘off_t’, lseeksize=8
alignbytes=8, prototype=define

longsize, ptrsizeとかが違う  
32bit → 64bit！

<a href="http://iandeth.dyndns.org/mt/ian/archives/000624.html" onclick="javascript:_gaq.push(['_trackEvent','outbound-article','http://iandeth.dyndns.org/mt/ian/archives/000624.html']);">モジュールをuseした際のメモリ使用量(増加量)を調べてみる</a>で紹介されていたGTopのスクリプトを使ってみる

サーバ1で  

% script/gtop.pl ‘use Catalyst’
10.5M : use Catalyst
% script/gtop.pl ‘use DBIx::Class’
396k : use DBIx::Class
% script/gtop.pl ‘use Moose’
Moose does not export its sugar to the ‘main’ package.
4.6M : use Moose
[/code]fmfm

サーバ2で
“` % script/gtop.pl “use Catalyst”
42.6M : use Catalyst
% script/gtop.pl “use DBIx::Class”
920k : use DBIx::Class
% script/gtop.pl “use Moose ()”
17.9M : use Moose ()
[/code]!!!

搭載してるメモリ量は4GBとかで変わらないから、
リスクが無ければ32bitでコンパイルしたperlを使ったりするもんなのだろうか？

IO::AIOお試し

AnyEvent/Coro期がわたしにもやってきましたよ。ファイル書き込みを非同期でやりたいのでIO::AIO試してみました。

Coro::AIO使えばcallback形式ではなく綺麗に書けるようだけれどとりあえずIO::AIOの書き方で。

use AnyEvent::AIO; use IO::AIO; use Fcntl; warn "[pre]"; my $num = 0; my $max = 9; for $num (0..$max) { async_append( "temp.txt", "$num\n" ); } warn "[aft]"; my $cv = AnyEvent->condvar; sub async_append { my ($file, $text) = @_; my $fh = aio_open( $file, O_WRONLY|O_CREAT|O_APPEND, 0644, sub { my $fh = shift or die "open $file failed: $!"; warn "[opened]$text"; my $ret = aio_write( $fh, 0, length($text), $text, 0, sub { $_[0] or die "couldnt write $text: $!"; warn "[wrote]$text"; aio_close( $fh, sub { warn "[closed]$max:$text"; $cv->send if $max==0; $max--; } ); }); } ); } $cv->recv;

結果は、↓とかってなるから非同期的な感じだなぁっていうのはわかるんですが、 AnyEventの $cv->send , $cv->recv をとっぱらっても同じように動く。なぜ？ Event loop integrationっていうのはそれが無い状態に対して、何してくれるの？

perl try/anyevent_aio.pl
[pre] at try/anyevent_aio.pl line 5.
[aft] at try/anyevent_aio.pl line 13.
[opened]0
[opened]1
[opened]2
[opened]3
[opened]4
[opened]5
[opened]6
[opened]7
[opened]8
[opened]9
[wrote]0
[wrote]1
[wrote]2
[wrote]4
[wrote]6
[wrote]3
[wrote]7
[wrote]5
[wrote]8
[closed]9:0
[closed]8:1
[closed]7:2
[closed]6:4
[closed]5:6
[closed]4:3
[closed]3:7
[closed]2:5
[wrote]9
[closed]1:8
[closed]0:9

going to Adobe MAX NA 2009

I’m going to Adobe MAX NA 2009!

to give a talk about
wonderfl build flash online, the browser-based Actionscript IDE and community
http://wonderfl.net/

at the FITC Unconference room
http://www.fitc.ca/events/schedule/?event=100

Wednesday October 7, 10:30 – 11:00

might be hard to wake up to attend a 10:30 session if you’re having beer whole night long,
but FITC Unconference room has a FREE BEER for you,
so why not have one in the morning?