perl 函数指针

左手的ㄟ右手 2022-08-27 02:29 114阅读 0赞

还是研究perl.  
  
我的意图，是把所有用户界面关注的 perl调用，用一个函数进行包装。  
  
所以，我需要进行一层Wrap.  
  
也就是说，函数要调用函数。  
  
经过与同事几个小时的研究，两人一番讨论。  
  
终于找到了方法。  
  
这里面有两个关键问题，一个是函数指针，另一个是参数。  
  
参数对于PERL来说，真不是问题，这是我这一个多月，感触最深的。是PERL的灵魂。  
  
但函数指针，走了大半天弯路才明白写法：  
  
UIOper::AgentCall( \\& haotestmode::MVpackage,"adf","kjgh");  
  
我一开始，少了前面的取址符。也真是够透豆的。  
  
结果是，先调用了haotestmode::MVpackage，然后说一个参数也没拿到。  
  
好了，代码附上：  
  
test.pl  
  
\#! /usr/bin/perl  
  
use UIOper;  
use haotestmode;  
  
  
UIOper::AgentCall(\\&haotestmode::MVpackage,"adf","kjgh");

\#也可以写成：UIOper::AgentCall(‘haotestmode::MVpackage’,"adf","kjgh");

UIOper.pl  
  
package UIOper;  
\#use haotestmode;  
  
\#comment of mvpackage  
  
%FuncMap=('haotestmode::MVpackage'=>\\&haotestmode::MVpackage);  
  
sub AgentCall  
\{  
my ($a,@xx)=@\_;  
print "AgentCall called.\\n";  
print "@xx\\n";

my $funcptr= $FuncMap\{'haotestmode::MVpackage'\};

\# 也可以写作： my $funcptr= $FuncMap\{$a\};

\#my $funcptr= $a;  
$funcptr->(@xx);  
return 1;  
\}  
1;  
  
haotestmode.pl  
  
\#! /usr/bin/perl  
package haotestmode;  
  
\#comment of mvpackage  
sub MVpackage  
\{  
my ($a, $b)=@\_;  
print "MVpackage called.\\n";  
print "$a,$b\\n";  
return 1;  
\}  
1;

发表评论取消回复

表情：

评论列表（有 0 条评论，114人围观）

还没有评论，来说两句吧...

相关阅读

相关 perl shift_Perl Array Shift（）函数：快速教程

perl shift The shift() function in a [Perl][] script takes the following syntax: [Perl

逃离我推掉我的手/ 2022年12月06日 15:43/ 0 赞/ 137 阅读

相关 Perl String lc（）函数

Starting out with a new [programming language][] can be challenging. Learning the functi

矫情吗；*/ 2022年12月06日 15:42/ 0 赞/ 128 阅读

相关 perl splice_Perl Array Splice（）函数

perl splice The [Perl][] splice function takes the following form: [Perl][]拼接功能采用以下形式：

我会带着你远行/ 2022年12月06日 15:41/ 0 赞/ 163 阅读

相关 perl string_Perl String uc（）函数-快速教程

perl string $STRING = uc($STRING); Perl's uc() function takes a string, makes the

刺骨的言语ヽ痛彻心扉/ 2022年12月06日 15:40/ 0 赞/ 114 阅读

相关 perl array_Perl Array join（）函数

perl array The Perl [programming][] language join() function is used to connect all the

我就是我/ 2022年12月06日 15:39/ 0 赞/ 162 阅读

相关 perl 数组grep_Perl数组Grep（）函数

perl 数组grep The Perl grep() function is a filter that runs a regular expression on each

向右看齐/ 2022年12月06日 15:38/ 0 赞/ 101 阅读

相关 perl 函数指针

还是研究perl. 我的意图，是把所有用户界面关注的 perl调用，用一个函数进行包装。所以，我需要进行一层Wrap. 也就是说，函数要调用函数

左手的ㄟ右手/ 2022年08月27日 02:29/ 0 赞/ 115 阅读

相关函数指针&指针函数

一、在学习arm过程中发现这“指针函数”与“函数指针”容易搞错，所以今天，我自己想一次把它搞清楚，找了一些资料，首先它们之间的定义： 1、指针函数是指带指针的函数，即本质

àì夳堔傛蜴生んèń/ 2022年08月06日 15:25/ 0 赞/ 213 阅读

相关 perl字符串处理函数

1，index position = index (string, substring, position) 返回子串substring在字符串string中的位置，如

刺骨的言语ヽ痛彻心扉/ 2022年03月28日 17:42/ 0 赞/ 285 阅读

相关 Perl 教学函数集

一、进程处理函数 1、进程启动函数 <table> <tbody> <tr> <td>函数名</td> <td>eval</td>

亦凉/ 2021年12月24日 12:15/ 0 赞/ 191 阅读