perl中调用shell变量

q496518957

脚本形式如下

#!bin/sh
a=b
#!perl
system "$a/aa.sh"

在perl需要使用$a这个变量，请问各位怎样调用？

只爱睡觉

看不懂你到底想写啥。。。

ecjtubaowp

同问......

Perl_Er

回复 1# q496518957


    别搞混了shell perl

q496518957

就是在shell中嵌套了perl，然后在perl中想调用上面shell的变量！

kk861123

q496518957 发表于 2012-05-10 12:50
就是在shell中嵌套了perl，然后在perl中想调用上面shell的变量！

能想到的是使用文件传递

Perl_Er

要不你在shell里面print出来，给perl处理吧

jason680

回复 1# q496518957

shell: $a
perl: $ENV{'a'}
   

kk861123

想到一个方法
shell输出至STDOUT
a.sh

1. #!bin/sh
   
2. echo "a=b"

复制代码

perl使用管道得到读取后再解析成需要的变量
b.pl

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open(INPUT,"a.sh |") or die($!);
   
6. chomp(my $command = <INPUT>);
   
7. if ($command =~ /(\S+)=(\S+)/) {
   
8.         no strict 'refs';
   
9.     ${$1} = $2;
   
10. }
    
11. print $a,"\n";

复制代码

kk861123

jason680 发表于 2012-05-10 14:29
回复 1# q496518957

shell: $a

这样可以吗？我刚才试过了，不行啊