#!/usr/bin/expect
set timeout 300
set list [open ./test.txt r]
set b [exec date +%Y%m%d -d "-2 days"]
while { [gets $list line ] >=0 } {
set ip [lindex $line 0]
set dir [lindex $line 1]
set user [lindex $line 2]
set password1 [lindex $line 3]
spawn sftp $user@$ip:$dir
expect "*password:"
send "$password1\r"
expect "Changing to: $dir"
send "rm *${b}*\r"
expect "sftp>"
send "\r"
expect "Removing*"
send "bye\r"
}
close $list