超诡异的字符串输出求教！！！！

nfwolf

1. #bin\perl!
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use FindBin qw($Bin);
   
6. use lib "$Bin/lib";
   
7. 
   
8. my $project = `grep sysname /home/admin/build/sofa.properties | cut -d= -f2`;
   
9. chomp($project);
   
10. 
    
11. my $rundir = "/home/admin/$project-run/jboss/deploy/$project.ear/core";
    
12. 
    
13. print "rundir is $rundir\n";

复制代码

我在有些机器上输出：
rundir is /home/admin/airmng-run/jboss/deploy/airmng.ear/core

但是在某些linux机器上竟然输出了：
.ear/cores/deploy/airmngrmng

向大家请教是什么原因啊？

chenhao392

grep sysname /home/admin/build/sofa.properties | cut -d= -f2

自己比较shell下两台电脑的输出

nfwolf

grep sysname /home/admin/build/sofa.properties | cut -d= -f2
这个是一样的

chenhao392

唉....那我也不知道了，肯定有什么地方两台电脑是不一样的..
给你annotate一下code，你自己在在两台电脑里比较吧..

#bin\perl!#这里不该是#!/usr/bin/perl ？

次行存储的是解释器的路径，貌似windows下不关心，linux下可能出错

use strict;
use warnings;


use FindBin qw($Bin);
use lib "$Bin/lib";

找到perl的path，再调用里面一个叫做lib.pm 的lib？？
我没见过你调用任何子程序，请确认这两行是否需要

my $project = `grep sysname /home/admin/build/sofa.properties | cut -d= -f2`;
chomp($project);

提取/home/admin/build/sofa.properties文件中含有 sysname的行，按照等号进行切割，只要行中被切割下的第二片段...
假设这一行是sysname=bla, 那么$project变量得到赋值"bla\n";
chomp函数去除行尾的“\n”,变量变为"bla"


my $rundir = "/home/admin/$project-run/jboss/deploy/$project.ear/core";

将变量$project插入到一行文本里，赋值给新的变量$rundir.
假象变量值该是:
/home/admin/bla-run/jboss/deploy/bla.ear/core

print "rundir is $rundir\n";