当前位置:  技术问答>linux和unix

perl正则表达式

    来源: 互联网  发布时间:2016-10-14

    本文导语:  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(&proce...

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的大小

    
 
 

您可能感兴趣的文章:

  • Perl 正则表达式之角色化记忆
  •  
    本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术,将尽最大努力为读者提供更好的信息聚合和浏览方式。
    本站(WWW.)站内文章除注明原创外,均为转载、整理或搜集自网络。欢迎任何形式的转载,转载请注明出处。












  • 相关文章推荐
  • Perl 库 Gtk2-Perl
  • 有perl爱好者么 perl群 5720265
  • JMX 的 Perl 接口 jmx4perl
  • 给我一点对perl/python的初步认识
  • PERL的问题!(急)可追加100分
  • RH Linux 8.0里时候有perl的看发工具
  • perl 土问题
  • 帮我理清楚一下shell和perl之间的关系。
  • opensolaris 系统中如何使用Perl
  • 如何卸载perl模块?
  • Perl 语言现状怎么样?
  • Python or perl可以替代shell吗
  • perl程序怎么在windows系统运行
  • perl里面嵌套shell
  • 如何使用perl删除指定文件
  • perl 各个模块的 api
  • Eclipse的Perl开发插件 EPIC
  • 在Java中运行Perl脚本 JERL
  • (救命啊)在linux下无法运行Perl程序
  • perl脚本传递参数的问题


  • 站内导航:


    特别声明:169IT网站部分信息来自互联网,如果侵犯您的权利,请及时告知,本站将立即删除!

    ©2012-2021,,E-mail:www_#163.com(请将#改为@)

    浙ICP备11055608号-3