Re^2: Copy Lines After Match

Hi vinoth.ree

Am sure you know one can achieve the OP intended output without so much elaborate solution. like so:

use warnings;
use strict;

while (<DATA>){
    print unless /computer.|^\s+$/i;
}

__DATA__

COMPUTER1

ACCT1
ACCT2
ACCT3
[download]

One can even take out the while loop and use grep like so:

print grep{!/computer.|^\s+$/i}<DATA>;
[download]

These gives the output:

ACCT1
ACCT2
ACCT3
ACCT4
ACCT7
ACCT8
ACCT9
[download]

@jalopez453,
Please also note that the filehandle is written as __DATA__, double "_" not a single dash as did.
Cheers!

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Comment on Re^2: Copy Lines After Match Select or Download Code

Replies are listed 'Best First'.
Re^3: Copy Lines After Match by GotToBTru (Prior) on Dec 18, 2015 at 16:02 UTC
This assumes the data is really as simple as indicated, so that the question posed by the OP title is not really relevant. For the benefit of others who might find this thread by searching, the more detailed program is necessary. Dum Spiro Spero	[reply]