代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/458554/7294080
pl chat-dnd.pl
sub donotdisturb
{
open(DNDFILE,"$filehead$dndfile");
@lines = ;
close(DNDFILE);
#请勿打扰文件格式
#主用户↑user1;user2;user3;
$userid=$username;
foreach $line(@lines) {
($usrid,$d
www.eeworm.com/read/458554/7294081
pl chat-allselect.pl
sub allselect {
@addwordcolor=&readtxtfile($addwordcolorfile) if ($userlevel>=$level_addwordcolor);
@addkuai =&readtxtfile($addkuaifile) if ($userlevel>=$level_addkuai);
@addsays =&readtx
www.eeworm.com/read/458554/7294082
pl chat-writemsg.pl
sub write_message {
#执行录音
require "$chathead/chat-recordit.pl";
&recordit("$_[0]");
&lockfile("$filehead$messagefile");
open(MESSAGE,">>$filehead$messagefile") || die $!;
#flock(MESSAGE,2);
i
www.eeworm.com/read/458554/7294084
pl chat-error.pl
sub error {
&send_html;
$error = $_[0];
#print "Content-type: text/html\n\n";
if ($error eq 'wrong_passwd') {
print "$title ERROR: 密码不正确或名字已被他人登录
www.eeworm.com/read/458554/7294087
pl chat-setcookie.pl
#设置COOKIE
sub setcookie {
$user_name=$username;
$user_pwd=$crypassword;
$user_id=&get_var('userid');
$user_sex=$usersex;
$user_room=$roomtitle;
$user_level=$userlevel;
$userdata=$user_name."__
www.eeworm.com/read/458554/7294089
pl chat-recordit.pl
sub recordit
{
open(RECORDIT,"$filehead$recordit");
@record=;
close(RECORDIT);
if ($record[0]==1)
{
$recordfile="$roomtitle.rec";
open(MESSAGE,">>$recordhead/$recordfile") || die $!;
www.eeworm.com/read/458554/7294090
pl chat-count.pl
sub count
{
$vflag=0;
&lockfile("$filehead$countfile");
open(COUNTFILE,"$filehead$countfile");
@line=;
close(COUNTFILE);
open(COUNTFILE,">$filehead$countfile");
foreach (@line)
{
www.eeworm.com/read/458554/7294091
pl chat-lockfile.pl
sub lockfile {
}
#########################################################################
#########################################################################
sub unlockfile {
}
1;
www.eeworm.com/read/458554/7294092
pl chat-usercount.pl
sub usercount
{
$name=$_[0];
$tempcount=0;
open (CHECKPROFILE, "$memberspath/$name$extcount");
@profile = ;
close (CHECKPROFILE);
@profilestats = split (/｜/, $profile[0]);
www.eeworm.com/read/458554/7294094
pl chat-showhelp.pl
sub showhelp
{
&send_html;
@readme =&readtxtfile($readmefile);
print "$mytitle$myversion";
print "";
print "