Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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 = ";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.

Replies are listed 'Best First'.
Re^2: Adding 2 + 2
by ambrus (Abbot) on May 24, 2012 at 08:24 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://600991]
[LanX]: White House indicates it could find funds to train 1 million teachers ...
[LanX]: wait
[LanX]: White House indicates it could find funds to train and arm 1 million teachers!
LanX relieved...
[Discipulus]: too much guns in schools? throw more gun at schools! professors in arms

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2018-02-23 11:32 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (301 votes). Check out past polls.