perl程序设计(十二)

  语法：shift(@array)
  阐明：将数组@array的第一个元素删除，并将删除的元素前往。
  示例：@array=("one","two"); @rm=shift(@array); #这时@array=("two");而
  $rm="one";
  指令：join
  语法：join($string,@array)
  阐明：在一数组@array的元素之间加上一指定的字符$string,并将结果前往。
  示例：
  @array=("one","two","three");
  $total=join("：",@array); 这时$total="one：two：three";
  指令：grep
  语法：grep(/pattern/,@array)
  阐明：将合文字处理形式(regular expression)的数组元素找出来。
  示例：
  @array=("one","on","in");
  $count=grep(/on/,@array); #这时$count=2
  @result=grep(/on/,@array);#这时@result=("one","on");
  指令：hex
  语法：hex($string)
  阐明：将十六进制的数值转成十进制。
  示例： $decimal=hex("ff"); 这时$decimal=255;
  指令：rand
  语法：rand($interger)
  阐明：常和函数srand搭配来获得一随机数，如果没有先宣告stand函数的话，
  则取出的常数值是一个牢固值。这个语法会前往一个介于0和$interger之间的数
  值，如果$interger省略的话，则会前往一个介于0和1 的数值。
  示例：
  srand; #要先宣告srand函数，才能孕育发生随机数的结果
  $int=rand(10); #$int的值会大于0而且小于10如果盼望孕育发生的乱数是整数的
  话，就要再加上int #这个函数
  $int=int(rand(10)); #$int的值是一个整数，且值在0和9之间
  指令：localtime
  语法：localtime(time)
  阐明：可前往九个有关工夫的元素，在写CGI使用步伐的时候常会用到体系的时
  间，以是在此会详细先容这个函 数的用法。
  示例：
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  其中： $sec代表秒数[0,59] $min代表分数[0,59] $hour代表小时数[0,23]
  $mday代表是在这个月的第几天[1,31] $mon代表月数[0,11],要将$mon加1之后，
  才能切合实际环境。$year从1990年算起的年数 $wday从星期六算起，代表是在
  这周中的第几天[0-6] $yday从一月一日算起，代表是在这年中的第几天[0,365]
  $isdst只是一个flag 晓得这些变量之后，就可以在CGI使用步伐中拿来使用了。
  别的，也可以用下面这一行指令在UNIX体系下获得体系的工夫。为了避免错误发
  生，最好用绝对途径的要领来获得体系工夫，如果绝对途径不明白的话可以用
  "which data"这个指令来得知。末了要提字符的话，就不克不及精确执行体系的步伐
  了。 $data='/usr/bin/data'; 而在perl5版本中，也可以用下面这一行指令来
  获得体系工夫。 $data=localtime(time);
  指令：die
  语法：die LIST
  阐明：会把LIST字符串显示出来，并加入步伐。常常和$!这个代表错误信息变
  量一起使用。
  示例：open(FILE,"$filename")||die "不克不及打开文件$!\n; 如果打开文件失败
  的话，就会显示堕落误的信息，之后再加入步伐。
  指令：open
  语法1：open(filehandle,"$filename") 其中$filename是一个指定打开的文件
  名。
  阐明：这是一个很常用的函数，可用于文件的打开(read only)。在CGI步伐设
  计中常常会打开一个文件来读取数据，以是笔者会详加阐明这一个函数相干用
  法。这个filehandle可把它看作在I(INPUT)/O(OUTPUT)之间的一个桥梁，可以利
  用FILEHANDLE来作出数据读 入写出的动作。开始可用OPEN这个函数来打开一个
  指定的文件，接上去可以用来读取所打开文件的数据内容，末了
  肯定要用close这个函数来封闭这个之前打开的filehandle。要细致的是在CGI程
  序定作中，当用OPEN这个函数来打开一个文件时，肯定要在打开文件前加上文件
  所在的绝对途径称号。
  示例：
  $filename="usr/abc.txt";
  open(FILE,"$filename")||die"不克不及打开文件$filename\n; #将数据指
  定给纯变量$line(一行一行地)
  while($line=)
  {
  print"$line";
  }
  close(file); 就会把abc.txt这个文件的内容显示出来。
  语法2：open(filehandle,"<$filename")
  阐明：这个语法也可以打开一个存在的文件(read only)。
  示例：
  $filesname="usr/abc.txt";
  open(file,"<$filename")||die"不克不及打开文件$filename\n";
  @array= #将全部的数据内容都指定给数组@array
  close(file);
  print "@array"; 也会把abc.TXT这个文件的内容显示出来。
  语法3：open(filehandle,">$filename")
  阐明：创建一个新的文件(write only),如果曾经存在这个文件了，就会把旧文
  件名笼罩掉。并可用print filehandle的方式将数据到所打开的文件中。
  示例：
  $filename="/usr/abc.txt";
  open(file,">$filename")||die"不克不及打开文件$filename\n;
  print file "this is a new line1\n; #\n是换行字符
  print file "this is a new line2\n;
  close(file); 会打数据存在一个新文件中。
  语法4：open(filehandle,">>$filename")
  阐明：数据用附加的方式定入一文件(write only)，如果指定的文件名不存在
  的话就会创建一个新的文件。
  示例：
  $filename="/path/abc.txt";
  open(file,">>$filename")||die"不克不及打开文件$filename\n";
  print file "this is a new line1\n";
  print file "this is a new line2\n";
  close(file);
  会打数据附加(append)到一个文件(abc.txt)中。
  语法5：open(filehandle,"|unix command")
  阐明：就会把在filehandle的数据输入给unix的指令来作处理。
  示例：
  $mailprog="/usr/ucb/mail"; #unix体系上的寄信步伐(肯定要加绝对途径)
  $who="mqingyi@126.com";
  $open(file,"|$mailprog$who")||die"打开失败\n";
  print file "I love you!\n";
  print file "I want to see you.\n";
  close(file);
  就会经过unix体系mail的步伐，将FILE这个FILEHANDLE的数据内容寄给$who这个
  变量所指定的收信人。 我们可以利用open这个函数来计划一个来信品评CGI使用
  步伐，在本书中的下一章中会有详细的先容。
  指令：close
  用法：close(filehandle)
  阐明：用open这个函数来打开一个filehandle之后，肯定要用close批这个函数
  把所打开的filehandle封闭。
  示例：
  open(filehandle,"$filename");
  close(filehandle);
  指令：pack
  语法：pack("指定的格式",list)
  阐明：pack这个函数会将一个list酿成所指定的二进制数据格式。在CGI步伐分
  割解码过程中，会用到pack这 个函数,以是笔者在此简略先容这个函数的用法。
  示例：$string=pack("c",65); #这时$string="a";将65这个ascii码转换成一
  个unsigned字符，其中c就是指定要转换成unsigned字符的意思。
  指令：read
  语法：read(filehandle,$string,length) 其中length是代表读入字符串的长
  度(bytes)。
  阐明：用read这个函数把filehandle中的数据依指定的字符串长度读入之后指
  派给$string这个变量。在cgi步伐支解解码过程中，如果FORM的传送方式是设定
  为POST的话，就会将传送的数据设定为标准输入，以是会将数据内容指定给
  STDIN这个标准输入的filehandle，而CGI环境变量$env{'content_length'}就是
  代 表使用者送出数据内容的长度，因而我们要用read这个函数来获得使用者送
  出的数据内容。
  示例：read(stdin,$buffer,$env{'content_length'}); 就会将stdin这个标准
  输入filehandle中的数据依指定的字符串长度读入，再指派给$buffer这个变
  量。
  指令：exit
  语法：exit
  阐明：加入执行的步伐。
  示例： print"i love cgi\n"; exit; 显示完"i love cgi"以后，将加入这个
  步伐。
 

文章作者: 福州军威计算机技术有限公司
军威网络是福州最专业的电脑维修公司,专业承接福州电脑维修、上门维修、IT外包、企业电脑包年维护、局域网网络布线、网吧承包等相关维修服务。
版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处 、作者信息和声明。否则将追究法律责任。

TAG:

评论加载中... 内容： 评论者： 验证码：