#!/usr/bin/env perl<\/span><\/div> <\/div>
use<\/span> LWP::<\/span>UserAgent<\/span>;<\/span><\/div>use<\/span> HTTP::<\/span>Request<\/span>;<\/span><\/div>use<\/span> UNIVERSAL::<\/span>dump<\/span>;<\/span><\/div>use<\/span> XML::<\/span>Simple<\/span>;<\/span><\/div>use<\/span> Data::<\/span>Dumper<\/span>;<\/span><\/div>use<\/span> YAML<\/span> qw(LoadFile)<\/span>;<\/span><\/div> <\/div>
$config<\/span> =<\/span> LoadFile<\/span> "$ENV{HOME}/.posterous"<\/span>;<\/span><\/div> <\/div>
my<\/span> $req<\/span> =<\/span> HTTP::<\/span>Request<\/span>-><\/span>new<\/span>(<\/span>GET<\/span> =><\/span> "http://posterous.com/api/getsites"<\/span>);<\/span><\/div>$req<\/span>-><\/span>authorization_basic<\/span>(<\/span>$config<\/span>-><\/span>{<\/span>core<\/span>}<\/span>-><\/span>{<\/span>user<\/span>},<\/span> $config<\/span>-><\/span>{<\/span>core<\/span>}<\/span>-><\/span>{<\/span>pass<\/span>});<\/span><\/div> <\/div>
$content<\/span> =<\/span> LWP::<\/span>UserAgent<\/span>-><\/span>new<\/span>-><\/span>request<\/span>(<\/span>$req<\/span>)<\/span>-><\/span>content<\/span>;<\/span><\/div>$content<\/span> =~<\/span> s/name/title/g<\/span>;<\/span><\/div>print<\/span> $content<\/span>;<\/span><\/div>print<\/span> Dumper<\/span> XMLin<\/span>(<\/span>$content<\/span>);<\/span><\/div> <\/div><\/pre><\/div>\n \n <\/div>\n\n