ｗｉｎ ＮＴにあるｔｒｅｅコマンドについて

[上に] [前に] [次に]
Larry　ｗａｌｌファン 2000/06/03(土) 23:52:04
WIN NTのDOS窓にあるtreeコマンドですがないのでこのようなプログラム
をCGIとして利用したいのですがファイルの階層を示すパイプ｜が表示され
ません。プログラム自体のミスかもしれませんがどこをどう直せばパイプを
表示するのでしょうか？

/home/test.txt
|    test2.txt
|　　 testディレクトリ
|      |     test3.txt
|      |         |

スクリプト
#!/usr/bin/perl
print "Content-type: text/plain\n\n";

#tree..

$dir = "perl";
$dep = 1;
print $dir;
&dirproc($dep);
exit;

sub dirproc {
      my($dep);
      my(@files,$file);
      @files = (sort(glob("*")));
      foreach $file (@files){
              if(-f $file){
                    for ($i = 1; $i <= $dep; $i++) {
                           print "|\t";
                    }
                    print $file."\n";
              }
       }
       foreach $file (@files) {
               if (-d $file) {
                      for ($i = 1; $i <= $dep; $i++) {
                            print "|\t";
                      }
                      print $file."\n";
                      ++$dep;
                      chdir($file);
                      &dirproc($dep);
                      chdir("..");
                      --$dep;
                }
       }
}

アドバイスよろしくお願い致します。
B-Cus 2000/06/04(日) 00:17:20
> my($dep);
my($dep)=@_;
[上に] [前に] [次に]