#!/usr/bin/perl # 全局变量 $string = "Hello, World!"; sub PrintW3xue{ # PrintHello 函数私有变量 local $string; $string = "Hello, W3xue!"; # 子程序调用的子程序 PrintMe(); print "PrintW3xue 函数内字符串值：$string\n"; } sub PrintMe{ print "PrintMe 函数内字符串值：$string\n"; } sub PrintHello{ print "PrintHello 函数内字符串值：$string\n"; } # 函数调用 PrintW3xue(); PrintHello(); print "函数外部字符串值：$string\n";