点击运行
#!/usr/bin/perl # 全局变量 $string = "Hello, World!"; sub PrintJiyik{ # PrintHello 函数私有变量 local $string; $string = "Hello, Jiyik!"; # 子程序调用的子程序 PrintMe(); print "PrintJiyik 函数内字符串值：$string\n"; } sub PrintMe{ print "PrintMe 函数内字符串值：$string\n"; } sub PrintHello{ print "PrintHello 函数内字符串值：$string\n"; } # 函数调用 PrintJiyik(); PrintHello(); print "函数外部字符串值：$string\n";
运行结果 :
正在执行...
