程嶏清单9-8.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 12 行

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