Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Popcorn Dave's scratchpad

by Popcorn Dave (Abbot)
on Jun 01, 2004 at 23:00 UTC ( #358762=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w # HTML::TokeParser dumper # # quick & dirty code to print out TokeParser output use strict; use HTML::TokeParser; use LWP::Simple; print "Content-type: text/html\n\n"; my $filename = 'temp.html'; open FH, ">$filename"; print FH get(""); close FH; my $stream = HTML::TokeParser->new($filename) || die "Couldn't read HTML file $filename: $!"; while(my $token = $stream->get_token) { if ($token->[0] eq "S"){ print "Token:S 1:$token->[1]\n"; foreach my $key(keys %{$token->[2]}){ print "Key: $key Value: ${$token->[2]}{$key}\n"; } print "3: @{$token->[3]}\n4: $token->[4]\n\n"; } elsif ($token->[0] eq "E"){ print "Token:E 1:$token->[1] 2: $token->[2]\n\n"; } elsif ($token->[0] eq "T"){ print "Token:T 1:$token->[1]\n\n"; } elsif ($token->[0] eq "C"){ print "Token:C 1:$token->[1]\n\n"; } elsif ($token->[0] eq "D"){ print "Token:D 1:$token->[1]\n\n"; } else {print "Unknown token $token\n\n";} }

Installing modules without root and shell
Win32 Printing
Win32 Printing
"Unexpected field value" error with WWW::Mechanize
Running gpg thru IPC, fileno problem
Problems with Tk::SplashScreen and Tk::Splash
how to check for keyboard input
Updating Tk window in real time
issues reading from serial port
PDF::API2 is confusing me to death..
Win32 Directory Sync/Briefcase
Module info viewer
RFC: Proposed tutorial - simple login script using CGI::Application
Log In?

What's my password?
Create A New User
[ambrus]: "could evacuate to open schoolyard and then call or go back to school" => wait what? like power cycling the school building by removing all the kids and then reentering them? how would that fix the problems?
[ambrus]: https://www.xkcd. com/723/ is relevant about earthquakes and phones
[ambrus]: must be this earthquake
[ambrus]: (It's convenient that I live in a place with no earthquakes or hurricanes. One less bad thing to look out for.)

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (11)
As of 2017-01-18 12:40 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (161 votes). Check out past polls.