perl常用函数(适合初学者)!
perl 时间函数
perl 时间函数摘要：1.Perl 时间函数概述2.Perl 时间函数的分类3.Perl 时间函数的具体使用方法4.Perl 时间函数的实例应用5.Perl 时间函数的优缺点分析正文：【1.Perl 时间函数概述】Perl 时间函数是一组在Perl 编程语言中用于处理时间相关操作的函数。
它们可以帮助开发者获取当前时间、格式化时间、计算时间差等。
在Perl 中，时间函数主要被用于处理Unix 时间戳、日历时间等。
【2.Perl 时间函数的分类】Perl 时间函数主要可以分为以下几类：1.获取当前时间：如time() 函数。
2.格式化时间：如strftime() 函数。
3.计算时间差：如time delta() 函数。
4.解析时间戳：如localtime() 函数。
5.转换时间格式：如strptime() 函数。
【3.Perl 时间函数的具体使用方法】以下是一些常用的Perl 时间函数的具体使用方法：1.time() 函数：用于获取当前时间的时间戳，即从1970 年1 月1 日00:00:00 到当前时刻的秒数。
使用方法：`my $timestamp = time();`2.strftime() 函数：用于将时间戳格式化为可读的字符串。
使用方法：`my $formatted_time =strftime("%Y-%m-%d %H:%M:%S", $timestamp);`3.time delta() 函数：用于计算两个时间戳之间的时间差。
使用方法：`my $time_difference = time delta($timestamp1, $timestamp2);`4.localtime() 函数：用于将时间戳转换为包含本地时间信息的数组。
使用方法：`my @local_time = localtime($timestamp);`5.strptime() 函数：用于将字符串格式的时间转换为时间戳。
perl入门
标量，指针，数组，哈希表（hash）和句柄。
一、标量我们先来看看标量，标量是perl语言中最简单的一种数据类型。
这种数据类型的变量可以是数字，字符串，浮点数，不作严格的区分。
在使用时在变量的名字前面加上一个“$”,表示是标量，相当于scalar中的第一个S。
使用以下格式进行定义：$myfirst= 123;# 数字123$mysecond="123";# 字符串123$mythird= "$myfirst,$mysecond";# 字符串123,123$myforth= '$myfirst,$mysecond';# 字符串$myfirst,$mysecond数字类型的标量可以使用0开头代表是8进制，用0x开头代表是16进制。
例如：$var1= 017;# 十进制的15$var2= 0xf;# 十进制的15还可以使用下面的格式：$var3= 123_456_7;# 1234567浮点数可以使用以下定义方式：$var4= 3.4;$var5= 4.3e+21;$var6= 234E345;perl中的字符串使用一个标量来表示，定义方式和c很像，但是在perl里面字符串不是用0来表示结束的。
而且使用双引号和单引号定义的字符串是不一样的。
使用双引号定义的字符串里面出现的变量名会进行替换，而且可以出现“\n\r\t”等控制字符。
而用单引号定义的就不可以了使用反斜杠引导的控制命令了（当然还可以使用反斜杠引道单引号和反斜杠），文本会按照字符串原来的样子保存。
但是用单引号定义可以使用多行文本，如下所示：$var7='这是一个使用多行字符串文本的例子';$var8= '\'\\';# 字符串'\二、数组在Perl中数组使用“@”引导，“@”的意义应该是相当于array中的第一个a吧(嘻嘻，猜的)。
数组初始化使用（）。
PERL常用字符串函数
1、$position=index(string，substring，skipchars)；该函数返回子串substring在字符串string中的位置，如果不存在，则返回-1；参数skipchars是可选参数，表示查找之前跳过的字符数，即：从该位置处开始查找；2、rindex(string，substring，skipchars)：功能与index()类似，不同的是它从string的右端开始查找；3、$Len=length(string)：求字符串的长度；4、$offset=pos(string)：返回最后一次模式匹配的位置；5、$substring=substr(string，skipchars，length)：该函数在字符串string中跳过skipchars 个字符的位置(从skipchars位置处)开始抽取长度为length的子串；第一个字符的位置为0；length可以省略。
6、study(string)：用一种内部格式提高变量的访问速度，同一个时刻仅对一个变量起作用；7、lc(string)：把string中的所有字母都转换成小写字母；8、uc(string)：把string中的所有字母都转换成大写字母；9、lcfirst(string)：把string中的第一个字母转换成小写字母；10、ucfirst(string)：把string中的第一个字母转换成大写字母；11、join(sepatorstring，list)：把列表list中的所有元素串联到同一个字符串中，相邻两个元素之间使用sepatorstring分隔；12、sprintf(formatstring，field1，field2，。
，fieldn)：该函数的功能同C语言中的sprintf()函数；都是多字符串进行格式化，不同的是该函数返回格式化后的结果字符串；13、quotemeta(string)：把string中非单词的字母前加上反斜杠"/"；14、hex(string)：把字符串形式的十六进制数据转换成十进制的整数；15、int(floatnum)：把浮点数去掉小数部分而转换成整数；16、oct(ocunum)：把字符串形式的八进制(0)或十六进制(0x)数据转换成十进制数；17、ord(char)：返回字符char的ASCII值(整数)；18、chr(ASCII_VALUE)：返回与整数ASCII_VALUE对应的字符；0<=ASCII_VALUE<= 255；19、defined(expr)：判断一个变量、数组或数组中的一个元素是否已经被赋值；expr为一个变量名、数组名或一个数组元素；如果已经定义或赋值，则返回true，否则返回false；20、undef(expr)：取消变量、数组或数组中元素的定义，甚至可以取消子程序的定义，并回收其所占用的空间。
Perl常用数学函数
Perl数学函数名sin
调用语法
retval=sin(value);
参数为弧度值。
Perl数学函数名cos
调用语法
retval=cos(value);
参数为弧度值。
Perl数学函数名atan2
调用语法
retval=atan2(value1,value2);
运算并返回value1除以value2结果的arctan值，单位为弧度，范围在-PI~PI。
应用例：
角度转化成弧度子程序。
subdegrees_to_radians{
local($degrees)=@_;
local($radians);11:
$radians=atan2(1,1)*$degrees/45;
}
Perl数学函数名sqrt
调用语法
retval=sqrt(value);
平方根函数。
value为非负数。
Perl数学函数名exp
调用语法
retval=exp(value);
返回e的value次方。
Perl数学函数名log
调用语法
retval=log(value);
以e为底的自然对数。
Perl数学函数名abs
调用语法
retval=abs(value);
绝对值函数。
(Perl4中没有)
Perl数学函数名rand
调用语法
retval=rand(num);
随机数函数，返回0和整数num之间的一个浮点数。
Perl数学函数名srand
调用语法
srand(value);
初始化随机数生成器。
保证每次调用rand真正随机。
perl基本语法介绍
perl基本语法介绍1)、算术运算符+(加)、-(减)、*(乘)、/(除)、**(幂)、%(余)、-(负)（1）求幂（**）结果不能超出数的范围。
当指数为⼩数时，底数不能为负数，例如：25**1.5=125，(-25)**1.5=?（不成⽴）（2）取余（%）操作数为整数，否则要截取。
第⼆个数不能为0（因为除数不能为0）（3）负（-） -$a=$a*(-1)此外，注意当⼀个字符串参加运算，需要转化为整数时，如果不能转化为整数则值为0。
例如：'2'+1=3，'a'+1=12)、数字⽐较运算符<（⼩于）、=（等于）、>（⼤于）、==（等于）、<=（⼩于等于）、>=（⼤于等于）、!=（不等于）、<=>（⽐较）（1）==：⽐较运算，⽐较的结果为真或⾮零，假或零（2）<=>：⽐较运算例如：$a<=>$b，当$a>$b时，值为1；当$a<$b时，值为-1；当$a==$b时，值为0（3）⾃动把操作数转化为整数,不能转化为整数则为0（4）浮点数不精确，不要把值相近的数⽐较，否则得到的结果是出乎意料的3)、字符串⽐较运算符lt（⼩于）、gt（⼤于）、eq（等于）、le（⼩于等于）、ge（⼤于等于）、ne（等于）、cmp（⽐较）（1）字符串的⽐较原则：按照字母表的顺序⽐较，数字<⼤写字母<⼩写字母（a⼩—z⼤）（2）字符串⽐较的次序：字符串从左到右⽐较。
'azz'<‘bc'（即：⾸先a与b进⾏⽐较，然后z与c进⾏⽐较）（3）当⼀个串是另⼀个的前缀时，长度长的为⼤。
例如：dog<doghouse（4）字符串可以从右向左进位，且是字母数字分别进⾏（5）⾃动把操作数转化为字符串。
123 lt 45 => '123' lt '45'（6）cmp等同于<=>，结果为-1,0, 1例如：$str1=”a”，$str2=”a“，则print ($str1 cmp $str2) ==> 0例如：$str1=”a”，$str2=”b”，则print($str1 cmp $str2)===> -1例如：$str1=”b”，$str2=”a”，则print($str1 cmp $str2)===> 1（7）空串，0，Undef，这三种情况都为假例如：如下⽐较的结果35 != 30+5 #假35 == 35.0 #真'35' eq '35.0' #假（当成字符串来⽐较）'fred' lt 'barney' #假'fred' lt 'free' #假'fred' eq "fred" #真'fred' eq "Fred" #假' ' gt ' ' #真4)、字符串连接（.）、字符/字符串重复（x）（1）连接（ “.“），例如：$a=‘a'.'b'; =>‘ab'在print时可以直接写print $a$b=>print $a.$b; 但是这两者的原理是不⼀样的（2）重复（ “x” ），注意：前后有空格（⽬的：为了和变量名分开），例如：‘a' x 5=‘aaaaa'，若重复次数<1，则返回空串例如："5" x 4，即为："5555"例如："love" x (4+1)，即为："lovelovelovelovelove"例如："4.8" x 4，即为："4.84.84.84.8"例如：6.1 x 3，即为："6.16.16.1"即：左边是⼀个字符串，右边是该字符串出现的次数5)、逻辑运算符（&&(and)（与）、||(or)（或）、!(not)（⾮）、xor（异或）（1）先算左边的值，后算右边的值（2）&&和and的优先级不同，但除⾮特殊情况，很难有区别6)、位操作运算符&（按位与）、 |（按位或）、 ~（按位⾮）、 ^（按位异或）、 <<（左移）、>>（右移）（1）操作数为⼆进制整数，如果是⼩数则截取为整数（2）<<左移，移开后空位补0，值为原数值的2*N倍（例如：z<<4，则z=z*（2的4次⽅））（3）>>右移，⾸位补0，值为原值⼀半（并取整）（例如：z>>4，则z=z/（2的的次⽅））7)、赋值运算符=、+=、-=、*=、/=、%=、**=、&=、|=、^=、.=（1）$a+=1=>$a=$a+1（2）可以连等$a=$b=3;=>$a=3;$b=3;（3）混⽤ ($a=$b)+=3;=>$a=$b;$a=$a+3;（不建议使⽤）8)、⾃增（++）、⾃减（--）（1）不要在变量两边都使⽤此种操作符：++$var--（2）不要在变量⾃增/减后在同⼀表达式中再次使⽤：$var2 = $var1 + ++$var1;（3）可⽤于字符串的⾃增，当z、Z、9时进位。
perl函数集
perl函数集一、进程处理函数1、进程启动函数2、进程终止函数3、进程控制函数4、其它控制函数二、数学函数三、字符串处理函数四、标量转换函数五、数组和列表函数六、关联数组函数一、进程处理函数1、进程启动函数函数名eval调用语法eval(string)解说将string看作Perl语句执行。
正确执行后，系统变量$@为空串，如果有错误，$@中为错误信息。
例子$print = "print (\"hello,world\\n\");";eval ($print);结果输出hello, world函数名system调用语法system(list)解说list中第一个元素为程序名，其余为参数。
system启动一个进程运行程序并等待其结束，程序结束后错误代码左移八位成为返回值。
例子@proglist = ("echo", "hello,world!");system(@proglist);结果输出hello, world!函数名fork调用语法procid = fork();解说创建程序的两个拷贝--父进程和子进程--同时运行。
子进程返回零，父进程返回非零值，此值为子程序的进程ID号。
例子$retval = fork();if ($retval == 0) {# this is the child processexit; # this terminates the child process} else {# this is the parent process}结果输出无函数名pipe调用语法pipe (infile, outfile);解说与fork合用，给父进程和子进程提供通信的方式。
送到outfile文件变量的信息可以通过infile文件变量读取。
步骤：1、调用pipe2、用fork将程序分成父进程和子进程3、一个进程关掉infile，另一个关掉outfile例子pipe (INPUT, OUTPUT);$retval = fork();if ($retval != 0) {# this is the parent processclose (INPUT);print ("Enter a line of input:\n");$line = <STDIN>;print OUTPUT ($line);} else {# this is the child processclose (OUTPUT);$line = <INPUT>;print ($line);exit (0);}结果输出$programEnter a line of input:Here is a test lineHere is a test line$函数名exec调用语法exec (list);解说与system类似，区别是启动新进程前结束当前程序。
perl常用函数(适合初学者)!
指令：print语法：print Filehandle LIST说明：这个Filehandle可以看作在I(INPUT)/O(OUTPUT)之间的一个桥梁,可以利用FILEHANDLE来做出数据读入写出的动作.STDIN是代表从哪连输入数据,例如从电脑的键盘输入;STDOUT是代表从哪连输出数据;例如从电脑的屏幕输出;STDERR是代表从哪连输出错误的数据,例如从电脑的屏幕输出.而在PERL语言中有三个标准FILEHANDLE： 1.STDIN(标准输入)：是代表STDIN的FILEHANDLE2.STDOUT(标准输出)：是代表STDOUT的FILEHANDLE3.STDERR(标准错误输出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的时候,就要用OPEN这个函数来打开一个FILEHANDLE,我们可以用PRINT这个函数LIST的数据输出给FILEHANDLE. 在为大家介绍PRINT这个函数之前,先让我们来看看PRINT函数中特殊打印字符：指令：#说明：注释符号Remark宣告示例：#这是一个注释说明--------------------------------------------------------------------------------指令：print语法：print Filehandle LIST说明：这个Filehandle可以看作在I(INPUT)/O(OUTPUT)之间的一个桥梁,可以利用FILEHANDLE来做出数据读入写出的动作.STDIN是代表从哪连输入数据,例如从电脑的键盘输入;STDOUT是代表从哪连输出数据;例如从电脑的屏幕输出;STDERR是代表从哪连输出错误的数据,例如从电脑的屏幕输出.而在PERL语言中有三个标准FILEHANDLE： 1.STDIN(标准输入)：是代表STDIN的FILEHANDLE2.STDOUT(标准输出)：是代表STDOUT的FILEHANDLE3.STDERR(标准错误输出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的时候,就要用OPEN这个函数来打开一个FILEHANDLE,我们可以用PRINT这个函数LIST的数据输出给FILEHANDLE. 在为大家介绍PRINT这个函数之前,先让我们来看看PRINT函数中特殊打印字符：符号其作用\n 换行new line\r 光标换行return\t tab键\f 换页form feed\b 退回一格\v 垂直tab键\a 响铃Bell\e escape键\007 十进制ASC II码\xff 十六进制码\c[ 控制字符示例：print STDOUT "网上学园\n"; 将"网上学园"加上换行显示在屏幕上.语法：print LIST说明：如果省略Filehandle的话,就会把Filehandle内定为STDOUT.也就是会将LIST的数据内容显示在屏幕上.示例：$url="/~zmd";print "网上学园$url\n";在屏幕上将会出现"网上学园/~zmd",如果想要让双引号内的变量失效,可以在变量的前面加上"\"符号.例如：print"网上学园\$url"; 这样它就显示："网上学园$url"语法：print说明：同省略Filehandle和LIST的话,就会以STDOUT为Filehandle,并会输出$_这个内定输出变量的数据内容. 如果$_变量是一个空字符串的话,就会显示出一个空字符串.示例：$_="网上学园\n"; print; 就会将"网上学园"加上换行显示在屏幕上--------------------------------------------------------------------------------指令：printf语法：printf Filehandle LIST说明：在perl语言中也提代C语言中printf的语法,用法和C语言中的用法一模一样.如果把Filehandle省略的话,也一样会把STDOUT当成是内定的Filehandle.在为大家介绍printf函数之前,先让我们来看看printf 函数中变换符号的字符.符号其作用%c 字符%s 字符串%d 整数%f 浮整数%h 十六进制码%o 八进制码示例：printf("chomod%d%s\n","711""cgi"); 会将chmod 711 cgi加上换行显示于屏幕上。
Perl字符串处理函数大全
Perl字符串处理函数⼤全下⾯请看本⽂详细介绍.Perl字符串处理函数1. index语法:position=index(string,substring,position);语义:返回⼦串substring在字符串string中的位置,如果不存在则返回-1。
参数position是可选项,表⽰匹配之前跳过的字符数,或者说从该位置开始匹配。
2. rindex语法:position=rindex(string,substring,position);语义:与index类似，区别是从右端匹配。
3. length语法:num=length(string);语义:返回字符串长度，或者说含有字符的数⽬。
4. pos语法:offset=pos(string);语义:返回最后⼀次模式匹配的位置。
5.substr语法:substr(expr,skipchars,length)语义:抽取字符串(或表达式⽣成的字符串)expr中的⼦串,跳过skipchars个字符,或者说从位置skipchars开始抽取⼦串(第⼀个字符位置为0),⼦串长度为length,此参数可忽略,意味着取剩下的全部字符。
当此函数出现在等式左边时,expr必须为变量或数组元素,此时其中部分⼦串被等式右边的值替换。
6.study语法:study(scalar);语义:⽤⼀种内部格式提⾼变量的访问速度，同⼀时刻只对⼀个变量起作⽤。
7. lc, uc语法:retval=lc(string);retval=uc(string);语义:将字符串全部转换成⼩/⼤写字母。
8. lcfirst, ucfirst语法:retval=lcfirst(string);retval=ucfirst(string);语义:将第⼀个字母转换成⼩/⼤写。
9. quotameta语法:newstring=quotemeta(oldstring);语义:将⾮单词的字母前⾯加上反斜线(\)。
PERL入门
前言：这篇文章是花了我很多时间、费了我很多心血才完成的，虽然连我自己都觉得无法达到尽善尽美的境界，但希望能帮助大家入门，稍微了解到Perl到底是个什麽样的东西，Perl到底有那些强大的功能，那麽这篇文章的目的就达到了。
我分做资料型态、控制叙述、副程式、I/O和档案处理、Regular Expressions、Spectial Variables、Help这几部分来讲解，但只是叙述了一些Perl的基本语法而已，Perl活泼的特性和程式的技巧就无法一一详述了，甚为缺憾。
(1) 资料型态(Data type)：Perl的资料型态大致分为四种：Scalar、Scalar Array、Hash Array、References，看起来虽少但用起来却绰绰有余。
尤其在写Perl程式时可以不必事先宣告变数，这一点对刚学程式语言的人甚为方便，不过为了以後程式除错和维护方便，我建议你还是养成事先宣告变数的习惯比较好。
(a) Scalar：纯量变数是Perl里最基本的一种资料型态，它可以代表一个字元、字串、整数、甚至浮点数，而Perl把它们都看成是一样的东东! 你甚至可以混着用，不可思议吧。
例如：# 井字号开头的後面都是注解。
# 纯量变数以$开头。
# my 是一种宣告变数的方式，它可以使变数区域化。
# 宣告变数时若不加 my 或 local 则Perl会把它当作全域变数使用。
# 习惯上，我们会将字串用双引号括起来，而数值就不用加引号。
my $x="abc";my $x=123;my $x=4.56;那麽程式怎麽判断这是数值还是字串呢? 其实不是程式判断，而是你自己要判断。
Perl分别提供了一堆运算子来处理数字和字串，你必须知道这个变数是数值或字串，才能使用个别的运算子来对变数做运算。
我分别列出字串运算子和数值运算子，好让大家能区分它们的不同。
(b) Scalar Array：纯量阵列，阵列内的每一个元素都是Scalar variable。
perl copy函数
perl copy函数Perl的copy函数是一个非常常用的函数，用于将文件从一个位置复制到另一个位置。
copy函数的语法如下：```perlcopy($source_file, $destination_file) or die "Copy failed: $!"; ```其中，`$source_file`是源文件的路径，`$destination_file`是目标文件的路径。
copy函数会将源文件复制到目标文件，并返回一个布尔值表示复制是否成功。
如果复制失败，`die`函数会抛出一个错误信息。
使用copy函数可以很方便地实现文件的复制操作。
下面将详细介绍如何使用copy函数进行文件复制。
需要确保源文件存在，并且有读取权限。
如果源文件不存在或没有读取权限，copy函数将无法进行复制操作。
接下来，确定目标文件的路径。
可以选择将目标文件的路径设置为一个已经存在的文件，这样会覆盖原有文件的内容。
也可以设置为一个新的文件路径，这样会创建一个新的文件并将源文件复制到该位置。
在进行文件复制之前，最好先检查目标文件是否已经存在。
如果目标文件已经存在，可能会因为覆盖原有文件内容而导致数据丢失。
可以使用Perl的`-e`操作符来判断文件是否存在。
```perlif (-e $destination_file) {die "Destination file already exists!";}```如果目标文件已经存在，可以选择报错并终止程序，或者选择自动重命名目标文件。
在进行文件复制之前，还可以对源文件和目标文件进行一些额外的操作。
例如，可以对源文件进行读取操作，并在复制之前对文件内容进行处理。
可以使用Perl的文件操作函数来实现这些操作。
完成了上述准备工作后，就可以调用copy函数进行文件复制了。
copy函数会将源文件的内容复制到目标文件，并返回一个布尔值表示复制是否成功。
perl基础教程
Perl 中的标量变量以美元符号$和一个字母开始，以后可以是字母、数字和 下 划线，大小写有区别，而且所有字母、数字和下划线都有效。如： $a 和$A 是不同的变量； $this_is_a_l ong_variable_1 和 $this_is_a_long_variable_2 是不同的变量； Perl 中的变量可以通过操作符(如 +或.等)来产生新的变量。你可以从文件 和设备中读取变量，也可以将其输出。 使用纯量变量时要在前面加上$符号, 注意： 指定的纯变量是一个字符的话, 就要加上""双引号或单引号;如果是数值的话,就不用加上""这个符号。 标量 数据又可以分为数字和字符串两种： 数字 可分为整型变量和浮点变量。 整型变量:(如 2,-200,3 568 等)。Perl 支持 8 进制和 16 进制变量，8 进制 以 0 开头(如 0255，表示 8 进制的 255)，16 进制以 0x 或 0X 开头(如-0x1a，代 表负的 1A) 实型变量:(如 2.5,-6.3e5,-2.3-e6 等)。 字符串 最短的字符串可以没字符，最长可以把你的内 存填满，这与 Perl 的“无内 置限制”的原则一致。 字符串有两种格式：单引字符串和双引字符串。 单引字符串(sing le-quoted string):就是用单引号括起来的一串字符。该 单引字符串不是字符串的一部分。 引号中可以插入任何字符。 只有两种情况例外， 一种 是中间插入单引号，并在前面有一反斜杠；一种是字符串有两个连着的反 斜杠。 双引字符串(double-quoted string):就是用双引号括起来的一串字符，其 作用类似于 C 语言。 双引字符串中反斜杠转义表 结构 含 义 \n 换行 \r 回车 \t 水平置表符 \f 换页符 \b 退格 \v 垂直置表符 \a 响铃 \e Esc
Perl基础知识点
开始学习Perl1.以#开始的语句表示注释。
Perl语句以分号表示结束。
2.Perl语言中也有转义字符，这点与C语言类似。
3.$表示该符号后所跟的字符串是一个标量变量，即该变量只能保存一个数值或者字符串。
Perl语言中有两种变量，标量变量和数组变量。
4.在Unix中，所有程序都拥有三个打开的文件：STDIN（标准输入）STDOUT（标准输出）STDERR（标准错误）。
Perl当然可以使用这三个。
5.使用chomp命令可以去掉多余的数据，主要是针对回车和换行。
每个系统都配置了该命令，用于去掉注释的行末尾符号。
6.Perl语言用于字符串比较的操作符。
eq（等于）ge（大于等于）gt（大于）le（小于等于）lt（小于）ne（不等于）cmp（字符串比较）。
7.在Unix中，可以把Perl脚本转换成一个可执行的程序。
Perl基础知识1.控制Perl脚本－－while命令，和C语言的一样。
2.控制Perl脚本－－until命令，实现与while正好相反的控制，只要条件为假，程序块不断被执行，直到条件为真结束。
3.控制Perl脚本－－if命令，和C语言的一样。
4.控制Perl脚本－－unless命令，与if语句相反，当条件不为真是执行。
语句格式与if的一样。
5.控制Perl脚本－－for循环，和C语言的一样。
6.控制Perl脚本－－foreach语句，使得对列表或数组中的每一个元素进行循环。
7.Perl语言的所有数学运算都以双精度的浮点数进行。
如果想使用整数操作，则需要在程序块中增加这样的语句：use integer;8.单引号所引起的为字符串本身，Perl对单引号中的内容提供了较少的解释。
9.双引号中的内容，Perl对其进行较多的解释，可以有转义字符，用变量的值替代变量。
10.如果数据本身已经有引号，可以使用q操作符生成字符串，产生一个单引号的字符串。
$var=q('Single-quoted string');11.q q可以数据本身含有双引号的字符串，用法与q相似。
perl选项、特殊变量、一些函数参考手册
perl选项、特殊变量、⼀些函数参考⼿册perl⼀⾏式程序系列⽂章：本⽂⽤来收集Perl⼀⾏式中涉及到的⼀些选项、特殊变量的说明，可以⽤来做速查⼿册。
本⽂会逐渐更新。
第⼀次学Perl⼀⾏式时，请直接忽略本⽂内容，并直接从后⾯的⽰例部分开始看。
本⽂会在每⼀个⽰例中解释出现的选项、变量、函数和语法。
⼀⾏式选项perl⼀⾏式语法：perl [-0aFlimMnps] -e 'EXPRESSION' ARGUMENTSperl [-0aFlimMnps] -E 'EXPRESSION' ARGUMENTS其中"-e"或"-E"选项⽤于指定待运⾏的表达式，它们之间的不同点在于"-E"会⾃动启⽤⾼版本功能特性，例如可以直接使⽤say()函数⽽⽆需先use 5.010;。
可以指定多个-e/-E，但使⽤多个的时候，注意每个表达式后⾯的';'结尾符号，否则语法报错。
-n和-p这两个选项都表⽰按照隐含的逻辑直接处理表达式后⾯的参数代表的⽂件。
如果perl -e命令⾏中没有这两个选项，则只能⾃⼰在-e表达式中编写读取⽂件、处理数据、输出/删除的代码逻辑。
-n选项使得perl单⾏命令以类似于如下代码的⽅式运⾏：LINE:while(<>){...-e expression CODE HERE...}由于while中使⽤的是<>，所以它会从@ARGV中读取参数⽂件进⾏处理。
perl -n就像sed -n⼀样，表⽰禁⽌默认的输出。
如果想要强制输出，只能在-e表达式中⾃⾏指定输出操作，例如print/say/printf。
-p选项使得perl单⾏命令以类似于如下代码的⽅式运⾏：LINE:while(<>){...-e expression CODE HERE...}continue{print or die "-p destination: $!\n";}perl -p⽤于强制输出$_，它会覆盖-n选项。
perl基础类函数介绍
功能 本基础类的构造函数 验证给脚本传入参数是否合法，目前支持以下几种参数： 1、 -d yyyymmdd 2、 -m yyyymm 3、 -m 0 （把上月作为当前月份） 4、 -d 0 （把昨天作为当前日期） 5、 -d 1 （把上月末日作为当前日期） 6、 -d 2 （把前天作为当前日期） 7、 -d或-m后面可以同时跟 -u -v -w -x -y -z中的一个或几个参数 用 getParams()获取参数 8、 或者不传入任何参数 9、 可再扩展其它参数，需修改_recieveParam()函数 获取perl的lib路径 初始化变量 密匙模块函数 读取xml配置文件 接受perl传入参数 提示参数错误信息 基础类内置日志函数 获取相对于某日期的前、后几天的日期 获取相对于某个月份的前、后几月的月份 获取某月月底日期 获取某个月份的天数 获取某日期（yyyymmdd）对应的标准日期（yyyy-mm-dd） 获取某标准日期（yyyy-mm-dd）对应的yyyymmdd格式日期 获取两个日期之间的天数
printSqlToBteq
向bteq输出1个或几个sql语句让bteq执行
closeBteq connectByODBC
关闭bteq连接 用odbc建立与数据库的连接
getDataSetByODBC executeByODBC closeConnection currentTimestamp sendMms sendMmsByODBC sendMmsYn sendMmsYnByODBC sendSms sendSmsByODBC setLogDir traceLog passportDecrypt passportEncrypt enterKeyToExit getRand
perl 函数
perl 函数
Perl 函数是在 Perl 脚本中可重复使用的代码块。
函数通常用于执行指定任务并返回结果。
Perl 函数可以接受任意数量的参数，并且可以返回任意类型的值。
以下是一个使用 Perl 函数的示例：
```perl。
#定义函数。
sub hello 。
return "Hello $name!";。
}。
#调用函数。
my $result = hello("World");。
print $result; # 输出：Hello World!
```。
在上面的例子中，`hello()` 函数接受一个参数 `$name`，并返回一个字符串 `"Hello $name!"`。
在函数的实现中，我们使用了 `my` 关键字来声明一个变量 `$name`，该变量在函数内部使用。
最后，我们通过调用 `hello()` 函数并传入参数 `"World"`，将返回值存储在变量
`$result` 中，然后将其打印到屏幕上。
在 Perl 中，函数名遵循与变量相同的命名规则。
为了避免与 Perl 内置函数名称冲突，最好将您的函数命名与 Perl 内置函数不同。
常用函数大全
函数名 join
调用语法 join (joinstr, list);
解说 把字符串列表(数组)组合成一个长的字符串，在每两个列表元素间插入串joinstr。
函数名 sprintf
解说 平方根函数。value为非负数。
函数名 exp
调用语法 retval = exp (value);
解说 返回e的value次方。
函数名 log
调用语法 retval = log (value);
解说 以e为底的自然对数。
函数名 abs
调用语法 retval = abs (value);
例子
结果输出
函数名 syscall
调用语法 syscall (list);
解说 调用系统函数，list第一个元素是系统调用名，其余为参数。
如果参数是数字，就转化成C的整型数(type int)。否则传递字符串的指针。详见UNIX的帮助或Perl文档。
使用syscall必须包含文件syscall.pl，即：
if ($retval == 0) {
# this is the child process
exit; # this terminates the child process
} else {
# this is the parent process
}
结果输出 无
函数名 pipe
解说 返回该程序及所有子进程消耗的工作时间。
返回值为四个浮点数的列表：
1、程序耗用的用户时间
2、程序耗用的系统时间
3、子进程耗用的用户时间
4、子进程耗用的系统时间
例子
perl零基础教程
perl教程第一节：基本上，简单变量就是一个数据单元，这个单元可以是数字或字符串。
一、整型1、整型PERL最常用的简单变量，由于其与其它语言基本相同，不再赘述。
例：$x = 12345;if (1217 + 116 == 1333) {# statement block goes here}整型的限制：PERL实际上把整数存在你的计算机中的浮点寄存器中，所以实际上被当作浮点数看待。
在多数计算机中，浮点寄存器可以存贮约16位数字，长于此的被丢弃。
整数实为浮点数的特例。
2、8进制和16进制数8进制以0打头，16进制以0x打头。
例：$var1 = 047; (等于十进制的39)$var2 = 0x1f; (等于十进制的31)二、浮点数如11.4 、-0.3 、.3 、3. 、54.1e+02 、5.41e03浮点寄存器通常不能精确地存贮浮点数，从而产生误差，在运算和比较中要特别注意。
指数的范围通常为-309到+308。
例：#!/usr/local/bin/perl$value = 9.01e+21 + 0.01 - 9.01e+21;print ("first value is ", $value, "\n");$value = 9.01e+21 - 9.01e+21 + 0.01;print ("second value is ", $value, "\n");---------------------------------------------------------$ program3_3first value is 0second value is 0.01三、字符串惯用C的程序员要注意，在PERL中，字符串的末尾并不含有隐含的NULL字符，NULL字符可以出现在串的仸何位置。
. 双引号内的字符串中支持简单变量替换，例如：$number = 11;$text = "This text contains the number $number.";则$text的内容为："This text contains the number 11.".双引号内的字符串中支持转义字符Table 3.1. Escape sequences in strings.Escape Sequence Description\a Bell (beep)\b Backspace\cn The Ctrl+n character\e Escape\E Ends the effect of \L, \U or \Q\f Form feed\l Forces the next letter into lowercase\L All following letters are lowercase\n Newline\r Carriage return\Q Do not look for special pattern characters\t Tab\u Force next letter into uppercase\U All following letters are uppercase\v Vertical tab\L、\U、\Q功能可以由\E关闭掉，如：$a = "T\LHIS IS A \ESTRING"; # same as "This is a STRING".要在字符串中包含双引号或反斜线，则在其前加一个反斜线，反斜线还可以取消变量替换，如：$res = "A quote \" and A backslash \\";$result = 14;print ("The value of \$result is $result.\n")的结果为：The value of $result is 14..可用\nnn(8进制)或\xnn(16进制)来表示ASCII字符，如：$result = "\377"; # this is the character 255,or EOF$result = "\xff"; # this is also 255.单引号字符串单引号字符串与双引号字符串有两个区别，一是没有变量替换功能，二是反斜线不支持转义字符，而只在包含单引号和反斜线时起作用。
perl语言tr函数
perl语言tr函数
在Perl语言中，`tr`函数用于字符替换或删除操作。
它接受两个参数：一个字符集和一个替换字符集。
字符集是一个字符串，其中包含要替换或删除的字符。
替换字符集也是一个字符串，其中包含用于替换或删除的字符。
下面是`tr`函数的基本语法：
```perl
$string =~ tr/字符集/替换字符集/;
```
其中，`$string`是要进行替换操作的字符串。
下面是一个示例，演示如何使用`tr`函数将字符串中的小写字母转换为大写字母：
```perl
$string = "hello world";
$string =~ tr/a-z/A-Z/;
print $string; 输出 "HELLO WORLD"
```
在这个例子中，`tr`函数将小写字母字符集`a-z`转换为大写字母字符集`A-Z`。
结果是将字符串中的所有小写字母替换为大写字母。
需要注意的是，`tr`函数是大小写敏感的，因此它将区分大小写进行替换操作。
如果要进行大小写不敏感的替换操作，可以使用正则表达式或其他字符串处理函数。
Perl列表相关函数
1 2 3 1 2 3 4 51 2 3 4 5 6 1 21 2 3 4 5 1 2 3 41 2 3 4Perl列表相关函数本⼈博客搬家(本站⽆精⼒更新和维护)：骏马⾦龙内置的列表函数有：grep, join, map, qw//, reverse, sort, unpackjoin：将多个元素使⽤给定字符串联起来grep：从列表中筛选符合条件的元素执⾏对应的代码块map：对列表中的元素执⾏给定操作，后⽂详细⽰例reverse：反转列表、标量字符串、hash，后⽂详细⽰例sort：按照给定规则进⾏排序qw//：⽣成⼀个列表unpack：暂略列表相关的内置函数并不多，有些东西实现起来需要⾃⼰写逻辑。
不过，有额外的列表⼯具模块List::Util，可以从该模块中获取更完整、更丰富的列表处理⼯具。
joinjoin函数⽤于将列表中各个元素⽤给定字符连接起来，和split的⾏为有点相反。
它返回⼀个列表。
join⽤法如下：join$sep,$list其中$sep只能是字符串，这⼀点和split不⼀样。
例如：print join"-",a,b,c,d,efg; # 输出："a-b-c-d-efg"可以将split后的结果⽤join换⼀个分隔符连接起来：$str="abc:def::1234:xyz";@new_list = join(",",split/:/,$str);print"@new_list\n"; # 输出：abc,def,,1234,xyzgrep对给定列表，执⾏⼀个或多个代码块，并返回⼀个经过操作后的新列表，所以在标量上下⽂中它返回的是新列表中元素的个数。
例如，分别取出⼀段数值之间的奇数、偶数：@new_arr1 = grep {$_ % 2} (1..100); # 取奇数print"@new_arr1";@new_arr1 = grep {$_ % 2 eq 0} (1..100); # 取偶数print"@new_arr2";以上⾯取奇数为例。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
指令：print语法：print Filehandle LIST说明：这个Filehandle可以看作在I(INPUT)/O(OUTPUT)之间的一个桥梁,可以利用FILEHANDLE来做出数据读入写出的动作.STDIN是代表从哪连输入数据,例如从电脑的键盘输入;STDOUT是代表从哪连输出数据;例如从电脑的屏幕输出;STDERR是代表从哪连输出错误的数据,例如从电脑的屏幕输出.而在PERL语言中有三个标准FILEHANDLE： 1.STDIN(标准输入)：是代表STDIN的FILEHANDLE2.STDOUT(标准输出)：是代表STDOUT的FILEHANDLE3.STDERR(标准错误输出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的时候,就要用OPEN这个函数来打开一个FILEHANDLE,我们可以用PRINT这个函数LIST的数据输出给FILEHANDLE. 在为大家介绍PRINT这个函数之前,先让我们来看看PRINT函数中特殊打印字符：指令：#说明：注释符号Remark宣告示例：#这是一个注释说明--------------------------------------------------------------------------------指令：print语法：print Filehandle LIST说明：这个Filehandle可以看作在I(INPUT)/O(OUTPUT)之间的一个桥梁,可以利用FILEHANDLE来做出数据读入写出的动作.STDIN是代表从哪连输入数据,例如从电脑的键盘输入;STDOUT是代表从哪连输出数据;例如从电脑的屏幕输出;STDERR是代表从哪连输出错误的数据,例如从电脑的屏幕输出.而在PERL语言中有三个标准FILEHANDLE： 1.STDIN(标准输入)：是代表STDIN的FILEHANDLE2.STDOUT(标准输出)：是代表STDOUT的FILEHANDLE3.STDERR(标准错误输出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的时候,就要用OPEN这个函数来打开一个FILEHANDLE,我们可以用PRINT这个函数LIST的数据输出给FILEHANDLE. 在为大家介绍PRINT这个函数之前,先让我们来看看PRINT函数中特殊打印字符：符号其作用\n 换行new line\r 光标换行return\t tab键\f 换页form feed\b 退回一格\v 垂直tab键\a 响铃Bell\e escape键\007 十进制ASC II码\xff 十六进制码\c[ 控制字符示例：print STDOUT "网上学园\n"; 将"网上学园"加上换行显示在屏幕上.语法：print LIST说明：如果省略Filehandle的话,就会把Filehandle内定为STDOUT.也就是会将LIST的数据内容显示在屏幕上.示例：$url="/~zmd";print "网上学园$url\n";在屏幕上将会出现"网上学园/~zmd",如果想要让双引号内的变量失效,可以在变量的前面加上"\"符号.例如：print"网上学园\$url"; 这样它就显示："网上学园$url"语法：print说明：同省略Filehandle和LIST的话,就会以STDOUT为Filehandle,并会输出$_这个内定输出变量的数据内容. 如果$_变量是一个空字符串的话,就会显示出一个空字符串.示例：$_="网上学园\n"; print; 就会将"网上学园"加上换行显示在屏幕上--------------------------------------------------------------------------------指令：printf语法：printf Filehandle LIST说明：在perl语言中也提代C语言中printf的语法,用法和C语言中的用法一模一样.如果把Filehandle省略的话,也一样会把STDOUT当成是内定的Filehandle.在为大家介绍printf函数之前,先让我们来看看printf 函数中变换符号的字符.符号其作用%c 字符%s 字符串%d 整数%f 浮整数%h 十六进制码%o 八进制码示例：printf("chomod%d%s\n","711""cgi"); 会将chmod 711 cgi加上换行显示于屏幕上。
--------------------------------------------------------------------------------指令：chop 语法：chop($url)说明：把最后一个字符删除。
示例：$url="/~zmd/";chop($url); 这时$url="/~zmd" 而这两行也可以写成chop($url="/~zmd/");--------------------------------------------------------------------------------指令：split语法：split(/pattern/,$text,limit) 其中/pattern/是文字处理的模式，而limit是代表要分割的个数，一般可以省略。
说明：用一个指定的文字处理模式来分割$text字符串。
示例：$text="Michael,Gevin,Mike";@name=split(/,/,$text); #这时@name=("Michael","Gevin","Mike");($a,$b,$c)=split(/,/,$text); #这时$a="Michael";$b="Gevin";$c="Mike";@name=split(/,/,$string,2); #这时@name=("Michael","Gevin");在传送CGI应用程序数据的时候会先将数据编码，其中会将FORM中第个数据字段的数据内容用&这个符号隔开，所以在解码的时候就要以&这个符号为分割的字符，将每个数据字段分割出。
例如：$text="Mike=A&Michael=B";@name=split(/&/,$text); #这时@name=("Mike=A","Michael=B"); 而数据字段的名称和这个数据字段的值是用=这个符号来隔开，如果想取得数据字段的名称和所对应的值的话，就用要=这个符号来分割数据字段，例如：$name=""Mike=Michael""；($name1,$name2)=split(/=/,$list); #这时$name1="Mike";$name2="Michael";--------------------------------------------------------------------------------指令：keys语法：keys(%array)说明：取出关联数组%ARRAY中全部的key。
示例：%NAME=(1,"mike",2,"michael"); @readkey=keys(%NAMES); #这时@readkey=(1,2);--------------------------------------------------------------------------------指令：values语法：values(%array)说明：取出关联数组%ARRAY中全部的value。
示例：%NAMES=(1,"mike",2,"michael"); @readval=values(%NAMES); #这时@readval=("mike","michael");--------------------------------------------------------------------------------指令：reverse语法：reverse(@array)说明：将数组@array中的元素由后到前重新排列。
示例：@back=("A","B","C","D","E"); @back=reverse(@back); #这时@back=("E","D","C","B","A");--------------------------------------------------------------------------------指令：sort语法：sort(@array)说明：将数组中的元素由小到大排序，如果要由大到小排序的话，要加上reverse这个函数。
示例：@abc=("d","b","c","a"); @abc=sort(@abc); #这时@abc=("a","b","c","d");@abc=(reverse sort@abc); #这时@abc=("d","c","b","a"); 这个语法也可以写成@abc=(reverse sort(@abc));@number=(5,2,10); @number=sort(@number); 上面示例用sort函数来排序数值的时，会出差错，因此要用下面到下面这一句。