http://qs1969.pair.com?node_id=495845

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 ?.
#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();
Thanks in advance Gasho