#!/usr/bin/perl -w
use strict;
# First page of scorecards:
#| #1 | Name: Whitmarsh, Bradley | Rating: 1849 |
|---|
#| Round | Board | Opp. # | Rating | Opponent Name | Won | Lost | Player
Score | Opponent
Score | Spread |
|---|
# Inner round, where we're looking to split:
#| 18 | 1 | 10 | 1426 | Berg, Verna Richards*2 | | | | | |
#| 2nd | cumulative | |
# Top of a scorecard in the middle of the file:
#This report was generated by tsh version 3.320. For more information about tsh, please contact John Chew.
Wilmington DE Madness 2013-08-31 .. -09-02
| #2 | Name: Rosenberg, Mark | Rating: 1739 |
|---|
#| Round | Board | Opp. # | Rating | Opponent Name | Won | Lost | Player
Score | Opponent
Score | Spread |
|---|
# Insert this matter to split the table:
#
This report was generated by tsh version 3.320. For more information about tsh, please contact John Chew.
| #2 | Name: Rosenberg, Mark | Rating: 1739 |
|---|
#| Round | Board | Opp. # | Rating | Opponent Name | Won | Lost | Player
Score | Opponent
Score | Spread |
|---|
my $player_number;
my $player_name;
my $player_rating;
my $break_after_next_line = 0;
my $break_after_this_line = 0;
while (<>)
{
if ($break_after_next_line)
{
$break_after_next_line = 0;
$break_after_this_line = 1;
}
/class=\"number\" colspan=3\>\#(\d+)\Name:\<\/span\>([^\<]+)\Rating:\<\/span\>\s+(\d+)\11\
| Round | Opp. # | Rating | Opponent Name | Won | Lost | Player
Score | Opponent
Score | Spread |
|---|
__EOF__
}
}
#This report was generated by tsh version 3.320. For more information about tsh, please contact John Chew.
| #$player_number | Name: $player_name | Rating: $player_rating |
|---|