"zone.file3.com" )
# A semi-colon missed here
for ( my $i ..... )
HTH,
Bee
----- Original Message -----
From: "Dave Kettmann" <[EMAIL PROTECTED]>
To: "Perl List (E-mail)" <[EMAIL PROTECTED]>
Sent: Thursday, November 04, 2004 6:28 AM
Subject: Mass Editing 125 files
Hi List,
I know the number of files probably doesnt matter, but just in case it does
I thought I would mention it. What I need to do, is look thru 125 zone files
and change the IPs. Or to be less specific, I need a Find/Replace script
that will run thru a list of files whose names are in an array. Here is a
snippet of code:
<--snip-->
#!/bin/perl
use strict;
my @files = (
"zone.file1.com",
"zone.file2.com",
"zone.file3.com" )
for ( my $i = 0; $i < scalar @files; $i++ )
{
open TMPFH, >>$files[$i]; #This is line 123 in the real file
while ( <TMPFH> ) {
$_ =~ s/1\.1\.1\.1/5.5.5.5/ ;
print $_ ;
}
}
<--snip-->
I dont think I'm writing the substitution line right, but here is the error
I'm getting:
Use of uninitialized value at zones.1 line 123.
Argument "zone.yourofficeplace.com" isn't numeric in right_shift at zones.1
line 123.
Wouldnt $file[$i] be initialized? I may be wrong about that, but the
'right_shift' thing is what I am not sure of. I know I'm close to being
right (or at least I think I am). Any help is appreciated.
Thanks,
Dave Kettmann
NetLogic
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
