代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/458554/7294095
pl chat-func.pl
sub return_func {
print "";
print "";
print "Func\n";
print "\n";
print "function likai() {\n";
print "if(c
www.eeworm.com/read/458554/7294097
pl chat-online.pl
sub showonline
{
&send_html;
require "$chathead/chat-usercount.pl";
#require "$chathead/chat-config.pl";
$totalusers=0;
$totalgirl=0;
$totalboy=0;
print "$mytitle$myversio
www.eeworm.com/read/458554/7294099
pl chat-showmsg.pl
sub message_show {
$chkname1=$chkusername;
#$chkusername= "$chkusername";
#$chktowho="
www.eeworm.com/read/458554/7294100
pl chat-counter.pl
#文本计数器
sub counter
{
open(COUNTFILE,"$filehead$counter");
@line=;
close(COUNTFILE);
$tcount=$line[0];
$tcount=0 if($tcount eq '');
$tcount=$tcount+1;
open(COUNTFILE,">$filehead$cou
www.eeworm.com/read/458554/7294101
pl chat-admin.pl
sub showallusers
{
#显示所有在线用户
$temp="setkick";
print "用户管制\n";
print "\n";
print "
www.eeworm.com/read/458554/7294102
pl chat-displayuser.pl
sub displayuser {
#显示对象
@online =&readtxtfile($onlinefile,2);
@online =sort @online;
print "type\n";
print "
www.eeworm.com/read/458554/7294105
pl chat-writeonline.pl
sub write_online {
@online=&readtxtfile($onlinefile,2);
@online=sort @online;
local($temp1)="";
local($temp2)= 0;
&lockfile("$filehead$onlinefile");
open(ONLINE,">$filehead$onlinefile") || die $
www.eeworm.com/read/458554/7294106
pl chat-userinfo.pl
sub adduserinfo
{
$tempinfo=$_[0];
@allday=(31,28,31,30,31,30,31,31,30,31,30,31);
$name=$username;
open (CHECKPROFILE, "$memberspath/$name$extcount");
flock(CHECKPROFILE,2);
@profile =
www.eeworm.com/read/458554/7294107
pl chat-adver.pl
sub return_adver {
@adver=&readtxtfile($adverfile,1);
srand;
$ram=int(rand($#adver+1));
($mark,$chkadverfile,$markend,$last)=split(/↑/,$adver[$ram]);
@adverfile=&readtxtfile($chkadverfile,1);
www.eeworm.com/read/458554/7294115
pl chat-chkdnduser.pl
sub chkdnduser
{
&lockfile("$filehead$dndfile");
open(DNDFILE,"$filehead$dndfile");
@lines = ;
close(DNDFILE);
&unlockfile("$filehead$dndfile");
#请勿打扰文件格式
#主用户↑user1;user2;use