创建一个新文件并保存到Perl中的打开目录

Question

基本上,我正在尝试使用今天的日期创建一个新目录,然后创建一个新文件并将其保存在该文件夹中.

我可以让所有步骤单独工作,但是文件不希望保存在目录中.基本上我正在与:

mkdir($today);
opendir(DIR, $today) or die "Error in opening dir $today\n";

    open SAVEPAGE, ">>", $savepage
    or die "Unable to open $savepage for output - $!";
    print SAVEPAGE $data;
    close(SAVEPAGE);

closedir(DIR);

我已经做了很多搜索,试图找到一个合适的例子,但不幸的是,我尝试的查询中的每一个字都获得了数百万次点击"打开/保存/文件/目录"等等.我意识到我可以更好地处理错误等,一旦我使功能正常工作,那将是下一步.任何指针都会受到赞赏,欢呼.

Answer 1

只需在文件前加上目录名称即可打开.不需要opendir

mkdir($today);
open SAVEPAGE, ">>", "$today/$savepage";