chat-displayuser.pl

来自「java开发的聊天室」· PL 代码 · 共 27 行

27 行

sub displayuser {
#显示对象
@online      =&readtxtfile($onlinefile,2);
@online      =sort @online;

print "<html><head><title>type</title>\n";
print "<meta http-equiv=refresh content='$reloadxx;$cgiurl?job=displayuser$userinfo'></meta>";
print "</head><body bgcolor=$typeback text=$typeword>\n";
local($temp1)="";
print "<center><form name=user><select  multiple size=20 name='towho'>\n";
print "<option value=''>全部\n";
foreach (@online) {
   ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktimen,$chksecn,$markend,$last)=split(/↑/,$_);
   if (($mark eq "online") && ($markend eq "end")) {
      if ("$chkuserip↑$chkusername↑$chkuserlevel" ne $temp1) {
         print "<option value='$chkusername'";
         print " selected" if ($chkusername eq $towho);
         print ">$chkusername\n" if ($chkusername ne $username);
         print ">自己\n" if ($chkusername eq $username);
      } 
      $temp1="$chkuserip↑$chkusername↑$chkuserlevel";
   } 
}
print "</select></form></center>\n";
print "</body></html>";
}
1;

chat-displayuser.pl - 源码说明

本页面展示了「java开发的聊天室」中的 chat-displayuser.pl 源码文件，采用 PL 编程语言编写，共 27 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与java相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?