main.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:44 2010 from main.pl 2005/12/05 390.

#main.pl
use Tree;                         #include the tree class file.
my($TreeObj) = Tree->new("c:\\windows", \&showdir, \&showfile);
$TreeObj->cruisetree();           #Note that arg0 is $TreeObj.
sub showdir
   {
   print "Directory: $_[0] ...\n";
   }
sub showfile
   {
   print "     File: $_[0] ...\n";
   }
#This code should print out "C:\Windows" folder ...

index -|- top