Posted to tcl by aspect at Fri Feb 27 02:11:55 GMT 2009view pretty
spawn /bin/echo { NODE_Xray 09-02-26 19:01:43 M C20 COMPLD "USER1:READ-WRITE-ADMIN:ACCESS=MULTI,STATUS=PERMANENT" "YYYY:READ-WRITE-ADMIN:ACCESS=MULTI,STATUS=PERMANENT" "XXXX:SUPER-USER:ACCESS=SHELL,STATUS=PERMANENT" "User:READ-WRITE-ADMIN:ACCESS=CRAFT,STATUS=PERMANENT" "User1:READ-WRITE-ADMIN:ACCESS=MULTI,STATUS=ACTIVE" "User11:READ-WRITE-ADMIN:ACCESS=SHELL,STATUS=DISABLED" "User8:READ-WRITE-ADMIN:ACCESS=SHELL,STATUS=AGED" "User9:READ-WRITE-ADMIN:ACCESS=SHELL,STATUS=AGED" ; } while {1} { expect { -re {"([^;\r]+)"\r} { puts "Got a record: [lindex [split $expect_out(1,string) :] 0]" } {;} { puts "All done" break } } }