Ik probeer in bepaalde bestanden uit een directory bepaalde variabelen te wijzigen. Dit lukt echter niet. Wat doe ik hier fout? Met name het wegschrijven gaat niet goed. Als er al iets gebeurt ben ik de hele inhoud kwijt. Wie kan mij helpen? Ivo
Code:
$dir = "c:\\work";
$somethingelse = "draggon";
our @array =("file1.ini","file4.txt","file.doc");
opendir(DIR,$dir) or die $!;
@thefiles = readdir(DIR);
foreach $filename(@thefiles){
foreach (@array){
if ($filename eq $_) {
open(DAT,"<$dir\\$filename") || die "$!";
foreach $line(<DAT>) {
if ($line =~ m/servername/) {
$line =~ s/servername/$somethingelse/i;
print "$filename $line modified into $somethingelse\n";
}
}
}
}
}
close(DAT);
close(DIR);
Laatst bewerkt door een moderator: