Re: LWP::Simple question

There is a JS source code jumbler that jumbles email addresses but on screen it's just the normal text. I wanted to see how I could take just the test and therefor prove that the JS encoder was useless.

I was thinking it would be easy but I guess I was wrong.

Comment on Re: LWP::Simple question

Replies are listed 'Best First'.
Re^2: LWP::Simple question by Popcorn Dave (Abbot) on Apr 21, 2005 at 03:35 UTC
Why not scrape it and find out? Javascript should be between <script> and </script> tags, shouldn't it? That should be fairly easy to do a simple regex for and pull what you're after. Something like: `use strict; use LWP::Simple; my @page = split("\n", get('http://www.myurl.com')); my $index = 0; do{$index++} while $page[$index] != /script/; # increment until first +script tag while ($page[$index] != m!/script!){ #print out script lines until clo +sing script tag print "$page[$index]\n"; $index++; }` [download] But I have to wonder what is preventing you from just looking at the source of the page in a text editor? :) Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: LWP::Simple question
by Popcorn Dave (Abbot) on Apr 21, 2005 at 03:35 UTC

Something like:

use strict;
use LWP::Simple;

my @page = split("\n", get('http://www.myurl.com'));
my $index = 0;
do{$index++} while $page[$index] != /script/; # increment until first 
+script tag
while ($page[$index] != m!/script!){ #print out script lines until clo
+sing script tag
       print "$page[$index]\n";
       $index++;
       }
[download]

But I have to wonder what is preventing you from just looking at the source of the page in a text editor? :)

Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.

[reply]
[d/l]