摘要: perl,后来我又改过了增加了一些交互和数据库检测的功能。主要用于收集ip、mac、姓名、房间,后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。代码如下:主要用于收集ip、mac、姓名、房间,后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。#############################usestrict;useTk;useEncode;#SOCKE参数my$PF_INET=2;my$port=2345;my$remote_addr=pack('SnC4x8',$PF_INET,$port,192,168,138,228);my$SOCK_DG 阅读全文
posted @ 2013-10-20 21:44 红红火火蒸蒸日上 阅读(174) 评论(0) 推荐(0) 编辑
摘要: 默认状态下,很显然都是用\n来区分行,\n也被我们称作为换行符。当读取序列时,按行来读取时,就是以换行符为标准。读取的strawberry1.gb的文件内容如下:LOCUSJX118024460bpDNAlinearPLN25-SEP-2012DEFINITIONFragariavescasubsp.americanaRNApolymerasebetasubunit(rpoC1)gene,partialcds;plastid./ACCESSIONJX118024//VERSIONJX118024.1GI:402238751KEYWORDS.how///SOURCEplastidFragaria 阅读全文
posted @ 2013-10-20 13:25 红红火火蒸蒸日上 阅读(425) 评论(0) 推荐(0) 编辑
摘要: perl中尖括号运算符的用途分享,这里简单介绍下,方便需要的朋友 perl中运算符可以有如下的用途:1)如果尖括号中间是文件句柄,尖括号运算符允许你读取文件句柄,比如。2) 如果尖括号中间是搜索模式,尖括号运算符能返回与该模式匹配的文件列表,这称为一个glob,比如。3)一组尖括号运算符如果中间没有任何东西,那么它可以读取命令行上所有文件的内容;如果没有给出文件名,则可以读取标准输出。请看下面这段代码:代码如下: while(){ print $_; }如果将上面的程序保存为Example.pl,那么用下面这个命令行运行该程序:代码如下: #perl –w Example.pl file1 f 阅读全文
posted @ 2013-10-20 12:36 红红火火蒸蒸日上 阅读(440) 评论(0) 推荐(0) 编辑
摘要: 写好了perl程序,运行后,准备等待结果输出时,结果双击后,看到屏幕闪了一下,然后什么都没有了,根本没有机会然你看到输出的结果 当你刚开始学习perl的时候,写好了程序,准备兴高采烈的等待结果输出时,结果双击后,看到屏幕闪了一下,然后什么都没有了。根本没有机会然你看到输出的结果。怎么解决这种问题呢?其实各种语言都有这个问题!解决的思路就是让程序输出结果以后,继续等待用户的输出就可以了也就是在脚本的末端加上这样的两行代码如下:print "press to continue...";;这样就可以了。详细出处参考:http://www.jb51.net/article/3499 阅读全文
posted @ 2013-10-20 11:32 红红火火蒸蒸日上 阅读(279) 评论(0) 推荐(0) 编辑