代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/458554/7294067
pl chat-returnmsg.pl
#【】
sub return_message {
open(DNDFILE,"$filehead$dndfile");
@lines = ;
close(DNDFILE);
#请勿打扰文件格式
#主用户↑user1;user2;user3;
$userid=$username;
foreach $line(@lines) {
($
www.eeworm.com/read/458554/7294069
pl chat-returnonline.pl
sub return_online {
$usersum=0;
$temp="online";
print "";
print "";
print "在线名单\n";
print "
www.eeworm.com/read/458554/7294070
pl chat-login.pl
sub login
{
&send_html;
print "$mytitle$myversion\n";
print
www.eeworm.com/read/458554/7294071
pl chat-chkuserpwd.pl
sub checknamespace
{
$name=$username;
$length1=length($name);
#去掉NAME中的空格
$name=~s/ //g;
$name=~s/
www.eeworm.com/read/458554/7294072
pl chat-filter.pl
############################################
#脏话过滤
sub filter {
$mypara=$_[0];
$badword_found = 0;
# @badwords=('sex','xxx','fuck','shit','TMD','他妈的','她妈的','你妈的','操死你','日死你');
# Fetch the
www.eeworm.com/read/458554/7294074
pl chat-returnwhole.pl
sub return_whole {
print "$mytitle$myversion--$roomtitle\n";
print "\n";
print "function choosename(str){\n";
print " this.type.document.sett
www.eeworm.com/read/458554/7294077
pl chat-logout.pl
sub return_logout {
#清请勿打扰名单
require "$chathead/chat-actdnd.pl";
&deldnd;
&send_html;
print "$mytitle$roomtitle\n";
if ($changelogouturl ne "") {$logouturl=$changelo
www.eeworm.com/read/458554/7294078
pl chat-chkusers.pl
#检测是否已被踢出
sub check_users
{
$name=$username;
open (CHECKPROFILE, "$memberspath/$name.txt");
@profile = ;
close (CHECKPROFILE);
@profilestats = split (/｜/, $profile[0]);