基于Eclipse的Perl的IDE软件EPIC出现Insecure dependency in open while running with -T switch错误！

今天写了一个非常简单的批量写入文件的代码：

#!/bin/env perl use strict; use warnings; my $dir = "c:/"; open(AIM,"<c:/1.txt") or die $!; my @aim = <AIM>; close AIM; print @aim; foreach my $temp (@aim) { chomp $temp; open(TEMP,">".$dir.$temp.".HTM") or die $!; print TEMP "$temp"; close TEMP; }

 

然后通过eclipse的运行按钮，怎么也无法实现文件的创建功能，我非常纳闷，这里怎么也看不出来错误，可惜

总是提示Insecure dependency in open while running with -T switch 错误，在Perl专业群中求助了很

久还是没有解决，最后使用 File::Slurp 就没事了。代码如下：

#! perl use File::Slurp; my $dir = "c:/"; $dir2 = "c:/1.txt"; my @aim = read_file($dir2); print @aim; foreach my $temp(@aim){ chomp $temp; open(TEMP,">".$dir.$temp.".HTM") or die $!; print TEMP "$temp"; close TEMP; }

 

非常困惑，但是出错的代码，如果我通过cmd运行，就没有错误了。只可能是eclipse在运行的时候是加-t运行的。

所以就出现了错误，Perl就退出了。

这里简单说说File::Slurp模块，它能实现更高效的文件读写，因为内部调用的是 sysopen/sysread/syswrite等函数，

直接调用内核命令。所以效率更高！

以后碰到问题，是需要多尝试下，本来没有错误的代码，不同的运行环境，就是会出错。

今天又学习到了一点。