gasho has asked for the wisdom of the Perl Monks concerning the following question:
I have multiple line file and I am trying to extract only
START .. END part it works one way but not another ?.
Thanks in advance Gasho#Input file: #SomeChar # START #value # END #AnotherChar #This code extract START .. END (OK) while (<>) { my $stag='START'; my $etag='END'; my $line; $line=$_; if ($line=~/$stag/../$etag/) { print $line; } } #This code extract START .. END + everything after (NOT GOOD) sub getInfoFromMultipleLine { #Openning file for reading open(IFH,"$InputFile") || die "Can't open file: $InputFile\n"; my $stag='START'; my $etag='END'; my $line; while($line=<IFH>) { if ($line=~m/$stag/../$etag/) { print $line; } } } $InputFile="$LocationOfTheScriptsDirectory\\A.txt"; getInfoFromMultipleLine();
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: How to extract Start .. End from multiline file
by halley (Prior) on Sep 28, 2005 at 17:56 UTC | |
by revdiablo (Prior) on Sep 28, 2005 at 18:00 UTC | |
by ikegami (Patriarch) on Sep 28, 2005 at 18:19 UTC | |
by gasho (Beadle) on Sep 28, 2005 at 18:46 UTC | |
Re: How to extract Start .. End from multiline file
by borisz (Canon) on Sep 28, 2005 at 17:55 UTC | |
Re: How to extract Start .. End from multiline file
by svenXY (Deacon) on Sep 28, 2005 at 18:04 UTC |
Back to
Seekers of Perl Wisdom