程嶏清单9-8.txt

< linux网络编程工具>>配套源码

sub greeting1{ 
   local ($hello) = "How do you do?";
   greeting2();
}
sub greeting2{
   print "$hello";
}
$hello = "How are you doing?";
greeting2();
greeting1();
greeting2();