Question

我是个新手。我需要做以下事情：

my $path=$insfn{'upload'.$i}; // this references the path for the uploaded image file

我需要获取此路径的内容（它是一个图像），并将其填入新文件中。

据我所知：

my $random = '/path/6dadasd.jpg';
open(my $fh,'>',$random){
    print $fh ? how do i get the contents of $path?
}

我不知道如何在Perl中执行此操作。

非常感谢任何帮助。

Answer 1

听起来您正在询问如何将文件从$path中的路径复制到$random中的路径。您可以使用File::Copy的copy。

use File::Copy qw( copy );

copy($path, $random)
   or die("Can't copy \"$path\" to \"$random\": $!\n");

Answer 2

您可以通过shell帮助实现这一目标：

# This
`cp "$path" "$random"`
# Or this
`cat "$path" > "$randorm"`

# Or Pure Perl
my $path = '/path/src';
open my $src, '<', $path;
my $content = do{ local $/; <$src> };
my $random = '/path/dst';
open my $fh,'>',$random;
print $fh $content;

在perl中复制图像文件

2 个答案: