Posted to tcl by mjanssen at Thu Oct 25 01:15:55 GMT 2007view raw

  1. set re {^$}
  2. fconfigure stdout -encoding binary -translation binary -buffering full
  3.  
  4. proc filter {re argv} {
  5. foreach file $argv {
  6. set line 0
  7. set f [open $file r]
  8. fconfigure $f -encoding binary -translation binary
  9. while {![eof $f]} {
  10. set buf [gets $f]
  11. if {[regexp -- $re $buf]} {puts $buf}
  12. }
  13. close $f
  14. }
  15. }
  16. filter $re $argv
  17.