Hej alle ...

Jeg ønskede at behandle indholdet af en fil, som i ændre dets indhold. Hvad er den bedste måde at gøre det på perl? Mere detaljeret jeg hav for at gå gennem indholdet af filen, match mønstre n derefter ændre indholdet af den samme fil, afhængigt af matchende resultater. Enhver hjælp er velkommen.

Takket n regards,
Garric

Hej,

Dette kan hjælpe dig.

Code:

1. open the file with fopen.
2. Read the contents line by line.
3. match the string with your pattern and repace accordingly.
4. Write line in another file.
5. remove new file with previous one.

testfile.txt:

Om Apple
Apple er en frugt
Jeg kan godt lide æblejuice


Kode

åben (INFILE, ". / testfile.txt") | | die ( "Kan ikke åbne testfile.txt");
åben (OUTFILE ,">./ orange.txt ") | | die (" Kan ikke åbne orange.txt ");
while ($ str \u003d <INFILE>)
(
$ str \u003d ~ s / Apple / Orange / g;
print OUTFILE $ str;
)
tæt (INFILE);
tæt (OUTFILE);

Orange.txt


Om Orange
Orange er en frugt
Jeg kan godt lide Appelsinsaft