Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re^4: Extracting string from a file

by ww (Archbishop)
on Nov 20, 2013 at 13:18 UTC ( #1063517=note: print w/replies, xml ) Need Help??

in reply to Re^3: Extracting string from a file
in thread Extracting string from a file

The "reason(s)" you're getting no replies may include:

  1. The tread has grown elderly (and deeper than the max depth to which some Monks read).
  2. The latest code you've posted shows little evidence that you've worked to understand and implement prior replies.
  3. The form of your question amounts to a 'gimme', AKA, a 'do it for me' which is not an approach approved here.

Still, in the spirit of 'help, but don't do the (whole) job':

  • Your use of while is not doing what you want. See perldoc -f while (which refers you to a specific section of perlsyn, a document available on your own computer) and compare to the docs re for.
    open (my $FH, '<', "bindo1061990A.txt") || die "Cannot open bindo10619 +90A,txt: $!"; my @lines = <$FH>; for my $line (@lines) { say $line; }
  • Your foreach (@DUMP) { at Ln 10 should NOT be inside the loops beginning at Lns 6 and 7 as that will produce repetitive output for each (new) match.

I hope this helps... and also clarfies that the saying "Heaven helps those who help themselves" can be paraphrased to apply here.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1063517]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2018-03-20 16:42 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (255 votes). Check out past polls.