Perl-Problem

[Hussl]

Hallo Leutz,

ich hab ein Problem in Perl. Und zwar habe ich eine Liste @eing, in der diverse Eingaben drinnen stehen. Diese werden im Laufe des Programmes abgefragt und darin gespeichert.
Am Ende will ich dann soviele Dateien erstellen wie es Einträge in der Liste gibt.
z.B:
...
@eing = ("001", "003", "test", "mag") # ev. mehr oder weniger, je nachdem
...
danach will ich die Dateien öffnen/erstellen - und hier hakt es:
foreach(@eing)
{
open($eing[$e], ">$ARGV[0].$eing[$e]");
$e++;
}
Ich hoffe ihr habt einigermaßen den Überblick und versteht was ich meine. Für Vorschläge hab ich nicht ein sondern 899 große offene Ohren

[_m3]

So etwa?

use filehandle;
use strict;

my @eing = ("001", "003", "test", "mag");
my %filehandles;
my ($name, $filename);

die "Kein Argument angegeben!" if (not defined $ARGV[0] or $ARGV[0] eq '');

foreach $filename (@eing) {
	my $fh = new FileHandle;
	$fh->open("> $ARGV[0]\.$filename") or die "Schreibfehler bei '$ARGV[0]\.$filename - $!\n";
	$filehandles{$filename} = $fh;
}

foreach $name (keys %filehandles) {
	print {$filehandles{$name}} "$name\n";
}

foreach $name (keys %filehandles) {
	$filehandles{$name}->close;
}