E-COM-NET
首页
在线工具
Layui镜像站
SUI文档
联系我们
推荐频道
Java
PHP
C++
C
C#
Python
Ruby
go语言
Scala
Servlet
Vue
MySQL
NoSQL
Redis
CSS
Oracle
SQL Server
DB2
HBase
Http
HTML5
Spring
Ajax
Jquery
JavaScript
Json
XML
NodeJs
mybatis
Hibernate
算法
设计模式
shell
数据结构
大数据
JS
消息中间件
正则表达式
Tomcat
SQL
Nginx
Shiro
Maven
Linux
PERL学习笔记
Learning
Perl学习笔记
(1)第二章Scalar Data
简单的记录了书里的小例子,以及章节后的练习题的脚本。IfControlStructure(IF循环)脚本如下:#!/usr/bin/perlusewarnings;usestrict;usev5.24;my$line=;#这里变量前必须加上my,不知道是不是版本的原因,书里没有加my;但是这里如果不加就会报错if($lineeq"\n"){print"Thatwasjustablankline!\
生信start_site
·
2023-10-19 03:45
Learning
Perl学习笔记
(7)第八章 使用正则表达式进行matching
第一题Usingthepatterntestprogram,makeapatterntomatchthestringmatch.Trytheprogramwiththeinputstringbeforematchafter.Doestheoutputshowthethreepartsofthematchintherightorder?脚本:#!/usr/bin/perlusewarnings;us
生信start_site
·
2023-10-03 12:39
Learning
Perl学习笔记
(8)第九章 Processing Text with Regular Expressions
本章主要内容是利用正则表达式进行文本的处理。本篇笔记示例内容均摘自LearningPerl第七版英文原版。(一)使用s///进行替换格式一般是:s///比如:$_="He'soutbowlingwithBarneytonight.";s/Barney/Fred/;#将文本里的字符串里的Barney替换成Fredprint"$_\n";(1)使用/g进行全局替换默认情况下,s///只进行一次替换。使
生信start_site
·
2023-09-29 04:50
perl 中单引号双引号的区别-----
perl学习笔记
在perl中给字符串加引号有两种:1)单引号:e.g.print'IMISSYOU"SOMUCH"';它将单引号中的内容包括双引号完整输出,同时即使引号中包含了变量或标量,都将被作为字符处理,如下$a=5;print'$a';结果将输出$a。2)双引号如果用下面的语句print"IMISSYOU"SOMUCH"";解释器讲提示错误,而下句print"IMISSYOU/"SOMUCH/"";通过反斜
zzzmmmkkk
·
2023-08-13 10:07
脚本语言
perl
qq
Perl学习笔记
-5
一.文件测试获得帮助perldoc-f-e测试应用#-e测试文件是否存在die"Oops!Afilecalled'$filename'alreadyexists.\n"if-e$filename;#-M文件最后一次修改时间到当前时刻之间的天数warn"Configfileislookingprettyold~\n"if-MCONFIG>28;#-s返回文件的字节大小-A文件最后一次访问到当前时刻的
beeworkshop
·
2023-08-11 17:37
perl
perl
Learning
Perl学习笔记
(4)第五章 Input and Output
课后练习第一题Writeaprogramthatactslikecat,butreversestheorderoftheoutputlines.(Somesystemshaveautilitylikethisnamedtac.)Ifyourunyoursas./tacfredbarneybetty,theoutputshouldbealloffilebettyfromlastlinetofirst
生信start_site
·
2023-04-18 08:23
perl注释快捷键_[转]
Perl学习笔记
符号方括号表示多重性好用的模块面向对象MooseMooseXMouseMooMo#轻量Class::StructClass::AccessorClass::Accessor::Fast#转换类的属性变成方法,可以方便的操作Class::StdClass::MethodMaker语法解析Parse::RecDescent(不推荐,太慢)Parse::YappParse::Eyappperl-byac
weixin_39926016
·
2023-04-13 03:43
perl注释快捷键
Learning
Perl学习笔记
(2)第三章Lists and Arrays
foreachControlStructure遍历数组中的每一个元素,然后执行花括号里的命令:#!/usr/bin/perlusewarnings;usestrict;usev5.24;foreachmy$rock(qw/bedrockslatelava/){print"Onerockis$rock.\n";}$./practice.plOnerockisbedrock.Onerockisslat
生信start_site
·
2023-04-05 21:24
Perl学习笔记
--子程序
格式定义子程序的格式为sub子程序名{表达式;}注意:子程序的定义是全局的如果定义的两个子程序是重名的,后面的子程序会覆盖先前的调用子程序可以在表达式中使用子程序名来调用$marine;#打印Hello!submarine{print"Hello!\n";}在子程序的调用时,会看到有marine和&marine两种方式,区别在于:marine调用,子程序要出现在被调用出之前,这点类似于C语言,调用
行走的BUG永动机
·
2021-07-02 10:21
Learning
Perl学习笔记
(9):Strings and Sorting
本篇笔记是LearningPerl第七版第14章部分内容在LearningPerl这本书的刚开始,作者提到perl是一个很好的用来解决文本工作的编程语言,这一章主要讲的就是对文本的一些处理操作。(一)利用index寻找字符串中的substringindex功能可以帮助我们在字符串中寻找某一个部分的定位。举个简单的例子:my$stuff="Howdyworld!";my$where=index($s
生信start_site
·
2020-12-01 08:53
Learning
Perl学习笔记
(6)第七章 正则表达式
这一章是很重要的,几乎整章都是要点,而且知识点比较零碎,但是很好理解。课后练习第一题Makeaprogramthatprintseachlineofitsinputthatmentionsfred.(Itshouldn’tdoanythingforotherlinesofinput.)DoesitmatchifyourinputstringisFred,frederick,orAlfred?Mak
生信start_site
·
2020-11-02 02:07
Learning
Perl学习笔记
(5)第六章 Hashes
课后练习第一题Writeaprogramthatwillasktheuserforagivennameandreportthecorrespondingfamilyname.Usethenamesofpeopleyouknow,or(ifyouspendsomuchtimeonthecomputerthatyoudon’tknowanyactualpeople)usethefollowingtab
生信start_site
·
2020-10-30 08:21
Learning
Perl学习笔记
(3)第四章:子程序
本章要点:(1)在perl里,&fred和$fred虽然名字一样,但是是两种东西。一个是调用名为fred的子程序;一个是名为fred的标量。(2)用sub来定义子程序,并用{}来界定子程序的内容。(3)如果你在一个脚本里定义了两个名字相同的子程序,第二个将会覆盖第一个。(4)调用子程序,使用&字符。比如:&marine。但是这个符号是可以省略的,除非你的子程序名字与perl的内置函数名字相同,如果
生信start_site
·
2020-10-26 08:02
Perl学习笔记
(三)
第十五章:Perl模块Q1:什么是Perl模块,它主要包括哪些?各模块主要的作用是什么?如何使用?答:Perl模块跟JAR包,C库一样,是具有特定用途的程序,可供开发者直接调用,可通过如下语句查找某一模块是否已经安装:$perldocCGI需要Perl发布包中没有的模块,可以在CAPN上:http://search.cpan.org,或kobes’上:http://kobesearch.cpan.
Jarson
·
2020-08-14 00:37
Perl
Perl学习笔记
(2)——模式匹配和正则表达式
模式匹配和正则表达式一、模式匹配1.1模式匹配的特殊字符1.2字符集1.3模式匹配操作符1.4锚位1.5绑定操作符=~1.6模式串中的变量内插1.7捕获变量二、用正则表达式进行文本处理2.1文本替换2.2split操作符2.3join函数2.4列表上下文中的m//三、在命令行执行Perl四、模式匹配和正则表达式的例子4.1产生这样例子的perl4.2例子所要求文本处理的Perl一、模式匹配模式是指
zgezi
·
2020-08-14 00:35
Perl
脚本语言
Perl学习笔记
(1)——基础语法
Perl学习笔记
(1)——基础语法OverviewPerl简介Perl的安装基本语法标量数字字符串字符串操作符标量变量标量变量内插操作符undef值和defined函数列表和数组列表的定义及初始化数组元素及其索引值列表赋值数组和列表操作符标量上下文和列表上下文
zgezi
·
2020-08-14 00:35
数字IC设计
脚本语言
perl
Perl学习笔记
(3)——控制结构/文件/排序/进程管理
Perl学习笔记
(3)一、控制结构1.1unless结构1.2until结构1.3elsif1.4++/-\-1.5循环控制1.6"?
zgezi
·
2020-08-14 00:35
脚本语言
Perl
perl学习笔记
(4)
这次学习一维数组(列表)。给数组变量赋值以@开头。一维数组索引从0开始。用$#来取得数组最后一个元素编号(元素个数要加1),例如#$family。赋值运算符左边的表达式类型决定右边的表达式计算时所在的上下文。例如,$size=@family;可取得数组family元素的个数。例如,if(@family){...}中的上下文是布尔值,将判断@family中元素个数,为0时false,有元素时为tru
weixin_33881041
·
2020-08-13 21:25
perl学习笔记
(4)——动态加载
在写perl的时候,如果要应用到各种平台的话,比如linux和windows,会遇到各种问题,有时就是要根据系统类型来加载各种库,之前写的就是这样的,if($^Oeq'linux'){useXXX::xxx;}elsif($^Oeq'MSWin32'){useXXX1::xxx1;}结果是错的,perl提示没有找到XXX这个模块,看来,这里用use的话,perl是回去查找XXX的,就算你没有真的使
weixin_30852419
·
2020-08-13 21:21
perl学习笔记
——正则表达式
正则表达式简单模式:匹配$_中的内容,只需要将模式写在一对斜线(/)中就可以了。如:#!/usr/bin/envperluse5.010;$_="yabbadabbadoo";if(/abba/){say"itmatched!";}关于元字符和shell中的差不多:.==>任意字符;*==>重复0次及其0次以上;+==>重复一次及一次以上;?==>重复0次或一次;模式分组在正则表达式中,用圆括号(
1361976860
·
2020-08-13 20:03
Perl学习笔记
(4)
算术操作符:双目运算符$a+$b加法将$a和$b相加$a-$b减法将$a和$b相减$a*$b乘法$a和$b的积$a/$b除法$a和$b的相除$a%$b模$a被$b除的余数$a**$b幂取$a的$b次幂字符串操作符:连接操作符:Perl定义了一个分隔操作符(.)来完成字符串的串联,这样就不会跟数字的加号相混淆。重复操作符:采用分隔操作符(x)文件测试操作符:例子名字结果-e$a存在如果在$a中命名的
jjjkl81
·
2020-08-13 15:35
个人随笔
perl学习笔记
总体感觉perl不是很难,基本的程序思想和C,JAVA都差不多,在标量上的定义,只有数字和字符串两种。变量定义很特别用$加变量名,本以为JAVASCRIPT已经很随意了,现在发现PERL更是随意。看到的那文档有两句话让我好笑:•如果某个元素看上去是个数字,那么Perl在需要数字时可以将它用作数字。•如果某个元素看上去是个数字,那么当Perl需要一个字符串时,它可以使用数字的字符串表示法。值得注意的
ifloveher
·
2020-08-13 14:19
perl学习笔记
4 z
1.代码块标签对任何循环块来说,除了do/while或者do/until结构外,他们都可以设置一个“标签”(Label)。除了来对代码块作简要说明之外,这个标签还可以做next;last和redo等循环控制命令的一个“目的地”或“目标”使用。注意,在指定标签名的时候,在它后面要跟一个冒号;且标签一般使用大写。例如:OUTER:循环块{}2.裸块:“裸块”是一种包含了零行或多行代码的代码块,用一对花
KataDoc360
·
2020-08-13 11:39
ALL
Perl
Perl学习笔记
(4)——应用实例
Perl学习笔记
(4)--应用实例例1--Perl顶部信息自动生成例2--分析仿真结果例3--打包IP的测试用例产生用例的应用环境打包IP的测试用例例1–Perl顶部信息自动生成#!
zgezi
·
2020-08-13 11:05
脚本语言
Perl
Perl学习笔记
3——哈希
哈希的概念与性质哈希是Perl中的第三种数据结构,又称关联数组。其与数组具有一定的相似性,许多特性可以与数组形成类比。哈希同数组一样,可以容纳任意多的元素并按需取用。哈希与数组最大的不同之处在于索引方式。在数组中,数组元素以索引值来索引,而在哈希中,用于索引的是一个任意的字符串,这个字符串就称为哈希键,其对应的值就称为哈希值。所以哈希就是由许多哈希键-值对所组成的一个数据集合。哈希键具有唯一性,即
樱雨楼
·
2020-07-27 21:54
Perl学习笔记
5——高级Perl技巧:切片、grep与map初步
列表切片在一个列表中,特别是由函数返回的列表中,有时往往只需要取出其中的某几个元素使用。比较一般的办法是将此列表存入一个数组中,然后通过索引值来取出数组元素。但这样的做法会引入一个新的数组,且除了取用的元素以外,其他的元素都没有用处,从而造成了资源上的浪费。Perl可以将一个列表直接当作一个数组使用,可以使用下标表达式来取出其中的一个或多个元素,这样的操作就称为列表切片。由于列表可以直接被当作数组
樱雨楼
·
2020-07-12 13:12
perl学习笔记
Unix&PerlPerl是什麽东西呢?Manual上是这样写的:PracticalExtractionandReportLanguage它原始的目的就是用来取代UNIX原有的sed/awk与shellscript的组合,用来汇集资讯,产生报表的一个工具语言(程式)。不过随着版本的改进,功能越来越强,现在的功能已经超乎原先设计时的想像,几乎任何事都可以做到,也变成每一部UNIX工作站必备的标准工具
Ivy_yayaxueyu
·
2020-07-06 15:26
perl
Perl学习笔记
2——列表与数组
列表和数组的概念与性质列表是Perl中的第二种数据结构,是一组标量的有序集合。数组是存储列表的容器,是一种可以存储列表中的多个标量值的变量,即数组变量。数组变量同标量变量,其中的每个值均可不断改变,但数组的名称是不变的。列表不一定存放在数组中,但每一个数组肯定包含一个或多个列表。列表和数组中的每一个元素都是一个独立的标量,其值都互不相干,可以为任意类型的标量值。但最常见的是相同类型的一组数据组成的
樱雨楼
·
2020-06-24 09:49
Perl学习笔记
(一)
最近开始实习开始学习小骆驼书qwq首先注意一个历史遗留问题:另一种语言Perl6,在开始设计的时候是希望将它作为Perl5的新版,但人们渐渐发现它有很多特性都发生了变化,基本成为了一种新的语言,所以不再改名字,直接用Perl6代替这种新的语言。如果我们说的是Perl,那么它默认的是Perl5。Perl语言:实用摘录与报表语言(PracticalExtractionandReportLanguage
kk123esw
·
2020-06-24 01:26
perl
Perl学习笔记
(二)
标量数据perl的数据类型非常简单,第一种数据类型称为scalar(标量),一般用于表示数字或者字符串。两种标量的使用:一种是标量数据,表示数据的值;一种是标量变量,表示存储标量数据的容器。Perl处理数字时使用的是底层C库,且统一使用双精度浮点数来存储和计算数据(双精度浮点数,使用8字节,共64位来存储一个浮点数)整数直接量:就是在源代码中直接写成数据内容的形式。写法如下:02001-40137
kk123esw
·
2020-06-24 01:26
perl
perl学习笔记
之(一)
第一次在记笔记,就当做自己的学习笔记最近在学习perl语言正则表达式章,几个感觉大彻大悟的问题在这里记录下省得自己忘记了1、前瞻(?=pattern?!pattern)和后顾(?<=pattern?
小Gentoo爱好者
·
2020-04-09 10:09
Perl学习笔记
10——正则表达式(下)
捕获组与反向引用在正则表达式中,圆括号的一大作用是进行模式分组,而其还有另一个非常重要的作用,即定义捕获组。捕获组是由捕获圆括号构建的模式分组,其中的内容可以被正则表达式捕获并进行反向引用。反向引用的意思即引用某捕获组中已经捕获到的某些内容,其简单写法为反斜线加捕获组编号。例:/(..)\1/#使用圆括号构造一个捕获组,并反向引用上例中,圆括号构建了一个捕获组,首先由通配符进行匹配,如果匹配到了a
樱雨楼
·
2019-11-04 02:51
Perl学习笔记
之CPAN使用介绍
CPAN(ComprehensivePerlArchiveNetwork:全面的Perl存档网络)是查找任何Perl有关的东西的中心仓库。它包含从整个Perl社区收集来的智慧:成百上千的Perl模块和脚本,相当于好几本书的文档,以及整个Perl发布。如果有东西是用Perl写的,而且这个东西很有用而且是自由的,那么它很有可能就在CPAN上。CPAN在全世界都有镜象,你可以在位于http://www.
·
2019-09-22 17:46
Perl学习笔记
之文件操作
Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作。1.打开文件#!c:/perl/bin/perl-wuseutf8;usestrict;usewarnings;my$filename='test.txt';#或者用绝对路径,如:c:/perl/Learn/test.txtif(open(MYFILE,$filename))#MYFILE是一个标志{printf"Canopen
·
2019-09-22 16:09
Perl学习笔记
-1
CPAN网站https://metacpan.org/perl脚本语言时大小写敏感的。perl脚本的shebang[ʃɪˈbæŋ]行whichperl#!/bin/perl#!/usr/bin/perl分号的作用是分隔不同的perl语句,而不是断行。第一个样例#!/usr/bin/perl@lines=`perldoc-u-fatan2`;foreach(@lines){s/\w]+>/\U$1/
beeworkshop
·
2019-08-04 01:21
perl
Perl学习笔记
(第三章.列表与数组)
1.列表与数组1.列表与数组的关系:列表是指标量的有序集合,而数组是存储列表的变量。2.Perl中对于数组的访问和C语言一样,下标也是从0计数。数组变量的名称以字符@开头。2.列表直接量列表直接量可以由圆括号内用逗号隔开的一串数据表示,而这些数据就称为列表元素。例如:(1,3,5)#包含1、3、5这三个元素的列表("fred",4.5)#两个元素,"fred"和4.5()#空列表--0个元素(1.
why_cant_i_change
·
2018-11-11 16:50
perl
Perl学习笔记
7——子程序
定义子程序Perl中有许多内置的系统函数,如chomp、sort、print等,每一个这样的函数都可以实现各种不同的操作。Perl也可以让用户根据需要自己创建子程序,来实现各种特定操作。一个完整的子程序同Perl的内置函数或操作符一样,由子程序名称以及子程序的代码所组成。子程序名属于Perl标识符范畴,并拥有独立的名字空间。子程序名应尽量不与Perl中自带的操作符或函数同名,否则易引起混淆和错误。
樱雨楼
·
2018-06-18 08:00
Perl学习笔记
6——其他控制结构
unless控制结构在if控制结构中,如果条件表达式返回真,就执行代码块。而unless控制结构与if相反,只有当条件表达式为假时,才执行代码块。即除非条件表达式为真,否则就执行代码块。unless可以用在一些正向条件表述很困难的情况下。unless也可伴随else语句,从语法上没有错误,但语义上很容易造成混淆,故一般不推荐这种写法。例:unless($_==1){print}#除非$_的值等于1
樱雨楼
·
2018-06-18 08:19
Perl学习笔记
9——正则表达式(上)
正则表达式简介Perl最重要的一大特色就是对正则表达式的强力支持,这些支持提供了强大且灵活的字符串处理能力。正则表达式实质上是Perl内嵌的,自成一体的微型编程语言。其不只是Perl的一部分,在很多其他语言中也都有应用。Perl中,正则表达式通常简称为模式。正则表达式是具有一定特征的一个模板,任意的字符串都可以与其匹配,且只有两种匹配结果:匹配或不匹配。所以正则表达式常用于布尔上下文中,从而使其匹
樱雨楼
·
2018-06-18 08:29
Perl学习笔记
8——高级排序与简单的字符串处理
高级排序在前文中已介绍了排序函数sort的简单用法,即直接使用sort函数对一个列表中的元素进行排序。但这种用法有一个很明显的不足,即用户无法自定义排序规则,而只能以sort默认的规则进行排序。Perl中可以通过建立排序子程序来自定义排序规则。事实上,不管是怎样的排序算法,其最终进行的都是元素的两两比较,并根据比较结果确定两个元素的先后,最终确定所有元素的先后。Perl会自动完成这些步骤,而排序子
樱雨楼
·
2018-06-17 17:03
Perl学习笔记
4——I/O、文件测试、目录操作
文件句柄的概念在Perl中,文件句柄就是一个程序与外界文件间的I/O联系的名称,又可以理解为一种通道。即一个文件句柄建立了程序本身与外界某一文件之间的一个专用联系通道,这种联系可以为读取、输出以及其他方式,而文件句柄本身就是这个通道的名称。在一般程序中,文件句柄名使用全大写裸字,属于Perl标识符。在大型程序中,文件句柄也可以存放在标量变量中,即使用标量变量文件句柄。Perl中保留有六个特殊文件句
樱雨楼
·
2018-06-17 17:34
Perl学习笔记
1——标量数据与perl初步
标量的概念Perl使用标量来称呼单个事物,标量是Perl中最简单的一种数据类型。标量可分为两种:数字和字符串。在Perl程序内部,这两种类型是可以内部转换的,所以对于Perl来说,所有的标量没有本质区别。数字直接量数字直接量是某个数字在Perl源代码中的写法,分为浮点数直接量与整数直接量,分别表示浮点数与整数。其写法与普通的数字没有明显区别。当数字很长时,可以在数字中加入下划线分隔,这样做不会改变
樱雨楼
·
2018-06-16 11:58
perl学习笔记
1
perl学习笔记
11.perl语言的输入单行大文件的处理:my$oneline=或while($line=){}读取全部(小文件的处理)open(my$in,"path")ordie"openerror
Doris_xixi
·
2018-05-10 11:03
perl
perl学习笔记
1
perl学习笔记
11.perl语言的输入单行大文件的处理:my$oneline=或while($line=){}读取全部(小文件的处理)open(my$in,"path")ordie"openerror
Doris_xixi
·
2018-05-10 11:03
perl
Perl学习笔记
整理
Perl设计之初就是为了方便编写复杂高效的系统脚本,它也是应该最为广泛的脚本编程语言。它在编程方面相当于瑞士军刀,对字符、文本文件处理能力很强,用作文本处理比较好,可以作为系统的辅助工具。perl最大的优势在于它的字符串模式匹配能力,其提供了一个十分强大的正则表达式匹配引擎。缺点是语言的晦涩和对符号语法的过度使用。api:http://www.runoob.com/perl/perl-enviro
huawangxin
·
2017-05-07 22:50
Linux&Unix
Perl学习笔记
(十二)--IE自动化
在IE浏览器中进行自动化,首先需要安装Win32::IEAutomation这个模块,此模块相当强大,能操作浏览器的刷新,后退,前进等,由于AutoItX3.dll也嵌在里面,甚至可以操作浏览器中弹出的windows窗口在IEAutomation.pm的文件中,给出了使用它的例子:1useWin32::IEAutomation; 2 3#CreatingnewinstanceofInterne
水月灵心
·
2015-12-25 18:00
Perl学习笔记
(十二)--IE自动化
在IE浏览器中进行自动化,首先需要安装Win32::IEAutomation这个模块,此模块相当强大,能操作浏览器的刷新,后退,前进等,由于AutoItX3.dll也嵌在里面,甚至可以操作浏览器中弹出的windows窗口在IEAutomation.pm的文件中,给出了使用它的例子:1useWin32::IEAutomation; 2 3#CreatingnewinstanceofInterne
水月灵心
·
2015-12-25 18:00
Perl学习笔记
(十一)--发送http请求
Perl发送http请求依赖于LWP模块,模块的安装可以使用ppm,也可以去cpan下载后自行安装。 #发送一个get请求:useLWP::UserAgent; $ua=LWP::UserAgent->new; $ua->agent("$0/0.1".$ua->agent); #$ua->agent("Mozilla/8.0")#pretendweareverycapablebro
水月灵心
·
2015-11-27 15:00
Perl学习笔记
(十一)--发送http请求
Perl发送http请求依赖于LWP模块,模块的安装可以使用ppm,也可以去cpan下载后自行安装。 #发送一个get请求:useLWP::UserAgent; $ua=LWP::UserAgent->new; $ua->agent("$0/0.1".$ua->agent); #$ua->agent("Mozilla/8.0")#pretendweareverycapablebro
水月灵心
·
2015-11-27 15:00
awk及
perl学习笔记
注:AWK的正则表达式竟然不支持零宽断言!perl是支持零宽断言的,但是perl中的程序要达到awk的效率需要考虑的问题太多。于是笔者用两次匹配(第一次匹配后再过滤一次)的方法代替零宽断言: awk /$key/'{if($0~/\/\/.*$key|\/\*.*$key|$key.*\*\//) ; else printf("%s:%d: %s\n",FILEN
·
2015-11-13 05:39
perl
上一页
1
2
3
4
下一页
按字母分类:
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
其他