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.
|
---|
In Section
Seekers of Perl Wisdom