我试图让这个脚本把输出文件放在结果/中,但我只把它们放在结果/假脱机中。我怎样才能让它们最终出现在正确的位置?
#!/usr/bin/perl -w
use POSIX;
my $date = strftime "%Y%m%d_%H%M.txt", localtime;
my @files = <spool/*.*>;
foreach $file (@files) {
my $date_file = $file;
system("$^X wfreq.pl $file >> results/${date_file}_$date");
unlink("$file");
}