Skip to content

Instantly share code, notes, and snippets.

@miyagawa
Created May 1, 2009 22:21
Show Gist options
  • Save miyagawa/105298 to your computer and use it in GitHub Desktop.
Save miyagawa/105298 to your computer and use it in GitHub Desktop.
% perl -MLWP::Simple -MLocale::Country -e 'for (all_country_codes) { $u = sprintf "http://www.southparkstudios.com/episodes/notavailable/sorry_%s01.jpg", uc $_; $i = LWP::Simple::get($u); warn $u if $i }'
http://www.southparkstudios.com/episodes/notavailable/sorry_DK01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_GB01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_SE01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_NO01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_FR01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_FI01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_AU01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_NZ01.jpg at -e line 1.
http://www.southparkstudios.com/episodes/notavailable/sorry_CA01.jpg at -e line 1.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment