如果在一個(gè)子程序中需要調(diào)用另一個(gè)子程序的返回值時(shí)......

lipch

我寫了兩個(gè)子程序，在寫第二個(gè)子程序的時(shí)候需要調(diào)用第一個(gè)子程序的一個(gè)返回值（該子程序的返回值是一個(gè)哈希的引用），我是否需要將該返回值傳遞給第二個(gè)子程序才能正常調(diào)用？ 不能在第二個(gè)子程序中直接調(diào)用第一個(gè)子程序的返回值嗎？

如下所示, （題外話：但發(fā)現(xiàn)不成功，只有將第一個(gè)子程序的返回傳遞給第二個(gè)子程序才行， 不知有何好的辦法）
$a = p1($_);

@b = p2($c);
#######################

sub  p1 {
express...
return $hashref;
}


sub p2 {
express...

$d = $a->{key};
.....
return @e;

}

perljoker

看了一會兒。。看懂你的意思了，直接調(diào)用就可以啊
比如@b = p2(p1($_));
這樣是沒有問題的吧？
還是我理解錯(cuò)了？

lipch

如下所示, （題外話：但發(fā)現(xiàn)不成功，只有將第一個(gè)子程序的返回傳遞給第二個(gè)子程序才行， 不知有何好的辦法）
$a = p1($_);

@b = p2($c);  ##$c和$a沒有什么關(guān)系，但如果不能在后面直接調(diào)用第一個(gè)子程序的返回值，就只能將這里寫成 @b = p2($c,$a), 這樣寫程序是work的。
#######################

sub  p1 {
express...
return $hashref;
}


sub p2 {
express...

$d = $a->{key}; #本意是想在這里直接調(diào)用$a引用，將其反引用的一個(gè)value傳遞給$d. 由于$a 是一個(gè)全局變量，所以，沒有通過參數(shù)傳遞，但發(fā)現(xiàn)不成功，只能用@b = p2($c,$a)。
.....express.......借助$d獲得最后的@e
return @e;

}

想知道是不是沒有其它的辦法了。

[ 本帖最后由 lipch 于 2007-10-19 16:25 編輯 ]

perljoker

哦，看懂了，你想在子程序中直接使用全局變量

perljoker

我這里可以成功的啊
我胡亂寫了一通，你參考下

1. 
   
2. use strict;        use warnings;
   
3. my $gg="hello\n";
   
4. my $hashref={"ab"=>"AB","cd"=>"CD"};
   
5. sub2(sub1($hashref));
   
6. pr();
   
7. 
   
8. sub sub1{
   
9.         my $hashref=shift;
   
10.         return $hashref;
    
11. }
    
12. 
    
13. sub sub2{
    
14.         my $hr=shift;
    
15.         print $hr->{cd},"\n";
    
16. }
    
17. sub pr
    
18. {print $hashref->{ab};
    
19. }
    

復(fù)制代碼

mouse0301

是不是可以把那個(gè)要傳遞的值 弄成全局變量啊？？？

lipch

原帖由 perljoker 于 2007-10-19 16:44 發(fā)表
我這里可以成功的啊
我胡亂寫了一通，你參考下

use strict;        use warnings;
my $gg="hello\n";
my $hashref={"ab"=>"AB","cd"=>"CD"};
sub2(sub1($hashref));
pr();

sub sub1{
        my $hashref=shift;
...

實(shí)際這樣作也是將子函數(shù)的值傳遞給了另一個(gè)子函數(shù)，我是問能否在子函數(shù)中直接凋用另一個(gè)子函數(shù)的返回值。相當(dāng)于子函數(shù)的返回值是一個(gè)全局標(biāo)題，在另一個(gè)子函數(shù)直接調(diào)用樣。

但不知是否可以，也許從理論上我已經(jīng)錯(cuò)了，新手。