Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Replacing Text At Specific Positions

by FunkyMonk (Chancellor)
on Jun 05, 2007 at 15:49 UTC ( [id://619428]=note: print w/replies, xml ) Need Help??


in reply to Replacing Text At Specific Positions

I'm confused by "I cannot get any "foreach" statement to function correctly". Do you mean you want to replace

while (<INFILE>) { my $line = $_;

with foreach? If that is the case, there's no need for foreach, just replace those two lines with:

while (my $line = <INFILE>) {

Did you know that substr can take a 4th argument?

$juris1 = substr( $line, 99, 1 ); $juris2 = substr( $line, 148, 1 ); $juris1 = "9"; $juris2 = "Z"; #or # #substr( $line, 99, 1, '9' ); # 4th argument replaces #substr( $line, 148, 1, 'Z' );# selected sub-string

It doesn't look like you're using strict and warnings. They are real timesavers and you should look in to using them.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2025-06-14 13:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.