Quick Perl script: Scrape your photos from Twitpic
I've been following Noah Everett the creator of twitpic on Twitter. Although he provides a great service it does appear to be a one man show - there is every chance he could get fed up and walk away - I doubt the terms of service give the user any way of getting their photos back if that happened.
Most people use twitpic for throw-away snapshots posted from their handheld device but I use a twitter account with protected updates to create a timeline of my daughter growing up. I photograph her day to day on my iPhone and as my twitter client doesn't offer an option, the photos end up on twitpic. These photos are memories I am not prepared to lose.
Below is the script i run once a week to ensure my photos are backed up.
use strict; use utf8; use LWP::Simple; use XML::Simple; use Data::Dumper; use Date::Parse; use Date::Format; use XML::DOM; my $content = get("http://twitpic.com/photos/darrenferguson/feed.rss"); die "Couldn't get it!" unless defined $content; my $xml = XMLin($content); foreach my $item (@{$xml->{channel}->{item}}) { my $link = $item->{link}; my $date = $item->{pubDate}; $date = str2time($date); $date = time2str('%Y-%m-%d_%H-%M-%S_', $date); $link =~ m|.*/(.*$)|; my $id = $1; my $html = get($link); if(defined $html) { while($html =~ s|(<img.*?>)||ism) { my $tag = $1; if($tag =~ m|class\=\"photo-large\"|) { $tag =~ m|src\=\"(.*?)\"|; my $src = $1; my $img_data = get($src); if(defined $img_data) { my $fn = "$date-$id.jpg"; if(!(-f $fn)) { open FILE, ">$date-$id.jpg"; binmode FILE; print FILE $img_data; close FILE; } } } } } }