{"id":180,"date":"2005-01-08T14:36:02","date_gmt":"2005-01-08T13:36:02","guid":{"rendered":"http:\/\/frenchfragfactory.net\/ozh\/archives\/2005\/01\/08\/deleting-all-mails-with-a-simple-perl-script\/"},"modified":"2007-05-09T23:39:28","modified_gmt":"2007-05-09T21:39:28","slug":"deleting-all-mails-with-a-simple-perl-script","status":"publish","type":"post","link":"https:\/\/planetozh.com\/blog\/2005\/01\/deleting-all-mails-with-a-simple-perl-script\/","title":{"rendered":"Deleting all mails with a simple Perl script"},"content":{"rendered":"

I have a few alternative mail accounts, mostly used when I need to register with a site I don't trust and thus when I'm expecting spam. Checking last night, I noticed that 3 accounts were filled up with a grand total of 3500 spams, so I wrote a small Perl script, using Net::POP3<\/a>, to delete all mails in an account.
\n<\/p>\n

\n\n\t\t
\n\n\t\t
\n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
perl<\/div>\n\n\t\t\n\t\t
\n\n\t<\/div>\n\t\n\t
\n\t\t
  1. #!\/usr\/bin\/perl<\/span><\/div><\/li>\n
  2. use<\/span> Net::<\/span>POP3<\/span>;<\/span><\/div><\/li>\n
  3. if<\/span> (<\/span>@<\/span>ARGV<\/span> <<\/span> 2<\/span>)<\/span> {<\/span><\/div><\/li>\n
  4.     print<\/span> "Usage : $0 <login> <pass>\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n
  5.     exit<\/span> 0<\/span>;<\/span><\/div><\/li>\n
  6. }<\/span><\/div><\/li>\n
  7.  <\/div><\/li>\n
  8. print<\/span> "Going to delete ALL mail from account $ARGV[0] ! ctrl-c to abort\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n
  9.  <\/div><\/li>\n
  10. sleep<\/span> 3<\/span>;<\/span><\/div><\/li>\n
  11. $pop<\/span> =<\/span> Net::<\/span>POP3<\/span>-><\/span>new<\/span>(<\/span>'pop.free.fr'<\/span>)<\/span>;<\/span><\/div><\/li>\n
  12. die<\/span> "Couldn\u00e2\u20ac\u2122t log on to server"<\/span> unless<\/span> $pop<\/span>;<\/span><\/div><\/li>\n
  13.  <\/div><\/li>\n
  14. $total<\/span> =<\/span> $pop<\/span>-><\/span>login<\/span>(<\/span>$ARGV<\/span>[<\/span>0<\/span>]<\/span>,<\/span>$ARGV<\/span>[<\/span>1<\/span>]<\/span>)<\/span>;<\/span><\/div><\/li>\n
  15. die<\/span> "No mails or couldn\u00e2\u20ac\u2122t connect !"<\/span> unless<\/span> $total<\/span>;<\/span><\/div><\/li>\n
  16.  <\/div><\/li>\n
  17. print<\/span>(<\/span>"Deleting $total mails ...\\n<\/span>"<\/span>)<\/span>;<\/span><\/div><\/li>\n
  18.  <\/div><\/li>\n
  19. for<\/span>(<\/span>$i<\/span> =<\/span> 0<\/span>;<\/span> $i<\/span><<\/span>$tot<\/span>;<\/span> $i<\/span>++<\/span>)<\/span> {<\/span><\/div><\/li>\n
  20.     $pop<\/span>-><\/span>delete<\/span>(<\/span>$i<\/span>)<\/span>;<\/span><\/div><\/li>\n
  21. }<\/span><\/div><\/li>\n
  22.  <\/div><\/li>\n
  23. $pop<\/span>-><\/span>quit<\/span>(<\/span>)<\/span>;<\/span><\/div><\/li>\n
  24.  <\/div><\/li>\n
  25. exit<\/span> 1<\/span>;<\/span><\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"

    Spammed ? Delete all mails in a click !<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,9,27],"class_list":["post-180","post","type-post","status-publish","format-standard","hentry","tag-code","tag-perl","tag-spam"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/180","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=180"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/180\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=180"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=180"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=180"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}