use aliased 'Evangeline::Util::Image'; my $img = Image->new($_) or die $!; my $orig_name = $img->name; my $id = $img->digest('SHA-256'); my $md5 = $img->digest('MD5'); my ($width, $height, $size, $ext) = $img->get(qw/width height size ext/…

はてなが豆まき*1してるあいだ、私はLANケーブル買ってきて、モデムとルータを2階に移して配線して、ついでに豆まきもしてました。ふぅ、少し疲れちゃった。 *1:メンテナンスともいう