so gehts:
my @ausgaben = ($output_standard,$output_seiten);
foreach(@ausgaben) {
open('FILEOUT.$_', ">$_") || die "Kann $_ nicht schreiben!";
select('FILEOUT.$_');
print "test\n";
close('FILEOUT.$_');
}
norman
so gehts:
my @ausgaben = ($output_standard,$output_seiten);
foreach(@ausgaben) {
open('FILEOUT.$_', ">$_") || die "Kann $_ nicht schreiben!";
select('FILEOUT.$_');
print "test\n";
close('FILEOUT.$_');
}
norman