0

我正在尝试在临时文件中用单引号保存 hello world 我打开临时文件 hello world 显示没有单引号如何解决这个问题

#!/usr/bin/perl -w
chomp($TMPFILE = `mktemp bumatinaskk.XXXXXXXXXX`);
$echo = "echo \'hello word\' >>$TMPFILE";
system ("$echo");
4

1 回答 1

5
use 5.010;
use strict;
use warnings FATAL => 'all';
use autodie;
use File::Temp qw(tempfile);
use IO::File qw();

my ($file_handle, $file_name) = tempfile('bumatinaskk.XXXXXXXXXX', UNLINK => 1);
$file_handle->say(q{'hello world'});
$file_handle->close;
say "wrote into temporary file $file_name";

sleep 30;   # giving you some time to inspect the temporary file

END { say 'temporary file is going to be deleted now' }

文档:File::TempIO::File

于 2011-05-30T13:55:52.967 回答