how to use ping in expect script

Question

Need assistance while i want to ping server if got reply then proceed with script and if no reply go again to previous step where we fetch IP from hosts.txt

#Setting up Variables set timeout 5 set fid [open ./hosts.txt r] set contents [read -nonewline $fid] close $fid #Grabbing Password to be used in script further stty -echo send_user -- "Enter the Password: " expect_user -re "(.*)\n" send_user "\n" stty echo set pass $expect_out(1,string) foreach host [split $contents "\n"] { set timeout 5 spawn ping $host expect { "Reply" {puts "$host Is Up"} "Request" {puts "$host Is Down"} } 

Answer 1

Match the "%packet loss" in the summary of ping, like in the script below. As a side note, you mentioned that if the host is not reachable, control should be given back to the foreach loop, which would read the next host, but in your script, you actually try to do something upon failure, so I included a failure option as well.

 # Procedure to be called for each # reachable host proc handleHost {host} { do things... expect eof } # To be called for unreachable hosts proc hostFailed {host} { puts "$host is not reachable." } #Setting up Variables set timeout 5 set fid [open ./hosts.txt r] set contents [read -nonewline $fid] close $fid #Grabbing Password to be used in script further stty -echo send_user -- "Enter the Password: " expect_user -re "(.*)\n" send_user "\n" stty echo set pass $expect_out(1,string) foreach host [split $contents "\n"] { set timeout 5 spawn -noecho ping -q -w 1 -c1 $host expect { " 0% packet loss" { handleHost $host } eof { hostFailed $host } } }