Perl – 系统命令打印到终端？

概述我正在编写一个Perl脚本,允许我更改终端选项卡的磁贴,但是,每次运行它时,都会在我的终端线上打印“-n -e”.如果我保留这些选项,只需打印一个空白行.有没有什么方法可以在perl中执行系统命令,而且我的终端上没有显示任何代码残留？ 1 #!/usr/bin/perl 2 #sets the title on terminal tabs (mac OSX) 3 4 #use str 我正在编写一个Perl脚本,允许我更改终端选项卡的磁贴,但是,每次运行它时,都会在我的终端线上打印“-n -e”.如果我保留这些选项,只需打印一个空白行.有没有什么方法可以在perl中执行系统命令,而且我的终端上没有显示任何代码残留？

1 #!/usr/bin/perl  2 #sets the Title on terminal tabs (mac OSX)  3   4 #use strict;  5 use warnings;  6    7 #sets Title of term window to input from user.    8 my $textline="\'echo -n -e \"\033]0;";  9 $textline = $textline . "@ARGV" . '
print("3]0;$Title
use IO::Handle qw( );STDOUT->flush();
7");
7"\''; 10  11 system "\'$textline\'";  12

谢谢

解决方法 我想-n和-e会得到回应,因为你的echo版本不能识别这些选项并将它们视为文字文本来回显.

但是你知道吗,Perl有自己的用于回显文本的工具：print.

$| = 1;

您可能需要在之后刷新缓冲区：

如果你不介意关闭缓冲,或者只是以下内容：

PS – 你的引语(”echo …”)毫无意义,但它们会陷入虚无,所以它们不会引起问题.

总结

以上是内存溢出为你收集整理的Perl – 系统命令打印到终端？全部内容，希望文章能够帮你解决Perl – 系统命令打印到终端？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。