Posted to tcl by mjanssen at Thu Oct 25 01:07:50 GMT 2007view pretty

set re {^$}
fconfigure stdout -encoding binary -translation binary
foreach file $argv {
        set line 0
        set f [open $file r]
        fconfigure $f -encoding binary -translation binary
        while {[gets $f buf] >= 0} {
                if {[regexp -- $re $buf]} {puts $buf}
        }
        close $f
}