Skip to content

Instantly share code, notes, and snippets.

@miyagawa
Created May 10, 2009 00:02
Show Gist options
  • Save miyagawa/109451 to your computer and use it in GitHub Desktop.
Save miyagawa/109451 to your computer and use it in GitHub Desktop.
#!/usr/bin/perl
use CGI;
use LWP::Simple;
my $js = LWP::Simple::get("http://home.ingdirect.com/js/accounttype.js");
my %rates = ($js =~ /(type_.*?_apy)='([\d\.]+)'/g);
use Data::Dumper;
print CGI::header('text/html'), "<html><body>";
for my $type (keys %rates) {
print qq(<li class="type" id="$type">$rates{$type}</li>);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment