okay. i am slowly getting there. you are correct, the delimiter should have been in
"<hr>\r"such that it was slurping the entire file in with
'<hr>\r'.
however, as it stands now, the following changes to the program only reads in the first record and then quits without looping to the next record:
my $allDocs = do
{
local $/ = "<hr>\r";
<>;
};
my $rxExtractDoc = qr
{(?xms)
(<h4>Award\s\#(\d+)(.*?)<hr>)
};
while ($allDocs =~ m{$rxExtractDoc}g )
{
my %award = (); # award hash
$award{'record'}= $1;
$award{'A_awardno'}= $2;
$award{'entireaward'}= $3;
# $award{'entireaward'}=~ s/\n//g;
$award{'entireaward'}=~ s/\t//g;
$award{'entireaward'}=~ s/\r//g;
if ($award{'entireaward'} =~ m{Dollars Obligated(.*?)\$([^<]+?)<
+}gi){
$award{'B_dollob'} = $2};
{the rest of the code continues.} But it doesn't loop to the next record once it finishes extracting the first record? And I am not sure why? Thoughts?
Thank you so much again. This is very helpful (and I am at wits end as is) :-)
Also, someone mentioned that there is no input....I have the file on the command line such that <> refers to it. Is that not correct?
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.