Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

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

by annel (Novice)
on Oct 14, 2013 at 02:05 UTC ( #1058116=note: print w/ replies, xml ) Need Help??


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

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; } }


Comment on Re^4: How to extract certain range of text and display it?
Download Code
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 $_?

      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; } }
      I used $_ but nothing prints out.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1058116]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2014-11-29 00:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (200 votes), past polls