错误运行在CGI

Question

一个DOS命令，当我试图运行一个文件的简单复制到使用Perl

system("copy template.html tmp/$id/index.html"); 

另一个文件夹，但我得到了错误的错误：The syntax of the command is incorrect.

当我将其更改为

system("copy template.html tmp\\$id\\index.html"); 

系统将复制其他文件到tmp\$id foler

有人可以帮助我吗？

Answer 1

我建议你使用File::Copy，它随你的Perl发行版一起提供。

use strict; use warnings; 
use File::Copy; 

print copy('template.html', "tmp/$id/index.html"); 

您不需要担心Windows上的斜杠或反斜杠，因为模块会为您处理这些问题。

请注意，您必须从当前工作目录设置相对路径，因此template.html以及目录tmp/$id/需要在那里。如果您想立即创建文件夹，请查看File::Path。

---

更新：回复评论如下。

你可以使用这个程序来创建你的文件夹，并使用就地替换ID来复制文件。

use strict; use warnings; 
use File::Path qw(make_path); 

my $id = 1; # edit ID here 

# Create output folder 
make_path("tmp/$id"); 
# Open the template for reading and the new file for writing 
open $fh_in, '<', 'template.html' or die $!; 
open $fh_out, '>', "tmp\\$id\index.html" or die $!; 
# Read the template 
while (<$fh_in>) { 
    s/ID/$id/g;  # replace all instances of ID with $id 
    print $fh_out $_; # print to new file 
} 
# Close both files 
close $fh_out; 
close $fh_in;