一个关于删除文件的问题？

yuyongpeng
一个关于删除文件的问题？

my $dir = "d:/testperl";
chdir $dir;
my @allFiles = glob "*.txt";
print @allFiles;
foreach my $files (@allFiles){
        chomp $files;
        print $dir."/".$files;
        unlink $dir."/".$files;
}
上面的删除不成功：
错信息：Insecure dependency in unlink while running with -T switch at D:/Eclipse Program/testperl/test.pl line 14.

my $testa = "d:/testperl/ddd.txt";
chomp $testa;
unlink $testa;
这个语句可以删除。

这是为什么？谁帮我看看，上面的代码是不是有错误。

yuyongpeng
谁能给解答一下吗？

谁能给解答一下吗？

flw
因为你打开了 Perl 的污染模式（-T）。
在这种模式下，对那些来自 realworld 的变量，必须进行污染探测并解除污染，
然后 Perl 才允许你使用这些变量来参与某些重要操作，比如 unlink、system 之类的。

这实际上是 Perl 特有的一种安全机制，请好好享用吧！

yuyongpeng
我没有打开-T标识啊。

我没有打开-T标识啊。

#!c:/Program Files/perl/bin/perl
use warnings;
use strict;

my $dir = "d:/testperl";
chdir $dir;
my @allFiles = glob "*.txt";
foreach my $files (@allFiles){
        unlink ($dir."/".$files);
}

flw
我说打开了就是打开了。
好好查查吧。

不死草
可以试着重新定义一遍来解决问题，呵呵:mrgreen:

apile
eclipse帮你打开了..检查看看eclipse的设定
不然你就要修改下面这两行...
my @allFiles = glob "*.txt";
print @allFiles;

成

my @files=();
for my $file (@allFiles){
   $file =~/(.*)/;
  push(@files,$1);
}


然後用@files去做事情...

[[i] 本帖最后由 apile 于 2008-6-20 13:30 编辑 [/i]]