Image::Imlib2 を使ってサーバ上の画像を一括圧縮ブログを自宅サーバから sakuta VPS へ移行しましたが、1.5G プランなのでディスク容量は 50GB しかありません。デジタル一眼で撮った写真を今までは気兼ねなくバシバシとアップロードできていたのですが、移行した時点でディスク使用量が 30% 近くまで行ってしまいました。 # df -k Filesystem 1K-ブロック 使用 使用可 使用% マウント位置 /dev/hda2 17634636 7249188 9444844 44% / /dev/hda1 101086 11918 83949 13% /boot tmpfs 771224 0 771224 0% /dev/shm /dev/hdb1 30961664 10937264 18451640 38% /home 今後を考えると画質を見た目変わらない程度で圧縮をかけておきたいなぁ〜と思って、perl script を
