在perl中使用的执行系统调用和shell中的输出不同，谁有时间帮我看看啊？

ts99

程序执行：
xxxx#[/tmp]perl aa.pl
Use of uninitialized value in concatenation (.) or string at aa.pl line 2.
   LV Name                     /dev/vg00/lvol1
   LV Name                     /dev/vg00/lvol2
   LV Name                     /dev/vg00/lvol3
   LV Name                     /dev/vg00/lvol4
   LV Name                     /dev/vg00/lvol5
   LV Name                     /dev/vg00/lvol6
   LV Name                     /dev/vg00/lvol7
   LV Name                     /dev/vg00/lvol8

perl 脚本内容：
xxxx#[/tmp]cat aa.pl
#!/usr/bin/perl -w
$temp_lv_list = `vgdisplay -v vg00|grep lvol|awk '{print $3}'`;
print $temp_lv_list;

直接在shell中执行命令，可以得到lvol名的信息，如下：
HA5-BF01#[/tmp]vgdisplay -v vg00|grep lvol|awk '{print $3}'
/dev/vg00/lvol1
/dev/vg00/lvol2
/dev/vg00/lvol3
/dev/vg00/lvol4
/dev/vg00/lvol5
/dev/vg00/lvol6
/dev/vg00/lvol7
/dev/vg00/lvol8

在perl中为什么总有LV name这些无用信息？尝试过给在perl中使用绝对路径的awk，但是结果还是一样的。

mcshell

LZ  你累不。。。在perl调shell。。。

1. vgdisplay -v vg00|perl -lne 'print $1 if /LV\s+Name\s+(\S+)/'

复制代码

huang6894

楼主，你忘记了在perl中调用命令是要转义的！

ts99

hi mcshell,
同你类似的方法我用过，但是不成的，写到perl代码中就不可用。在shell下执行没问题.
vgdisplay -v vg00|perl -lne 'print $1 if /LV\s+Name\s+(\S+)/'
/dev/vg00/lvol1
/dev/vg00/lvol2
/dev/vg00/lvol3
/dev/vg00/lvol4
/dev/vg00/lvol5
/dev/vg00/lvol6
/dev/vg00/lvol7
/dev/vg00/lvol8

HA5-BF01#[/tmp]cat aa.pl
#!/usr/bin/perl -w
#$temp_lv_list = `vgdisplay -v vg00|grep lvol|awk '{print $3}'`;
$temp_lv_list = `vgdisplay -v vg00|perl -lne 'print $1 if /LV\s+Name\s+(\S+)/'`;
print $temp_lv_list;
HA5-BF01#[/tmp]perl aa.pl
Unrecognized escape \s passed through at aa.pl line 3.
Unrecognized escape \s passed through at aa.pl line 3.
Unrecognized escape \S passed through at aa.pl line 3.
Use of uninitialized value in concatenation (.) or string at aa.pl line 3.
HA5-BF01#[/tmp]

我以前测试过：
vgdisplay -v vg00|grep lvol|perl -lane 'print $F[2]'

ts99

多谢huang6894,是转义的问题，多谢\$.

mcshell

回复 4# ts99

1. my $command = `vgdisplay -v  vg00`;
   
2. while( $command =~/LV\s+Name\s+(\S+)/g){
   
3. print $1,"\n";
   
4. }

复制代码

mcshell

LZ 非要这样。。。。

1. $temp_lv_list = `vgdisplay -v vg00|grep lvol|awk '{print \$3}'`;

复制代码

ts99

又遇到问题了，呵呵。脚本内容如下：
HA5-BF01#[/tmp]cat aa.pl
#!/usr/bin/perl
$vgname = "vg00";
@temp_lv_list = `vgdisplay -v $vgname|grep lvol|awk '{print \$3}'`;  # 这部分执行时没有问题
print " @temp_lv_list \n";

foreach $lv_name (@temp_lv_list){
        $stand_result = "Mirror copies               1";
       $check_lv_mirror = `lvdisplay $lv_name | grep Mirror`;#为什么到这里就有问题了呢？

        if($check_lv_mirror =~ /$stand_result/m){
                print "$lv_name mirror is ok \n\n";}
        else{
                print "$lv_name mirror is not ok, please check your VG mirror \n";
                }               
}      
HA5-BF01#[/tmp]


HA5-BF01#[/tmp]perl aa.pl
/dev/vg00/lvol1
/dev/vg00/lvol2
/dev/vg00/lvol3
/dev/vg00/lvol4
/dev/vg00/lvol5
/dev/vg00/lvol6
/dev/vg00/lvol7
/dev/vg00/lvol8

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol1
mirror is ok

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol2
mirror is ok

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol3
mirror is ok

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol4
mirror is ok

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol5
mirror is ok

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol6
mirror is ok

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol7
mirror is ok

sh[2]: Syntax error at line 2 : `|' is not expected.
/dev/vg00/lvol8
mirror is ok

HA5-BF01#[/tmp]

ts99

知道为什么了，$lv_name多了一个换行符