Shell Programming and Scripting

#!/usr/bin/expect --
set timeout 600
match_max 10000
stty -echo
log_user 0
spawn -noecho sudo -u introot /home/introot/bin/twssh [lindex $argv 0]
expect root
send_user "Entering [lindex $argv 0]\r"
send "uname\r"
log_user 1
expect "Linux" {send "for i in `df -lPh |sed s/\%// |sed '1d' |awk '{if (\$(NF-1) >= 88) print \$NF}'`; do echo \" \$i has `df -hlP \$i | tail -1 | awk '{print \$2, of space,\$(NF-1)}'` is full\" && find \$i -xdev -type f -size +10000k -exec stat -c\"%U %n %s\" {} \\; | sort -nrk 3 | head -40; done\recho NOW_DONE\r"
} "SunOS" {send "for i in `df -kl |sed s/\%// |sed '1d' |awk '{if (\$(NF-1) >= 88) print \$NF}'`; do echo \" \$i has `df -kl \$i | tail -1 | awk '{print \$2, of space,\$(NF-1)}'` is full\" && find \$i -xdev -type f -size +10000k -exec ls -l {} \\; | sort -nrk 5 | head -40; done\recho NOW_DONE\r"
}
set NewLineChar "\r"
expect {
    $NewLineChar { append dbscntl $expect_out(buffer); exp_continue}
    "NOW_DONE" { append dbscntl $expect_out(buffer) }
}
puts $dbscntl
send "exit\r"
expect eof

expect "NOW_DONE"
send "exit\r"
expect eof

regsub -all {.[2J} $dbscntl "" dbscntl

couldn't compile regular expression pattern: brackets [] not balanced
    while executing
"regsub -all {.[2J} $dbscntl "" dbscntl"

regsub -all {\u001b\[..} $dbscntl "" dbscntl