Porblem - Display Tree

Question

Hi all,
I have a table with follow structure:
ID NOT NULL NUMBER(38)
NAME NOT NULL VARCHAR2(50)
PARENT_ID NOT NULL NUMBER(38)
when i want display tree data, i use sqlplus:
SELECT LEVEL, name FROM tblFruits START WITH id=1 CONNECT BY PRIOR id=parent_id
and get;
LEVEL NAME
1 Fruits
2 Green Fruits
3 Apples
4 Tasty Apples
3 Grape
2 Red Fruits
3 Apples
but if i use a perl script to get too result, i get only 3 level,
#!/usr/bin/perl -w
use strict;
use DBI;
my $dbh = DBI->connect("dbi:Oracle:DATABASE", 'user', 'pass');
if ( !defined $dbh ) {
die $DBI::errstr;
my $sth = $dbh->prepare("SELECT LEVEL, name from tblFruits start with id=1 connect by prior id=parent_id")
or die "Error List";
my ($lv, $name);
$sth->execute
or die "Error List";
while(my @row = $sth->fetchrow_array()){
($lv, $name) = @row;
print "$lv | $name\n";
$dbh->disconnect;
i get;
LEVEL NAME
1 Fruits
2 Green Fruits
3 Apples
2 Red Fruits
3 Apples
i dont get good result, someone can help me please.

Answer 1

Have you managed to do this?
Faaiez