Wijzigen text velden

Status
Niet open voor verdere reacties.

eu22106

Nieuwe gebruiker
Lid geworden
21 jun 2009
Berichten
1
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:
ten eerste, om de variabelen heel te houden zou ik
Code:
$dir = "c:\\work";
veranderen naar
Code:
$dir = 'c:\work';
met ' ipv " worden er geen variabelen gelezen in de string

en gebruk altijd
Code:
use strict;
use warnings;
gewoon bovenaan je script zetten, want dat kan enorm helpen

ik kan je script niet uitgebreid heel maken, want ik moet zometeen weg hiero ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan