Hey iedereen ...

Ik wilde voor het verwerken van de inhoud van een bestand, zoals in de wijziging van de inhoud ervan. Wat is de beste manier om dit te doen op perl? Meer in detail Ik heb om door de inhoud van het bestand, match patronen n dan wijzigen de inhoud van hetzelfde bestand, afhankelijk van de overeenkomende resultaten. Alle hulp is welkom.

Dankzij n groet,
Garric

Hoi,

Dit kan u helpen.

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:

Over Apple
Apple is een vrucht
Ik hou van appelsap


Code

open (INFILE, ". / testfile.txt") | | die ( "Kan niet openen testfile.txt");
open (hetbestand ,">./ orange.txt ") | | die (" Kan niet openen orange.txt ");
while ($ str \u003d <INFILE>)
(
$ str \u003d ~ s / Apple / Oranje / g;
print hetbestand $ str;
)
close (INFILE);
close (hetbestand);

Orange.txt


Over Oranje
Oranje is een vrucht
Ik hou van Orange Juice