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

Here is the code I updated. Please check it. Thanks.

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=$1;
print $test;
}
}
[download]

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

Replies are listed 'Best First'.
Re^5: How to extract certain range of text and display it? by Anonymous Monk on Oct 14, 2013 at 02:18 UTC
well, you're using $1 without using capture groups which moritz told you about , and which perlintro talks about ($1) why are you using $1, maybe you want to use $_?	[reply]
Re^6: How to extract certain range of text and display it? by annel (Novice) on Oct 14, 2013 at 04:51 UTC
`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.	[reply] [d/l]
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]