|
#!/usr/bin/perl -w
open (PWD, "../PWD" )
or die "Could not open PWD for reading!" ;
my @dbiparms ;
while (<PWD>) {
chomp ;
push @dbiparms , $_ ;
}
close (PWD);
my $dbh = DBI-> connect ( @dbiparms );
if ( ! defined $dbh ) {
die $DBI::errstr ;
}
my $tree = new DBIx::Tree( connection => $dbh ,
table => 'food' ,
method => sub { disp_tree( @_ ) },
columns => [ 'food_id' , 'food' , 'parent_id' ],
start_id => '001' );
$tree ->do_query;
$tree ->tree;
$dbh ->disconnect;
sub disp_tree {
my %parms = @_ ;
my $item = $parms {item};
my $level = $parms {level};
my $id = $parms {id};
$item =~ s/^\s+//;
$item =~ s/\s+$//;
print ' ' x ( $level * 2), "$item ($id) \n" ;
}
|