rekursion... Perl verweigert den Dienst...

[Markus]

sub checkchild {
  my $tree;
  my @vars = sql(qq{
   SELECT * FROM ebay_categories
   WHERE parent = '$_[0]' AND ID != parent});

Für mich sieht es so aus, als ob di hier alle Datensätzemit der parent ID $_[0] abfragst.
Ganz genau! außer dem der selbst parent ist...

und dazu brauchst du eine Rekursive Funktion?

Ist das nicht das Gleiche wie:

my @vars = sql(qq{
SELECT * FROM ebay_categories
WHERE ID != parent SORT BY parent});

Nein
SELECT * FROM ebay_categories WHERE ID != parent SORT BY parent
Nein diese abfrage gibt alle einträge außer die parents zurück
also ca. 86000

Diese
SELECT * FROM ebay_categories WHERE parent = '$_[0]' AND ID != parent});
gibt nur die entsprechenden childs von $_[0] zurück...
das sind so zwischen 0 und 30 Datensätze

my $count = (@vars/4);

Also hier die Anzahl der Datnesätze durch 4.
Das bringt die &sql funktion so mit, die liefert ein array der ergebnismenge, also pro datensatz 4 einträge im array, /4 = anzahl der datensätze

Benutzt Du nicht das DBI Modul?

Doch klar, in der sql subroutine

Struppi.

Markus