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

Re^5: Filehandle problem

by Random_Walk (Parson)
on May 07, 2013 at 11:55 UTC ( #1032470=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Filehandle problem
in thread Filehandle problem

Your main problem is using $1. If you used strictures this would be a fatal error, stopping you treading on your own toes :)

use strict; use warnings; my $label = 'owt'; while (my $line = <DATA>) { if ($line =~ m/s_abc_in\(\d+\).*\s*<=\s*s_abc_out\(\d+\).*/){ for (1..6){ my $j = $_ + 1; print "a_abc_in\_rrfa_$label($j) <= s_abc_out\_rrfa_$label($_);\ +n"; } } else { print $line; } } __DATA__ ................................. s_abc_in(1450) <= s_abc_out(324); # this is my first match an unmatched line s_abc_in(1451) <= s_abc_out(1450); unmatched line, as are the ...... lines ................................

Cheers,
R.

Pereant, qui ante nos nostra dixerunt!


Comment on Re^5: Filehandle problem
Select or Download Code
Re^6: Filehandle problem
by jnyman (Acolyte) on May 08, 2013 at 07:38 UTC
    Actually if you look carefully, he is correctly using $l (as in L or line), not $1 (one).

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-09-02 02:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (18 votes), past polls