[Groningen] Re: Vraagje over Perl...

[Johan Vromans]

"ahospers at gmail.com" <ahospers at gmail.com> writes:

> maar onderstaande doet niets.

Dat komt omdat je absoluut geen idee hebt wat je doet.

Probeer de code eens in een gewoon perl bestandje, zeg poging.pl op te
slaan:

  #!/usr/bin/perl
  use strict;
  use warnings;

  # De huidige vrijwilliger.
  my $currentNaam;

  # Lees regels.
  while ( my $line = <> ) {
     # Test op vrijwilligersnaam.
     if ( $line =~ /NaamVrijwillger=(.*)/ ) {
       # Sla op.
       $currentNaam = $1;
     }
     else {
       # Druk af, met naam ervoor.
       print $currentNaam + ", " + $line;
     }
  }

en dan uitvoeren met

 perl poging.pl MYFILE

Ik ben ervan uitgegaan dat je de namen van de vrijwilligers eruit wil
halen. Let op dat dit in MYFILE verkeerd is gespeld.

Succes,
        Johan