Yahoo!メールとかWebメーラに数千通とか死ぬほどメールがたまってて、Webインターフェースを使って消していると今世紀中に終わりそうになくて、でもpop3アクセスができる場合。使い捨てプログラムだけど毎回書くのが面倒くさくなった。
#!/usr/bin/expect --set timeout 60
spawn telnet ybbpop.mail.yahoo.co.jp 110
expect "+OK" ; send "USER foobar\r"
expect "+OK" ; send "PASS mogemoge\r"
for {set i 1} {$i < 2000} {incr i} {
expect "+OK"
send "DELE $i\r"
}
send "QUIT\r"
