Posted to tcl by stever at Fri Apr 11 19:11:08 GMT 2008view raw

  1. #!/usr/bin/env tclkit
  2.  
  3. #magdi.iso is 1.1gig, Im running 8gig RAM
  4. set a [open /sata/magdi.iso RDONLY]
  5.  
  6. fconfigure $a -translation binary
  7.  
  8. proc ld {a} {
  9. set ::b [read $a]
  10. return ""
  11. }
  12.  
  13. ld $a
  14.  
  15. puts [string length $::b]