🚀 go-pugleaf

Robby De Smedt wrote:

> Voor een perlscript moet ik 10 bestanden aanpassen die vogende
> uitdrukkinkg hebben:
> naam_1
> naam_2
> ...
> naam_9
> 
> Wegens de simpele naamgeving open ik deze met volgende uitdrukking:
> 
> for (my $i=0; $i<=9; $i++){
>                 open (naam_.$i, ">>naam_$i") or die "can't open naam_$i ";
> }
> 
> Als ik nu de bestanden begin te beschrijven met een print opdracht:
> 
> print naam_.$j "$variabele\n";

'.' is de concat-operator. Ik vermoed dat Perl hier 'naam_' en $i beschouwd
als strings die hij moet printen, vanwege '.'.

Verder is het feit dat je de filehandle na de for-loop aanspreekt met
naam_.$i, terwijl $i IN de for-loop een lexical variable was. Maw, gaat uit
scope na het einde van de for-loop.

Probeer eens met:
my @filehandles = ();
my @files = ();
for (my $i=0; $i<=9; $i++) {
        my $handle = FH{$i};
        my $file = "naam_" . $i
        push @filehandles, $handle;
        push @files, $file;
        open($handle, ">>$file") or die "Cannot open file $file: $!";
}

Daarna kan je filehandle als volgt gebruiken:
select($filehandles[3]);
print "String to print";

of voor alle handles tegelijk:

foreach my $handle (@filehandles) {
        print $handle "String to print";
}

-- 
Blood, sweat & tears