Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Problems with TableExtract

by johnnywang (Priest)
on Jan 10, 2006 at 05:58 UTC ( #522100=note: print w/ replies, xml ) Need Help??


in reply to Problems with TableExtract

Your script has many errors in it, it looks like you copy/pasted several things together. Please run your script before posting so we can concentrate on the problem part. That being said, the following works:

use strict; use LWP::Simple; use HTML::TableExtract; my $page = get("http://www.dhl-usa.com/TransitTimes/USTTimeRslts.asp?n +av=TransitTimes&oz=53213&oc=1&oh=ORD&dz=60056&dc=1&dt=1/9/2006&tt=1&h +y=&zn=2&am=Y"); my $te = HTML::TableExtract->new( depth => 3, count => 3); $te->parse($page); foreach my $ts ($te->table_states) { foreach my $row ($ts->rows) { print join(',', @$row), "\n"; } } __OUTPUT__ Service,Arrival Date and Time,Days in Transit* DHL Next Day 10:30 am (Letter ű 150 Pounds),Tuesday,áJaná10,á2006 áBy 10:30 A.M.,1 DHL Next Day 12:00 pm (Letter ű 150 Pounds),Tuesday,áJaná10,á2006 áBy Noon,1 DHL Next Day 3:00 pm (Letter ű 150 Pounds),Tuesday,áJaná10,á2006 áBy 3:00 P.M.,1 DHL 2nd Day Service (Letter ű 150 Pounds),Wednesday,áJaná11,á2006 áBy 5:00 P.M.,2 DHL Ground Service (Letter ű 150 Pounds),Tuesday,áJaná10,á2006 áBy end of day,1


Comment on Re: Problems with TableExtract
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (10)
As of 2015-07-02 10:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (33 votes), past polls