perl mktemp和echo

Question

我正在尝试通过命令行临时文件创建在临时文件中放入一些单词，但在临时文件中没有超过单词

#!/usr/bin/perl -w
system ('clear');
$TMPFILE = "mktemp /tmp/myfile/devid.XXXXXXXXXX";
$echo = "echo /"hello world/" >$TMPFILE";
system ("$TMPFILE");
system ("$echo");

请帮助解决这个问题

Answer 1

要捕获mktemp输出的名称，请执行以下操作：

chomp($TMPFILE = `mktemp /tmp/myfile/devid.XXXXXXXXXX`);

但是Perl可以在不借助shell的情况下完成您正在做的所有事情。

Answer 2

尽量避免使用perl脚本中的外部命令。

在这种情况下，可以使用：File::Temp模块，请参见this

Answer 3

下面是其他人给出的建议的具体演示:在可能的情况下，直接使用Perl而不是调用system。此外，您应该养成在Perl脚本中包含use strict和use warnings的习惯。

use strict;
use warnings;

use File::Temp;
my $ft = File::Temp->new(
    UNLINK   => 0,
    TEMPLATE => '/tmp/myfile/devid.XXXXXXXXXX',
);

print "Writing to temp file: ", $ft->filename, "\n";

print $ft "Hello, world.\n";