如何解决保存Temp Word Perl单引号
| 我试图用单引号将hello world保存在临时文件中 我打开没有单引号的hello world临时文件显示 如何解决这个问题#!/usr/bin/perl -w
chomp($TMPFILE = `mktemp bumatinaskk.XXXXXXXXXX`);
$echo = \"echo \\\'hello word\\\' >>$TMPFILE\";
system (\"$echo\");
解决方法
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 :: Temp,IO :: File
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。