perl的结果如何存到指定的目录下，求助！

54red

我可以打开指定的目录，
$in_file="D:\\test\\test.txt";

以前存到指定的地方用的都是
perl haha.pl in.txt ./test/out.txt

因为现在用了个循环遍历整个文件夹的所有txt文件，我想创建一个新的结果文件夹。比如output_file，然后再依次存output1，output2...
这个应该用什么命令，希望我讲清楚了，谢谢大家！

MMMIX

回复 1# 54red


    perldoc -f mkdir

54red

最后的实现方法比较笨：
for my $file1 (@file){
.....
mkdir ($file1."_results",0777);
my $dir = getcwd;
my $output = $dir."\/results"."\/".$output1;
open(OUT,">$output");
......}

实现的功能是 循环一个文件夹的所有文件，分别创建一个结果文件夹，并把结果存在该文件下。虽然笨了一点不过好歹实现了。

kingfighters

File:ath, core module
File::Spec::Functions, Core module