Hallo nochmal,

Danke für die schnelle und super Hilfe bei der Gruppenverarbeitung.
Aber schon tauch mein nächstes Problem auf.
Mein Quellcode sieht jetzt folgendermassen aus:

my $daten;
for (@tables_and_fields)
{
my ($a, $b) = split(/\./, $_);
push @{$daten->{$a}}, $b;
}

my @sort_array;
for (keys (%$daten))
{
push (@sort_array,"$_ @{$daten->{$_}}"); # Tabellen
# print $_,"\n";
# print "--", $_, "\n" for (@{$daten->{$_}});
}
# print "@sort_array\n";

for (my $zaehler = 0; $zaehler < @sort_array; $zaehler++)
{
print "$sort_array[$zaehler]\n";
}

Jedes Arrayelement besteht jetzt aus der Tabelle und den dazugehörigen Feldern.
Sieht so aus: Tabelle1 Spalte1 Spalte2 Spalte3 (1. Array Element)

Aber wie kann ich jetzt ein select auf eine Oracle-DB machen?
Denn ich weiss ja nicht, wieviele Spalten die Tabelle hat!

Der erste Schritt ist wieder nach dem Leerzeichen splitten.
Aber das weiss ich schon nicht. Wie das geht.
Und dann muss ich die Anzahl der restlichen Spalten ermitteln, um ein select machen zu können
Der select sollte dann so aussehen:
select $item[1]...$item[X] from $item[0] (@item siehe unten.)

Folgendes hab ich mir überlegt:
.
.
.
@item = split("Leerzeichen", $sort_array[$zaehler]);

$sql = qq{ select $item[1]...$item[X] from $item[0]};
$sth = $dbh->prepare( $sql ) or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute() or die "Couldn't execute statement: " .$sth->errstr;
$dbh->disconnect();
.
.
.
Ist das auch möglich?

Gruss,

Markus