Here is a small change to concat the next line to the current if the current has <B in it (you may even want to change this to
$_ .= <> if /</; just to be sure). Should solve your prob and avoids slurping in the entire file at once. You are also dropping the text on the bluebird line preceding the <bluebird> tag, not sure if this is what you want.
updated
updated so it actualy reads its data from its data block!
Regards,
R.
#!/usr/local/bin/perl -w
use strict;
LINE: while ( <DATA> ) {
$_ .= <DATA> if /<B/;
next LINE if (m/\.{4}<B.*ird>/s .. /(\+\=\+)$/);
print;
}
__END__
(Example 1)
This is Example 1
This is some text....<Bluebird>..
MBAAAEgAAAQAB
blaah,blaah
=+=+=+=+=+=+=+=+=+=+=+
(Example 2)
but sometimes it looks like this:
This is some text....<B
luebird>..MBAAAEgAAAQAoBA
AAQKAREDSCETRTBDFS
blaah,blaah
=+=+=+=+=+=+=+=+=+=+=+
update
I fixed this for a case where a line ends in something begining in <B other than a part of <Bluebird> and added another test case in the data. Also note the pattern match given by the OP matches <Blackbird> as well. Anyone know a more ellegant regexp to do
/<(B|Bl|Blu|Blue|Blueb|Bluebi|Bluebird)$/ ?
#!/usr/local/bin/perl -w
use strict;
LINE: while ( <DATA> ) {
$_ .= <DATA> while /<(B|Bl|Blu|Blue|Blueb|Bluebi|Bluebird)$/;
next LINE if (m/\.{4}<B.*ird>/s .. /(\+\=\+)$/);
print;
}
__END__
(Example 1)
This is Example 1
This is some text....<Bluebird>..
MBAAAEgAAAQAB
blaah,blaah
=+=+=+=+=+=+=+=+=+=+=+
(Example 2)
but sometimes it looks like this:
This is some text....<B
luebird>..MBAAAEgAAAQAoBA
AAQKAREDSCETRTBDFS
blaah,blaah
=+=+=+=+=+=+=+=+=+=+=+
(Example 3)
This is designed to break it ha ha
this will make trouble<B
lackCrow> This is some text....<B
luebird>..MBAAAEgAAAQAoBA
AAQKAREDSCETRTBDFS
blaah,blaah
=+=+=+=+=+=+=+=+=+=+=+
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.