io language を触ってみたよ 3

Image オブジェクト : 特定の幅より小さい画像*1を削除する

$ cat removeImage.io
dirPath := args at(1) // args at(0) にはスクリプト名が入ってる
width := args at(2) asNumber

dir := Directory clone setPath(dirPath)
image := Image clone
dir files foreach(f,
    if(f name endsWithSeq(".jpg"),
        if(image open(f path) width < width,
            "Deleting #{f name}" interpolate println // Sequence interpolate で #{} を変数展開
            f remove
        )
    )
)
$ io removeImage.io ./ 500

*1:jpg 限定になってるけど