Re^6: How to extract certain range of text and display it?

in reply to Re^5: How to extract certain range of text and display it?
in thread How to extract certain range of text and write into another file?

use warnings;
use strict;
my $test;
my @words;
open(INFO,"<","testing.pl")||die"Can't open file:$!\n";
chomp (@words=<INFO>);
close(INFO);
foreach (@words){
if(/^\$ NAME : corry/ .. /\.EON/){
$test=$_;
print $test;
}
}
[download]

I used $_ but nothing prints out.

Comment on Re^6: How to extract certain range of text and display it? Download Code

Replies are listed 'Best First'.
Re^7: How to extract certain range of text and display it? (snafu) by Anonymous Monk on Oct 14, 2013 at 06:44 UTC
I used $_ but nothing prints out. Sure it does `$ perl -l snafu $ NAME : corry $$.Inc s d $$.Oc s $$.TO G1 ty n1 EE EE M T1 T2 $$SRU G2 n1 y OO OO M T3 T4 $$SRU .EON` [download] and here is snafu Read more... (833 Bytes) Basic debugging checklist , brian's Guide to Solving Any Perl Problem......	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom