| |||||||||||
extracting a pattern Posted by neo (The Architect), 28 February 2006 Hi All,After quite a while of not using a comp (for anything much productive) I am writing an expect script again. What I would like to know here is how to get a matched pattern in a variable. I am doing this Code:
But the output (for the 'puts $output') I get is Quote:
I only want the "filename.apfa" from the output. Any idea how I can get this? Posted by technocrat2004 (technocrat2004), 28 February 2006 Hi,Can you try [a-zA-Z0-9]+.fpga in regexp........... Posted by neo (The Architect), 28 February 2006 Quote:
So i did this Code:
but the puts stdout was blank Posted by technocrat2004 (technocrat2004), 1 March 2006 Hi...................Try out this .................. set TelnetIp <ip> spawn telnet $TelnetIp expect "login:" exp_send "test\r"; expect "Password:" exp_send "redhat\r" expect "]$"; exp_send "su -\r" expect "Password:" exp_send "password\r" expect "#" exp_send "ls *.<ext>\r"; expect "#" set output $expect_out(buffer); puts "This is the outpout $output " set output1 $output set output1 [string range $output1 [string first "\n" $output] [string last "\n" $output]] puts "the change output is $output1---" foreach line [split [string trim $output1] "\n"] { if {$line != " "} { set NoElmnts [llength $line] for {set i 0} {$i<$NoElmnts} {incr i} { set check [lindex $line $i] regexp {[a-zA-Z\0-9]+\.tcl} $check match; lappend tcls $match; } } } set i 0; while {$i<[llength $tcls]} { puts "[lindex $tcls $i]" } This page is a thread posted to the opentalk forum
at www.opentalk.org.uk and
archived here for reference. To jump to the archive index please
follow this link.
|
| ||||||||||
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho |