Change the definition of "
$/" about what a new line is, in this case, the records are separated on each empty line and no
chomping's done hence the records structure is preserved for each line, however, you might wanna
chop if you wanted to get rid of the trailing new line characters for each independent record..
use strict;
use warnings;
local $/=''; #Empty lines are the record terminators
while(<DATA>){
# print if !/^r145/;
print unless /^r145/;
}
__DATA__
c114: 0245, 0456, 1545
2555, 2444, 0344
0444, 3434, 1434
r145: 0544, 0688, 2988
1332, 0221, 0867
0655, 4548, 7463
c12: 2322, 0556, 3998
3545, 2002, 4500
5650, 0830, 3324
3433, 7070, 3404
OUTPUTS:
c114: 0245, 0456, 1545
2555, 2444, 0344
0444, 3434, 1434
c12: 2322, 0556, 3998
3545, 2002, 4500
5650, 0830, 3324
3433, 7070, 3404
Excellence is an Endeavor of Persistence.
Chance Favors a Prepared Mind.
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.