in reply to Re: Copy Lines After Match
in thread Copy Lines After Match **UPDATE**
Hi vinoth.ree
Am sure you know one can achieve the OP intended output without so much elaborate solution. like so:
Please also note that the filehandle is written as __DATA__, double "_" not a single dash as did.
Cheers!
Am sure you know one can achieve the OP intended output without so much elaborate solution. like so:
One can even take out the while loop and use grep like so:use warnings; use strict; while (<DATA>){ print unless /computer.|^\s+$/i; } __DATA__ COMPUTER1 ACCT1 ACCT2 ACCT3
These gives the output:print grep{!/computer.|^\s+$/i}<DATA>;
@jalopez453,ACCT1 ACCT2 ACCT3 ACCT4 ACCT7 ACCT8 ACCT9
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
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me
In Section
Seekers of Perl Wisdom