Posted to tcl by bassliner at Mon Nov 22 22:24:02 GMT 2010view raw

  1. [armin@blackbox:~] cat refill.tcl
  2. #!/bin/sh
  3. # \
  4. exec tclsh "$0" "$@"
  5.  
  6. set file [open fsb.rfl]
  7. set file_data [read $file]
  8. puts feddich
  9. close $file
  10.  
  11. set rx2 [open Trh01_SoleSide_080_eLAB.rx2]
  12. set rx2_data [read $rx2]
  13. puts feddich2
  14. close $rx2
  15.  
  16. set rx2_data_stripped [string range $rx2_data 1024 2048]
  17.  
  18. puts [string match *${rx2_data_stripped} $file_data]
  19. [armin@blackbox:~]
  20.