一个外行汉子，向大家请教一小段perl脚本的意思

cschenghang

# Source what the traces are trying to tell us.
verb "$me: running $autoconf to trace from $ARGV[0]";
xsystem ("$autoconf"
  # If you change this list, update the
  # `Autoheader-preselections' section of autom4te.in.
  . ' --trace AC_CONFIG_HEADERS:\'$$config_h ||= \'"\'"\'$1\'"\'"\';\''
  . ' --trace AH_OUTPUT:\'$$verbatim{\'"\'"\'$1\'"\'"\'} = \'"\'"\'$2\'"\'"\';\''
  . ' --trace AC_DEFINE_TRACE_LITERAL:\'$$symbol{\'"\'"\'$1\'"\'"\'} = 1;\''
  . " $ARGV[0] >$tmp/traces.pl");


帮忙解释下xsystem() 这个函数及其参数，谢谢！在线等答案。。。

grshrd49

这是perl代码嘛

cschenghang

是的呀回复 2# grshrd49


   

cschenghang

自己顶一个，大侠停下您的脚步，看看这段代码吧！

zhlong8

verb xsystem 这两个函数谁写的问谁去

stanley_tam

verb和xsystem应该是用户自定义的函数，xsystem应该是执行$autoconf变量所代表的脚本，后面接的是脚本的参数。

1. # Source what the traces are trying to tell us.
   
2. verb "$me: running $autoconf to trace from $ARGV[0]";
   
3. xsystem(
   
4.     "$autoconf"
   
5. 
   
6.       # If you change this list, update the
   
7.       # `Autoheader-preselections' section of autom4te.in.
   
8.       . ' --trace AC_CONFIG_HEADERS:\'$config_h ||= \'"\'"\'$1\'"\'"\';\''
   
9.       . ' --trace AH_OUTPUT:\'$verbatim{\'"\'"\'$1\'"\'"\'} = \'"\'"\'$2\'"\'"\';\''
   
10.       . ' --trace AC_DEFINE_TRACE_LITERAL:\'$symbol{\'"\'"\'$1\'"\'"\'} = 1;\''
    
11.       . " $ARGV[0] >$tmp/traces.pl"
    
12. );
    

复制代码

104359176

Perl 代码以好些难读著称，尤其一些缺少文档的代码。如果没有公开发布，又换了人，基本可以说就废了。

我看还是重写吧。

stanley_tam

确实。强烈建议遵循<<Perl Best Practice>>一书写perl。。。

墨迹哥

我大致看的意思貌似是将输入的值传送到脚本当中。不知道对不对，你可以手动测试下。

感觉意思应该就是这样，
1.将变量中匹配的值读取出来
2.将值传送到traces.pl处理。

不知道对不对，个人愚见。。