借鉴别人的程序写的一个tree
瞎写的，高手们不要笑，呵呵
#!/usr/bin/perl
use warnings;
if($#ARGV != 0)
{
print "USEAGE: $0 dirname ";
exit 0;
}
glob @fmt=("|");
my $dir=$ARGV[0];
$dir=~m(/$)?chop $dir:$dir;
&searchdir($dir);
sub searchdir()
{
my $sdir=$_[0];
opendir(DIR,$sdir);
my @content=sort readdir DIR;
shift @content;
shift @content;
close DIR;
foreach my $file (@content)
{
&display($file);
if(-d ${sdir}."/".${file})
{
push @fmt," |";
$file=${sdir}."/".${file};
&searchdir($file);
pop @fmt;
}
}
}
sub display()
{
my $file2=$_[0];
($format)=join "",@fmt;
print "$format"."--"."$file2 ";
}