Shell Programming and Scripting

!#/usr/bin/expect
set count 0 
set bcount 0 
set fcnb 923
set ifil [open "new" r]
while { [gets $ifil host] >=0 } {
set timeout 4
log_user 0
set err [open $fcnb.errlog w]
set oseed [open "seed" w]
   spawn ping -c1 $host
    expect { 
          "rtt" {
                set count [expr $count + 1] 
                puts "$count $host ping ok"
                puts $oseed "$host"
                #puts $oseed "$host\n"
                } 
        default {
                set bcount [expr $bcount + 1]
                puts "Error : $bcount $host ping nok"
                puts $err "$bcount $host ping nok"
                #continue
                }
           }
} 
close $ifil
close $oseed
close $err
# End ping while 
#sleep 5
puts "==============================================="
puts "loop through the file of \"good\" pings"
puts "==============================================="
set iseed [open "seed" r]
while { [gets $iseed ip] >=0 } {puts $ip}
close $iseed