代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/328653/13008828
pl mes_send.pl
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
# 儊僢僙乕僕憲怣張棟 #
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
sub MES_SEND {
if($in{'message'} eq "") { &ERR("没有写消息"); }
if($in{'mes_id'} eq "") { &ERR("没有选择对方")
www.eeworm.com/read/328653/13008842
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/328653/13008855
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/328653/13008859
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/328653/13008865
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/328653/13008871
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/328653/13008881
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/328653/13008895
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/328653/13008899
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/328653/13008901
pl def_buy.pl
#_/_/_/_/_/_/_/_/#
# 彂愋 #
#_/_/_/_/_/_/_/_/#
sub DEF_BUY {
if($in{'no'} eq ""){&ERR("NO:没有选择");}
&CHARA_MAIN_OPEN;
&TOWN_DATA_OPEN("$kpos");
&TIME_DATA;
&HEADER;
$no = $