函数
#! /usr/bin/perl#传参测试sub hello{ print $_[0];}&hello("hello,world\n");#返回值测试sub max{ if ($_[0] > $_[1]) { return $_[0]; } else { return $_[1]; }}$n = &max(10,23);prin}test(
模拟函数指针
#! /usr/bin/perlsub hello{ print $_[0];}&hello("hello,world\n");#模拟函数指针的测试@funcPointer = (\&hello);$funcPointer[0]->("testing...\n");