参数的传递

nicaijin

1. sub a{
   
2. my ($x1,$y1)=@_;
   
3.     $x1 = 1;
   
4.     $y1 = 2;
   
5. }
   
6. sub b{
   
7.     print $x1;     #打印出来是1;
   
8.     print $y1;     #打印出来是2;
   
9. }

复制代码

怎么实现给参数从一个过程中传递到下一个过程啊，不用our声明。

laputa73

不用our,那就my呗

1. 
   
2. my ($x1,$y1);
   
3. sub a{
   
4.   ($x1,$y1)=@_;
   
5.     $x1 = 1;
   
6.     $y1 = 2;
   
7. }
   
8. sub b{
   
9.     print $x1;     #打印出来是1;
   
10.     print $y1;     #打印出来是2;
    
11. }

复制代码

rubyish

1. sub a {
   
2.     my ( $x1, $y1 ) = @_;
   
3.     $x1 = 1;
   
4.     $y1 = 2;
   
5.     sub {
   
6.         print $x1;
   
7.         print $y1;
   
8.     }
   
9. }
   
10. my $b = a( 11, 22 );
    
11. $b->();

复制代码