代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/319513/13449913
pl town_def.pl
#_/_/_/_/_/_/_/_/_/_/#
# 忛偺庣旛 #
#_/_/_/_/_/_/_/_/_/_/#
sub TOWN_DEF {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
&CHARA_MAIN_OPEN;
&TIME_DATA;
open(IN,"./charalog/command/$kid.cg
www.eeworm.com/read/319513/13449917
pl move2.pl
#_/_/_/_/_/_/_/_/_/_/#
# 堏摦俀 #
#_/_/_/_/_/_/_/_/_/_/#
sub MOVE2 {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
if($in{'num'} eq ""){&ERR("没有选择移动的方向");}
&CHARA_MAIN_OPEN;
&TOWN_DATA
www.eeworm.com/read/319513/13449918
pl buy2.pl
#_/_/_/_/_/_/_/_/_/_/#
# 暷攧攦 #
#_/_/_/_/_/_/_/_/_/_/#
sub BUY2 {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
if($in{'num'} eq ""){&ERR("没有选择买卖.");}
if($in{'type'} eq ""){&ERR("没有选择买
www.eeworm.com/read/319513/13449920
pl rice_give.pl
#_/_/_/_/_/_/_/_/_/_/#
# 暷 巤 偟 #
#_/_/_/_/_/_/_/_/_/_/#
sub RICE_GIVE {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
&CHARA_MAIN_OPEN;
&TIME_DATA;
open(IN,"./charalog/command/$kid.
www.eeworm.com/read/319513/13449922
pl get_sol.pl
#_/_/_/_/_/_/_/_/#
# 挜暫 #
#_/_/_/_/_/_/_/_/#
sub GET_SOL {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
&CHARA_MAIN_OPEN;
&TIME_DATA;
&HEADER;
$no = $in{'no'} + 1;
$get_sol =
www.eeworm.com/read/319513/13449925
pl get_man.pl
#_/_/_/_/_/_/_/_/#
# 搊梡 #
#_/_/_/_/_/_/_/_/#
sub GET_MAN {
if($in{'no'} eq ""){&ERR("NO:没有输入");}
&CHARA_MAIN_OPEN;
&TOWN_DATA_OPEN("$kpos");
&COUNTRY_DATA_OPEN("$kcon");
$
www.eeworm.com/read/319513/13449929
pl tanren2.pl
#_/_/_/_/_/_/_/_/_/_/#
# 抌楤俀 #
#_/_/_/_/_/_/_/_/_/_/#
sub TANREN2 {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
if($in{'num'} eq ""){&ERR("没有选择锻炼对方");}
&CHARA_MAIN_OPEN;
&TOWN_D
www.eeworm.com/read/319513/13449930
pl arm_buy.pl
#_/_/_/_/_/_/_/_/#
# 晲婍 #
#_/_/_/_/_/_/_/_/#
sub ARM_BUY {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
&CHARA_MAIN_OPEN;
&TOWN_DATA_OPEN("$kpos");
&TIME_DATA;
&HEADER;
$no = $
www.eeworm.com/read/319513/13449931
pl def_buy.pl
#_/_/_/_/_/_/_/_/#
# 彂愋 #
#_/_/_/_/_/_/_/_/#
sub DEF_BUY {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
&CHARA_MAIN_OPEN;
&TOWN_DATA_OPEN("$kpos");
&TIME_DATA;
&HEADER;
$no = $
www.eeworm.com/read/319513/13449932
pl battle2.pl
#_/_/_/_/_/_/_/_/_/_/#
# 愴憟俀 #
#_/_/_/_/_/_/_/_/_/_/#
sub BATTLE2 {
if($in{'no'} eq ""){&ERR("NO:没有选择.");}
if($in{'num'} eq ""){&ERR("没有选择的攻击国家.");}
&CHARA_MAIN_OPEN;
&TOWN_