Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
Perl: the Markov chain saw
 
PerlMonks  

Re: Adding 2 + 2

by webfiend (Vicar)
on Feb 19, 2007 at 23:42 UTC ( #600991=note: print w/ replies, xml ) Need Help??


in reply to Adding 2 + 2

Yet another look at it...

#!/usr/bin/perl use warnings; use strict; use LWP::Simple; use HTML::Parser; # 'print' URL to save a smidge of bandwidth my $url = "http://perlmonks.org/?displaytype=print;node_id=31832"; if (my $page = get($url)) { my $parser = HTML::Parser->new( api_version => 3 ); $parser->handler( start => sub { return if shift ne 'title'; my $self = shift; $self->handler( text => sub { my $title = shift; # Only ready for 4-function math with integers if ($title =~ m#((\d+) (\+) (\d+))#) { print "$1 = ", eval("$2 $3 $4"), "\n"; } }, 'dtext' ); $self->handler( end => sub { shift->eof if shift eq 'title' ; }, 'tagname,self' ); }, 'tagname,self' ); $parser->parse($page); } else { print "Unable to fetch '$url' for some reason.\n"; }

I chose to leave the database layer out of it this time.


Comment on Re: Adding 2 + 2
Download Code
Re^2: Adding 2 + 2
by ambrus (Abbot) on May 24, 2012 at 08:24 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://600991]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (12)
As of 2014-04-18 09:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (464 votes), past polls