保存临时 Word Perl 单引号

发布于 2024-11-10 11:40:04 字数 240 浏览 4 评论 0原文

我正在尝试在临时文件中使用单引号保存 hello world 我打开临时文件 hello world show 不带单引号如何解决这个问题

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

原文

i am trying to save hello world with single quote in temporary file
i open temporary file hello world show without single quote
how to solve this

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

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

你没皮卡萌 2024-11-17 11:40:04

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::文件

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' }

Documentation: File::Temp, IO::File

回复收藏 0 原文

~没有更多了~