asked on

how to parse stubborn html page with funny symbol?

Hello,

I have a html page that I want to parse but cannot get my regex's to do it. I'm a newb when it comes to regex. How can I change the 1/2 symbol to be a number .5? Here is a sample of the input and output I want:

input file: (this same format keeps repeating N times)
<tr>
 <td>6/14/2000</td>
 <td align="center">-125</td>
 <td align="center">-120</td>
 <td align="center">(919)</td>
 <td>SEA Mariners</td>
 <td align="center">4</td>
 <td align="center"></td>
 <td align="center">1</td>
 </tr>
 <tr>
 <td>11:05 AM</td>
 <td align="center">10½ov</td>
 <td align="center">10½ov</td>
 <td align="center">(920)</td>
 <td>KC Royals</td>
 <td align="center">5</td>
 <td>Final© [<a href="Game.Asp?ID=29573">Details</a>]</td>
 <td align="center">9</td>
 </tr>
 <tr>
 <td colspan="8"><hr></td>
 </tr>



<tr>
 <td>6/14/2000</td>
 <td align="center">11½ov</td>
 <td align="center">12un</td>
 <td align="center">(921)</td>
 <td>CHI White Sox</td>
 <td align="center">11</td>
 <td align="center"></td>
 <td align="center">7</td>
 </tr>
 <tr>
 <td>4:05 PM</td>
 <td align="center">-145</td>
 <td align="center">-160</td>
 <td align="center">(922)</td>
 <td>CLE Indians</td>
 <td align="center">4</td>
 <td>Final© [<a href="Game.Asp?ID=29577">Details</a>]</td>
 <td align="center">15</td>
 </tr>
 <tr>
 <td colspan="8"><hr></td>
 </tr>

sample output:

date: 6/14/2000
time: 11:05 am
open: -125
close: -120
run open: 10.5
run close: 10.5
visitor: SEA Mariners
visitor score: 4
home: KC Royals
home score: 5
margin: 1
total: 9

date: 6/14/2000
time: 4:05 pm
open: -145
close: -160
run open: 11.5
run close: 12
visitor: CHI White Sox
visitor score: 11
home: CLE Indians
home score: 4
margin: 7
total: 15

Thanks for any help experts!

sapbucket

kandura

doesn't

s/½/.5/g;

work for you then?

sapbucket

ASKER

How do I grab what is in between the tags on a per line basis?

output like this would work great for me:
6/14/2000,-125,-120,(919),SEA Mariners,4,1,11:05 AM,10½ov,10½ov,(920),KC Royals,5,Final© [<a href="Game.Asp?ID=29573">Details</a>],9

How can I go through each line and grab what is inbetween the tags and ouput as a CSV string to a file?

This seems like such a typical problem. My brain hurts when I look at it. :)

<tr>
<td>6/14/2000</td>
<td align="center">-125</td>
<td align="center">-120</td>
<td align="center">(919)</td>
<td>SEA Mariners</td>
<td align="center">4</td>
<td align="center"></td>
<td align="center">1</td>
</tr>
<tr>
<td>11:05 AM</td>
<td align="center">10½ov</td>
<td align="center">10½ov</td>
<td align="center">(920)</td>
<td>KC Royals</td>
<td align="center">5</td>
<td>Final© [<a href="Game.Asp?ID=29573">Details</a>]</td>
<td align="center">9</td>
</tr>
<tr>
<td colspan="8"><hr></td>
</tr>

ozo

#!/usr/bin/perl
use strict;
use warnings;
use HTML::Parser;
my @p;
my @c;
my $p = HTML::Parser->new(api_version => 3,
start_h => [\&start_handler, "self,tagname"],
end_h => [\&end_handler, "self,tagname"],
);
sub start_handler{
my($self, $tag) = @_;
if( $tag eq "td" ){
@p=();
$self->handler(text => \@p, "dtext");
}
}
sub end_handler{
my($self, $tag) = @_;
if( $tag eq "td" ){
$self->handler(text => '');
push @c,join'',map{@$_}@p;
@p=();
}
}
$p->parse(<<END
<tr>
<td>6/14/2000</td>
<td align="center">-125</td>
<td align="center">-120</td>
<td align="center">(919)</td>
<td>SEA Mariners</td>
<td align="center">4</td>
<td align="center"></td>
<td align="center">1</td>
</tr>
<tr>
<td>11:05 AM</td>
<td align="center">10½ov</td>
<td align="center">10½ov</td>
<td align="center">(920)</td>
<td>KC Royals</td>
<td align="center">5</td>
<td>Final© [<a href="Game.Asp?ID=29573">Details</a>]</td>
<td align="center">9</td>
</tr>
<tr>
<td colspan="8"><hr></td>
</tr>
END
);
print join",",@c;
print "\n";

ASKER CERTIFIED SOLUTION

ozo

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

sapbucket

ASKER

ozo, thanks for the code. IS this a useful idiom for parsing? Or is this a one-shot design? Seems like I can toolbox this one...

ozo

HTML::Parser is very flexible, but it's applicability to other designs would obviously epend on what those other designs are.

sapbucket

ASKER

from CPAN:

"XML::Dumper dumps Perl data to XML format. XML::Dumper can also read XML data that was ***previously dumped*** by the module and convert it back to Perl."

I am concerned about "previously dumped". The XML source is from a .NET environment, not XML::Dumper. I use XMLDocumentReader class to read and write XML files in VB.NET. They are not too complicated. Any experience with using XML::Dumper with xml files *not* generated by XML::Dumper?

The way it is stated on CPAN I would think it would't work with xml generated by a non-XML::DUMPER.

ozo

use XML::Simple;

my $ref = XMLin([<xml file or string>] [, <options>]);

my $xml = XMLout($hashref [, <options>]);

sapbucket

ASKER

please look here:
https://www.experts-exchange.com/questions/21400035/need-help-using-XML-Simple-XMLOut-and-XML-Simple-XMLin.html