Perl-fu ++

I been working third shift at work for the past week until Thursday night/Friday morning. One of the things that needs to be done on 3rd shift is to check up on the backup for all the DNCS’s. Each DNCS has its own backup server with a web interface on it to check the status of the backups. Normally this is a pretty trivial task, but when i have to check roughly forty of these things…yea right. So after a night of hacking around with WWW:Mechanize and HTML::Tableextract, I have a script that will connect to each of the web interfaces, scrape the status of tonight’s backup and dump them to an text file for review. All i need to do now is whip up a fancy progress meter thingie and its all done.

Leave a Comment!

Write your comment