use strict; 
use warnings; 
use File::Find; 

my ($size, $dircnt, $filecnt) = (0, 0, 0); 

sub process { 
my $file = $File::Find::name; 
#print $file, "n"; 
if (-d $file) { 
$dircnt++; 
} 
else { 
$filecnt++; 
$size += -s $file;
} 
} 

find(&process, '.'); 
print "$filecnt files, $dircnt directory. $size bytes.n"; 


刚学perl  谁能告诉我if (-d $file)；$size += -s $file;
这两句话中的-d  和-s  是什么意思

if (-d $file)；$size += -s $file;
---------
这里不是正则

-d $file  判断$file是不是为目录

  
-s 文件或目录存在，大小大于0（值为文件的大小，单位：字节）
所以$size += -s $file; 的意思是 $size= $size + $file的大小