All the Perl that's Practical to Extract and Report
use Perl Log In
domm (4030)
(email not shown publicly)
http://domm.plix.at/
Just in case you like to know, I'm currently full-time father of 2 kids, half-time Perl hacker, sort-of DJ, bicyclist, no longer dreadlocked and 33 years old
I'm also head of Vienna.pm [pm.org], maintainer of the CPANTS [perl.org] project, member of the TPF Grants Commitee [perlfoundation.org] and the YAPC Europe Foundation [yapceurope.org].
I've got stuff on CPAN [cpan.org], held various talks [domm.plix.at] and organised YAPC::Europe 2007 in Vienna [yapceurope.org].
saving time by spending time
During the holidays I finally took the time to implement some time-savers:
- fetchattach.pl: I read my mail using mutt, which running at a machine in the office. Most of the time I'm working from home. Everthing's fine, except if I have to view an attachment. Previously, I had to save the file to my office machine, remember the filename (or fiddle around with the mouse to copy it) and issue a longish scp command (hopefully with the correct filename / the filename still in the paste buffer)
scp domm2.zsi.at:~/somefile.bar .
The whole procedure takes about 30 seconds.
Thats about 20 characters. So I wrote a small script using Net::SHH and NET::SCP that looks into a special folder on my office machine, downloads everything from this folder into cwd and deletes the files from the special folder. It's about 300 characters long, and I probably typed twice as much due to debugging etc. It took me about 30 minutes. So, my investment will pay off after aprox 60 downloads, or about 2 months (at one attachment a day, which is aproximitly the amount I get). (Uhm, writing about it now probably cost me another month, or the other way round, I get a 'free' journal entry every month) - marking SPAM as read: I get all spams caught by spamassasin delivered into one maildir called Spam (surprisingly..). Previously, I opened the folder up in the morning, at hit CTL-r until all mails where marked read (so they'll be moved to an archive folder by another script I wrote some time ago..). That was annoying. So I took some time to study some manpages and did a bit of googling to discover:
SHIFT-t new
;w rTag all new mail, set all tagged mail to read.
Easy, saves another minute a day... - TODO: Script to remove spam from mailinglist I admin: I assume this will mean some screenscraping and fiddling with cookies.
Or is it a BUG?"
"Let's call it an accidental feature. :-)"
--Larry Wall in <6909@jpl-devvax.JPL.NASA.GOV>
That last script actually exists... (Score:2)
...but I never took the time to post it on CPAN.
I wrote it because clicking through 60+ spam a day in the only mailing-list I lazily admin is too much for me. So I wrote the script as an example in my series of articles (in French) about LWP and friends: LWP [mongueurs.net], Avanced LWP stuff [mongueurs.net] and WWW::Mechanize [mongueurs.net].
The script you want is section 3 of the third article: Un exemple pas à pas : le formulaire de Mailman [mongueurs.net].
I'd have put it on CPAN, but then I'd have to maintain it, add useful features like interactive selectio
Re:That last script actually exists... (Score:1)
One funny thing: Contrary to your intended audience I need the Perl code to make sense of your (french) writing (as I don't speak french)