perl -d 检察是否是目录

2011-02-10 02:09:54 275 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

安装破解IAR EWARM 8.2，提供注册机 IAR Embedded Workbench for ARM（IAR for ARM）是一款微处理器的集成开发环境软件，该集成开发环境中包含了IAR的C/C++编译器、汇编工具、链接器、库管理器、文本编辑器、工程管理器和C-SPY调试器，支持ARM，AVR，MSP430等芯片。一、安装双击运行安装程序，点击Install IAR Embedded Workbench for ARM... 阅读详情

您好？
环境是WXP PERL5
在一个有文件也有目录的路径下，用-d检测目录不好用。检测下来应为目录的还是为文件。除了。（当前）和。。（上级）外。
在线等解决。

...全文

缠论公式自动画线画笔中枢买卖点源代码【代码】缠论公式自动画线画笔中枢买卖点源代码。阅读详情

mirrorspace

脚本语言 37,738 成员 34,208 内容

+ 关注 + 加入社区

切换为时间正序

mirrorspace 2011-02-10

打赏
举报

谢谢了。-d 之后的判定对象要用绝对路径，不然就出现误判。

看着奢扣 2011-02-10

打赏
举报

[Quote=引用 5 楼 mirror030 的回复:]

这个运行后没有结果，为什么呀？
[/Quote]
有结果啊，代码都给你了我这试了没问题
readdir返回的不是绝对路径，要加上前边的filename

mirrorspace 2011-02-10

打赏
举报

可以行了。结果正确了。但解释下为什么要加入路径呢？

iambic 2011-02-10

打赏
举报

readdir返回的是文件名，不是完整路径。你代码里的这些问题你自己多打点log就看出来了。
另外代码里加上：

use strict;

use warnings;

不加上就是浪费大家的时间。

mirrorspace 2011-02-10

打赏
举报

这个运行后没有结果，为什么呀？

看着奢扣 2011-02-10

打赏
举报

另外，-f会把windows下的隐藏文件也计算进去的这个统计时要注意一下。

看着奢扣 2011-02-10

打赏
举报

判断这个应该加上全部的路径吧你试试我改的例子吧



#!/usr/bin/perl

$filename='c:\doc';

opendir(FILE,$filename) or die('erroe not open c:/doc');

out_filename();

closedir(FILE);

sub out_filename

{

@news_fs=readdir(FILE);

foreach(@news_fs){

print "$_\n";

$aa = $filename.'\\'.$_;

(-d $aa) ? $d++ : $f++;

}

print "totle ----$f---- files ----$d---- dirs";#totle the files

}

mirrorspace 2011-02-10

打赏
举报

#!/usr/bin/perl
$filename='E:\doc\taobao';
opendir(FILE,$filename) or die('erroe not open e:/doc');
out_filename();
closedir(FILE);
sub out_filename
{
@news_fs=readdir(FILE);
foreach(@news_fs){
print "$_\n";
(-d $_) ? $d++ : $f++;
}
print "totle ----$f---- files ----$d---- dirs";#totle the files
}
结果是
F:\diree>perl test.pl
.
..
726909812385.jpg
iTrusPTA.exe
新建文件夹
新建文件夹 (2)
新建文件夹 (3)
totle ----5---- files ----2---- dirs

iambic 2011-02-10

打赏
举报

贴代码，贴代码运行结果。

perl -d 检察是否是目录

相关推荐