sreek3502 has asked for the wisdom of the Perl Monks concerning the following question:
I have an input file having following contents
SCHEDULE "TEST"
DESCRIPTION "Do Some stuff"
MINUTE "53"
HOUR "21"
SCHEDULE "DUMMY CHECK"
DESCRIPTION "Do some stuff"
Check something
INTERVAL "10m"
MINUTE "50"
HOUR "21"
I need to match the 3rd line after the matched line SCHEDULE "DUMMY CHECK" which is INTERVAL "10m". I have written the below code for that purpose, however i'm not sure if this is the exact way of doing it, or do we have any simple other logics.
use strict; use warnings; my $file = "input.txt"; my @data; open (IN,"<","$file"); my $count = 0; while (<IN>) { $count = 1 if /SCHEDULE\s"(DUMMY\sCHECK)".*/; if ($count >= 1 and $count <= 6) { @data = $_; print @data; $count++; } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Print n lines after a matched line
by Discipulus (Canon) on Jun 13, 2018 at 18:36 UTC | |
Re: Print n lines after a matched line
by shmem (Chancellor) on Jun 14, 2018 at 12:39 UTC | |
Re: Print n lines after a matched line
by haukex (Archbishop) on Jun 13, 2018 at 18:44 UTC | |
Re: Print n lines after a matched line
by LanX (Saint) on Jun 14, 2018 at 17:06 UTC | |
Re: Print n lines after a matched line
by Marshall (Canon) on Jun 14, 2018 at 17:08 UTC | |
Re: Print n lines after a matched line
by taint (Chaplain) on Jun 13, 2018 at 22:18 UTC | |
A reply falls below the community's threshold of quality. You may see it by logging in. |
Back to
Seekers of Perl Wisdom