Code voor het zoeken van een datum in een tekst bestand en deze manupulerendan . Home

tekst in blauw geeft links aan naar onderliggende bladzijden

# Het bestand [willem1.txt] waarin de te manupuleren datums voorkomen openen.

#         instructie:     open(BASIS, "willem1.txt") or die "problemen met openen inlees bestand";

# Bestand maken waarin de gemanupuleerde gegevens komen te staan.

#        hiervoor moeten we eerst een bestand maken en openenen waar we de gegevens in kwijt kunnen. bijv: d:/perl/genealogie/verwerkt.txt

#        instructie:    open(OUT, ">>d:/perl/genealogie/verwerkt.txt") or die "problemen met openen wegschrijf bestand";

# Datums volgens een bepaald formaat vinden.

# instructie:   while ($line = <BASIS>) {

# }

open(BASIS, "willem1.txt") or die "problemen met openen inlees bestand";
open(OUT, ">>c:/strawberry/atelier/verwerkt.txt") or die "problemen met openen wegschrijf bestand";
while ($line = <BASIS>) {
$line =~ s/(\d\d)-(\d\d)-(\d\d\d\d)/\neen Dorp D$3-001 $1-$2-$3 Blz. 000\/001 \n/;
print OUT "$line";}
close(BASIS);
close(OUT);

# Vervangen door zelfde formaat of een ander en aanvullen met andere gewenste gegevens.

# Afsluiten bestanden:

#   instructie: close(BASIS);
#   instructie: close(OUT);