system（）函数如何输出“‘”

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

1^# paminy 发表于 2008-04-30 15:43

system（）函数如何输出“‘”

system("echo '(utt.save utt1 '/root/myfile.utt)' “）出错
请问想要输出“‘”如何做到？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-04-30 16:29

这东西不出错才怪
连'都没有匹配

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

3^# paminy 发表于 2008-04-30 16:45

我就是想输出‘

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

4^# paminy 发表于 2008-04-30 16:48

我想输出(utt.save utt1 '/root/myfile.utt) 撇也要输出！

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

5^# __lxmxn__ 发表于 2008-04-30 17:39

加 \ 转义一下，或者用十六进制表示，多试几次……

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

6^# churchmice 发表于 2008-04-30 18:03

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
my @arg = ( "echo", "'(uut.save utt1 '/root/myfile.utt)'");
system @arg;

QUOTE:

<lig@romeo:~/chinaunix>$ ./system
'(uut.save utt1 '/root/myfile.utt)'

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

7^# paminy 发表于 2008-04-30 21:15

QUOTE:

原帖由 churchmice 于 2008-4-30 18:03 发表

#!/usr/bin/perl
use strict;
use warnings;
my @arg = ( "echo", "'(uut.save utt1 '/root/myfile.utt)'");
system @arg;

谢谢你的热心解答，你的方法是可行的！但是如果要同时把(uut.save utt1 '/root/myfile.utt)输入到另一个文件上呢？

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

8^# paminy 发表于 2008-04-30 22:27

比如 |tee －a dump

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

9^# churchmice 发表于 2008-04-30 23:19

QUOTE:

原帖由 paminy 于 2008-4-30 22:27 发表
比如 |tee －a dump

Try this

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
system("echo \"(uut.save.utt1 '/root/myfile.utt)\" | tee -a dump");

QUOTE:

<lig@romeo:~/chinaunix>$ ./system
(uut.save.utt1 '/root/myfile.utt)
<lig@romeo:~/chinaunix>$ cat dump
(uut.save.utt1 '/root/myfile.utt)

Hope this is what you want.
需要注意\",表示该处的"是传递给sh的

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

10^# churchmice 发表于 2008-04-30 23:29

其实这个问题在于()造成的歧义
见下面的实验
你直接在sh里面的话用backslash就可以解决

QUOTE:

<lig@romeo:~/chinaunix>$ echo (a.b)
-bash: syntax error near unexpected token `a.b'
<lig@romeo:~/chinaunix>$ echo $a.b$
(a.b)
<lig@romeo:~/chinaunix>$ echo $a.b'$
>
<lig@romeo:~/chinaunix>$ echo $a.b\'$
(a.b')

因而也可以用如下的代码实现：
只是需要注意首先perl会进行一次interpolation（因为"")，然后再是sh

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
system("echo \$uut.save.utt1 \\'/root/myfile.utt\$ | tee -a dump");

运行结果是一样的
当然下面的代码也是可行的

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use warnings;
system('echo $uut.save.utt1 \\\'/root/myfile.utt$ | tee -a dump');