Perl mktemp 和 echo

发布于 2024-11-07 04:27:30 字数 265 浏览 1 评论 0原文

我正在尝试通过命令行在临时文件中添加一些单词临时文件已创建，但临时文件中的单词未过去，

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

请帮助解决此问题

原文

i am trying to put some word in tempfile via commandline
temp file creat but word not past in tempfile

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

Please Help to Solve This

分享到QQ

分享到微博

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

发布评论

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

情魔剑神 2024-11-14 04:27:30

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

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

但是 Perl 可以完成您正在做的所有事情，而无需求助于 shell。

To capture the name output by mktemp, do this instead:

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

But Perl can do all the things you are doing without resorting to the shell.

回复收藏 0 原文

这个俗人 2024-11-14 04:27:30

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

在这种情况下，您可以使用： File::Temp 模块，请参阅此< /a>

回复收藏 0 原文

美羊羊 2024-11-14 04:27:30

下面是其他人给您的建议的具体演示：在可能的情况下，直接使用 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";

Here's a specific demonstration of the advice that others have given you: where possible, use Perl directly rather than invoking system. Also, you should get in the habit of including use strict and use warnings in your Perl scripts.

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";

回复收藏 0 原文

~没有更多了~