2010年08月04日13:00 カテゴリLightweight Languages perl - 勝手に添削 - ターミナル内で画像を表示するコマンド 面白い。 ターミナル内で画像を表示するコマンド - デー でもスクリプトが「重い」。 なんでaview起動するのにふつうにsystem()使わないで手でfork()しとんの? つーか、それ以前に一時ファイルって必要? というわけで書き直したらこうなった。 #!/usr/bin/env perl use 5.00801; use strict; use warnings; use Imager; my @cmd = qw/aview -reverse/; my $file = shift or die "usage: $0 image\n"; my $img = Imager->new(); $img->read( file => $fil