代码搜索：PL 有哪些应用？
找到约 10,000 项符合「PL 有哪些应用？」的源代码
代码结果 10,000
www.eeworm.com/read/328805/13001055
cpp pl0.cpp
// PL0.cpp : Defines the class behaviors for the application.
//
#include "stdafx.h"
#include "PL0.h"
#include "PL0Dlg.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char T
www.eeworm.com/read/328805/13001067
rc pl0.rc
//Microsoft Developer Studio generated resource script.
//
#include "resource.h"
#define APSTUDIO_READONLY_SYMBOLS
/////////////////////////////////////////////////////////////////////////////
www.eeworm.com/read/328805/13001070
pl0 test.pl0
/* Test.PL0 */
Program abc;
Integer x,y,z;
Real a,b;
Procedure ab(Var m,n:Integer;t:Real);
Begin
t:=n+m;
If m>n then n:=m else t:=m;
While n
www.eeworm.com/read/328653/13008722
pl open_map.pl
#_/_/_/_/_/_/_/_/_/_/_/#
#_/ F MAP 夋柺 _/#
#_/_/_/_/_/_/_/_/_/_/_/#
sub OPEN_MAP {
open(IN,"$MAP_LOG_LIST");
@S_MOVE = ;
close(IN);
$p=0;
while($p
www.eeworm.com/read/328653/13008759
pl new_chara.pl
#_/_/_/_/_/_/_/_/_/_/_/_/#
# NEW_CHARA #
#_/_/_/_/_/_/_/_/_/_/_/_/#
sub NEW_CHARA {
if($CHARA_STOP){ &ERR2("注册成功"); }
if ($in{'id'} =~ m/[^0-9a-zA-Z]/) {&E_ERR("ID 在一半角英国数字以外的包
www.eeworm.com/read/328653/13008766
pl data_send.pl
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
#_/ NEW CHARA DATA 嶌惉 _/#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
sub DATA_SEND {
open(IN,"$TOWN_LIST") or &ERR2("不能找开指定文件夹.");
@TOWN = ;
close(IN
www.eeworm.com/read/328653/13008795
pl cou_change.pl
#_/_/_/_/_/_/_/_/_/#
# 崙曄峏 #
#_/_/_/_/_/_/_/_/_/#
sub COU_CHANGE {
if($in{'sel'} eq "") { &ERR("没有被选择"); }
if($in{'hcon'} eq "$kcon") { &ERR("自己国家是."); }
if($REFREE){
$r_st
www.eeworm.com/read/328653/13008798
pl country_write.pl
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
#_/ 夛媍幒彂偒崬傒 _/#
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
sub COUNTRY_WRITE{
&CHARA_MAIN_OPEN;
&TIME_DATA;
&HOST_NAME;
&COUNTRY_DATA_OPEN("$kcon");
www.eeworm.com/read/328653/13008813
pl king_com.pl
#_/_/_/_/_/_/_/_/#
# 挜暫 #
#_/_/_/_/_/_/_/_/#
sub KING_COM {
&CHARA_MAIN_OPEN;
$dir="./charalog/main";
opendir(dirlist,"$dir");
while($file = readdir(dirlist)){
if($file =
www.eeworm.com/read/328653/13008817
pl country_talk.pl
#_/_/_/_/_/_/_/_/_/#
#_/ 夛媍幒 _/#
#_/_/_/_/_/_/_/_/_/#
sub COUNTRY_TALK {
&CHARA_MAIN_OPEN;
&COUNTRY_DATA_OPEN("$kcon");
if($xcid eq 0){&ERR("无国家不能使用");}
$sno = $kclass / 500;