rekursion... Perl verweigert den Dienst...

[Struppi]

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});

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?

Struppi.