perl的結(jié)果如何存到指定的目錄下，求助！

54red

我可以打開(kāi)指定的目錄，
$in_file="D:\\test\\test.txt";

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

因?yàn)楝F(xiàn)在用了個(gè)循環(huán)遍歷整個(gè)文件夾的所有txt文件，我想創(chuàng)建一個(gè)新的結(jié)果文件夾。比如output_file，然后再依次存output1，output2...
這個(gè)應(yīng)該用什么命令，希望我講清楚了，謝謝大家！

MMMIX

回復(fù) 1# 54red


    perldoc -f mkdir

54red

最后的實(shí)現(xiàn)方法比較笨：
for my $file1 (@file){
.....
mkdir ($file1."_results",0777);
my $dir = getcwd;
my $output = $dir."\/results"."\/".$output1;
open(OUT,">$output");
......}

實(shí)現(xiàn)的功能是 循環(huán)一個(gè)文件夾的所有文件，分別創(chuàng)建一個(gè)結(jié)果文件夾，并把結(jié)果存在該文件下。雖然笨了一點(diǎn)不過(guò)好歹實(shí)現(xiàn)了。

kingfighters

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