Mercurial > hg > lukkari
comparison parsedata.pl @ 164:2654466d2655
Oops, 10L.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 23 Aug 2015 19:16:17 +0300 |
| parents | 3790db4eb29b |
| children | 1d17dbb864ff |
comparison
equal
deleted
inserted
replaced
| 163:3790db4eb29b | 164:2654466d2655 |
|---|---|
| 435 | 435 |
| 436 | 436 |
| 437 ### Parse through the HTML document node tree to find the data we need | 437 ### Parse through the HTML document node tree to find the data we need |
| 438 | 438 |
| 439 # Skip zero position this way (can't use foreach here) | 439 # Skip zero position this way (can't use foreach here) |
| 440 my $q = $$node{"nodes"}; | |
| 440 for (my $i = 1; $i < scalar(@{$q}); $i++) | 441 for (my $i = 1; $i < scalar(@{$q}); $i++) |
| 441 { | 442 { |
| 442 my $d = $$q[$i]{"nodes"}; | 443 my $d = $$q[$i]{"nodes"}; |
| 443 if (defined($d)) | 444 if (defined($d)) |
| 444 { | 445 { |