作者idicivik ( 苦海钓叟)
看板Perl
标题Re: [问题] 删除子资料夹里的 Thumb 档
时间Mon Jan 10 22:04:04 2011
※ 引述《idicivik ( 苦海钓叟)》之铭言：
: 大家好!
: 我有一个资料夹 里面有许多子资料夹
: 我想要把 Thumb 档删掉
: 可是 当我使用
: #!/usr/bin/perl
: my @DirArray;
: open(DIR, ".");
: @DirArray = readdir(DIR);
: close(DIR);
: print "$_\n" for (@FileArray);
: system("pause");
: 来测试现在资料夹下有哪些档案
: 却是只有 system("pause");
: 有show 出来
: 我使用的环境为 window 7
: 有试过在 window XP 可以 run
: 想请问大家 有甚麽办法可以正常 run 吗?
: 又或者有甚麽语法可以 一次对所有子资料夹作处理的好方法
: 谢谢
sorry key错
不过名字改对 还是有问题
不过我却在 Perl 学习手札的第十一章习题找到更简单可以work的写法
#!/usr/bin/perl -w
use strict;
my @files = <*>;
print "$_\n" for @files;
不过 还是谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 112.104.14.177