Posted to tcl by aspect at Fri Feb 27 02:11:55 GMT 2009view raw

  1. spawn /bin/echo {
  2.  
  3. NODE_Xray 09-02-26 19:01:43
  4. M C20 COMPLD
  5. "USER1:READ-WRITE-ADMIN:ACCESS=MULTI,STATUS=PERMANENT"
  6. "YYYY:READ-WRITE-ADMIN:ACCESS=MULTI,STATUS=PERMANENT"
  7. "XXXX:SUPER-USER:ACCESS=SHELL,STATUS=PERMANENT"
  8. "User:READ-WRITE-ADMIN:ACCESS=CRAFT,STATUS=PERMANENT"
  9. "User1:READ-WRITE-ADMIN:ACCESS=MULTI,STATUS=ACTIVE"
  10. "User11:READ-WRITE-ADMIN:ACCESS=SHELL,STATUS=DISABLED"
  11. "User8:READ-WRITE-ADMIN:ACCESS=SHELL,STATUS=AGED"
  12. "User9:READ-WRITE-ADMIN:ACCESS=SHELL,STATUS=AGED"
  13. ;
  14. }
  15.  
  16. while {1} {
  17. expect {
  18. -re {"([^;\r]+)"\r} {
  19. puts "Got a record: [lindex [split $expect_out(1,string) :] 0]"
  20. }
  21. {;} {
  22. puts "All done"
  23. break
  24. }
  25. }
  26. }