Il codice che segue, torna utile per tutti quegli account che ci si ritrova, con poca capacit\u00e0 di gestione (leggi che hanno webmail discutibili), e che non avete mai avuto la voglia, o l’interesse di configurare seriamente nel vostro client di posta preferito.<\/p>\n
Il caso lampante, \u00e8 la mail assegnata d’ufficio dal gestore telefonico, ad esempio.<\/p>\n
Ho scritto al volo questo codice per cancellare i 1000 e rotti messaggi giacenti (onde evitare che un “invia ricevi” dal telefonino si traducesse in una strenna natalizia per il mio gestore telefonico), e poi, l’ho ritoccato un istante, per dargli una parvenza d’interfaccia. Si pu\u00f2 evolvere, anche se ha senso il giusto (se vi serve un client vero, conviene configurarne uno esistente, si fa prima), ma per scriptare\u00a0 un mass delete, pu\u00f2 essere utile.<\/p>\n
Bando alle ciance, il codice:<\/p>\n
my $host = 'popmail.server.provider';<\/p>\n my $user = 'username@provider';<\/p>\n my $pass = 'password';<\/p>\n # end configure<\/p>\n my $opt = shift;<\/p>\n if (!defined($opt)) { printf (\" list: show subject messages\\n\");<\/p>\n printf (\" del: delete all messages\\n\");<\/p>\n exit;<\/p>\n }<\/p>\n my $pop = Net::POP3->new($host) || die \"Can't connect to $host\\n\";<\/p>\n $pop->login($user,$pass) || die \"Can't authenticate. Check your information\\n\";<\/p>\n my @stat = $pop->popstat();<\/p>\n my $kb = $stat[1]\/1000;<\/p>\n print \"you have $stat[0] message\\n\";<\/p>\n print \"and $kb Kbytes disk usage\\n\";<\/p>\n if ($opt eq \"del\") { foreach my $msgnum (keys %$msgnums) { } foreach my $msgnum (keys %$msgnums) { my @sbj = grep {\/^Subject\/} @$msg;<\/p>\n print @sbj;<\/p>\n } $pop->quit;<\/p>\n if ($opt eq \"del\") { <\/code><\/p>\n Manco a dirlo, le tre variabili $host, $user, e $pass vanno acconciate all’abbisogna. Ho un p\u00f2 truccato rispetto al parametro da passare: in realt\u00e0 qualunque parametro produce un listing tranne quello di cancellazione.<\/p>\n Produce un risultato di tipo:<\/p>\n Il codice che segue, torna utile per tutti quegli account che ci si ritrova, con poca capacit\u00e0 di gestione (leggi che hanno webmail discutibili), e che non avete mai avuto la voglia, o l’interesse di configurare seriamente nel vostro client di posta preferito. Il caso lampante, \u00e8 la mail assegnata d’ufficio dal gestore telefonico, ad […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10,12],"tags":[33,32,34,25,16],"class_list":["post-27","post","type-post","status-publish","format-standard","hentry","category-tensioni","category-ti-ricordi","tag-mail","tag-perl","tag-pop3","tag-programmazione","tag-vecchi-post"],"_links":{"self":[{"href":"https:\/\/www.tenzione.it\/index.php?rest_route=\/wp\/v2\/posts\/27","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.tenzione.it\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.tenzione.it\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.tenzione.it\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.tenzione.it\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=27"}],"version-history":[{"count":1,"href":"https:\/\/www.tenzione.it\/index.php?rest_route=\/wp\/v2\/posts\/27\/revisions"}],"predecessor-version":[{"id":28,"href":"https:\/\/www.tenzione.it\/index.php?rest_route=\/wp\/v2\/posts\/27\/revisions\/28"}],"wp:attachment":[{"href":"https:\/\/www.tenzione.it\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=27"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.tenzione.it\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=27"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.tenzione.it\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=27"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nuse Net::POP3;<\/code><\/p>\nuse strict;<\/code><\/p>\n# configure this!!!<\/p>\n
\nprintf (\"usage: \\n\");<\/p>\n
\nmy $msgnums = $pop->list;<\/p>\n
\n$pop->delete($msgnum);<\/p>\n
\n} else {
\nmy $msgnums = $pop->list;<\/p>\n
\nmy $msg = $pop->get($msgnum);<\/p>\n
\n}<\/p>\n
\nprint \"deleted $stat[0] message\\n\";<\/p>\n}
\nprint \"done.\\n\";<\/code><\/p>\n
\nmizio@haziel:~$ perl cleanvoda.pl list
\nyou have 0 message
\nand 0 Kbytes disk usage
\ndone.
\nmizio@haziel:~$ perl cleanvoda.pl del
\nyou have 0 message
\nand 0 Kbytes disk usage
\ndeleted 0 message
\ndone.<\/code><\/p>\n <\/code><\/p>\n","protected":false},"excerpt":{"rendered":"