※ 引述《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