Skip to content

Instantly share code, notes, and snippets.

@JEEN

JEEN/for-backglass.pl

Created July 7, 2010 11:35
Show Gist options
  • Save JEEN/466586 to your computer and use it in GitHub Desktop.
Save JEEN/466586 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
for-backglass.pl
use LWP::Simple;
my $content = get('http://gist.github.com/raw/466580/b6d2433feabd1557e72398df88dd337023a272eb/gistfile1.phtml');
my @links = $content =~ /href="(http:\/\/.*\?IM=[^"]+)"/g;
print join("\n", @links);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment