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
        }
    }
}