如何编写BASH或Perl来列出这个目录下的文件和文件夹?

[quote:76c193730f="不死的天神永恒的封印"]吃饱了撑着了[/quote]

因为实际中有很多稍复杂些的应用，不能简单地type一个ls就行了。

#======================================#
# List Directory
#= List ===============================#
sub ls {
   local ($buffer, $dirname, @list, %list, $j);
   $buffer = shift;
   #-- dirname --#
   $dirname = $buffer?$buffer:'.';
   opendir (DIR, $dirname)
      or return;
   @list = readdir (DIR);
   closedir (DIR)
      or return;
   $main'object{'objectName'} = $buffer;
   foreach (@list) {
      $j = "$dirname/$_";
      -e $j
         and $main'object{'subObjectNum'}++;
      -d $j
         and $_ ne '.'
            and $_ ne '..'
               and $main'object{'subDirectoryNum'}++;
      -f $j
         and $main'object{'subFileNum'}++;
      @$_ = stat $j;
      $list{$_} = \@$_;
   }
   return (\%list);
}

用在了自己的网站上的,懒得改照搬了.