精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● CGI>>初学乍用>>Perl 语言初学入道之二

主题:Perl 语言初学入道之二
发信人: tanshuai()
整理人: workingnow(2002-10-30 13:55:40), 站内信件
Perl 语言初学入道之二(上)
                                            PERL 语言初学入道篇 
======================================================================
 
===========================================================           
 
                              
作者:天水 E-Mail: [email protected] Http://ts.in-china.com 
======================================================================
 
============================================================ 
上一部分你可以在Perl 精华区中找到!

<二>CGI进本编写方法及部分指令解析(上)

本节讲述Perl的语法命令问题。

1.抄写CGI程序:

一下面的计数器程序为例子,讲述CGI抄写的基本方法:

#!/usr/bin/perl

#Perl程序编译路径

####################################

#开始是设置

$counterfile = "/home/cgi-bin/counter/counter.txt"; #counter.txt的绝对
路径

$imagefile{'0'}="/home/cgi-bin/counter/0.gif"; # 0.gif的绝对路径

$imagefile{'1'}="/home/cgi-bin/counter/1.gif"; # 1.gif的绝对路径

$imagefile{'2'}="/home/cgi-bin/counter/2.gif"; # 2.gif的绝对路径

$imagefile{'3'}="/home/cgi-bin/counter/3.gif"; # 3.gif的绝对路径

$imagefile{'4'}="/home/cgi-bin/counter/4.gif"; # 4.gif的绝对路径

$imagefile{'5'}="/home/cgi-bin/counter/5.gif"; # 5.gif的绝对路径

$imagefile{'6'}="/home/cgi-bin/counter/6.gif"; # 6.gif的绝对路径

$imagefile{'7'}="/home/cgi-bin/counter/7.gif"; # 7.gif的绝对路径

$imagefile{'8'}="/home/cgi-bin/counter/8.gif"; # 8.gif的绝对路径

$imagefile{'9'}="/home/cgi-bin/counter/9.gif"; # 9.gif的绝对路径

#设置完毕

############################

$|=1;

@querys = split(/&/, $ENV{'QUERY_STRING'});

foreach $query (@querys) {

($name, $value) = split(/=/, $query);

$FORM{$name} = $value; 

}

$position="$FORM{'position'}";

open(NUMBER,"$counterfile");

$number=<NUMBER>;

close(NUMBER);

$number++;

if ($position==1) {

open(NUMBER,">$counterfile");

print NUMBER "$number";

close(NUMBER);

}

if (($position>0) && ($position<=length($number))) {

$positionnumber=substr($number,(length($number)-$position),1);

}

else {

$positionnumber="0";

}

if ($imagefile{$positionnumber}) {

$imagereturn=$imagefile{$positionnumber};

}

else {

$imagereturn=$imagefile{'0'};

}

print "Content-type: image/gif\n\n";

open(IMAGE,"<$imagereturn");#打开图像

print <IMAGE>;#显示图像后

close(IMAGE);#显示图像后,关闭图形.

exit 0; #退出

 

2.Perl语言的变量

Perl的变量基本上有三种即纯量变量(ScaiarVariable)、数组(Array)、关联数组
(Associative array),而以下是这些变量的使用方法:



 一、纯量变量(Scalar Variables)的用法
  在Perl语言中变量的使用不像在C语言中还要事先宣告,在使用纯量变量的时
候要先加上$这个符号,要注意的是如果指定的纯量变量是一个字符串的话,就要加
上""这个双引号符号了。如果是一个数值的话,就不用加上""这个符号了。以下是
一些范例: 

$Strl=www"; #将www这个字符串指定给$Strl这个纯量变量; 
$str2="cgi"; #将cgi这个字符串指定给$str2这个纯量变量; 
$str3=$strl.$str2; #.就是把两个字符串连起来,所以 $str3="wwwc20"; 
$int=5; #将5这个数字指定给$int这个纯量变量; 
$int=3+2; #此时$int=5; 
$int=3*2; #此时$int=6; 
$int=l0;$int++; #此时$int=10+l=11; 
$int=l0,$int+=5; #此时$int=10+5=15; 


  二、数组(Arrays)的用法
  在使用数组的时候要先加上@这个符号,以下是一些范例: 

@namel=("sam","good"); #将"sam","good"这两个字符串指定给数组 @name1 
@name2=@name1; #此时的@name2=("sam","good") 
@pame3=("tanshuai",@name1); #此时的 (name3=("tanshuai","sam","good") 

($one,@name4)=@name3; #此时的$one="john",而 @name4=("tom"'"mary") 
@namel=0; #此时@name1为一个空数组 
@int=(1,3,5,7,9); 
$x=@int; #将一个数组指定给一纯量变量,就会返回数组元
#素的个数,所以此时的$x=5 
$x=$#int; #$#这个变量会返回数组最后一个元素的index 
#所以此时$x=4 
($x)=@int;  #$x等于数组@int的第一个元素的值, 
#所以此时$x=1 
$b=$int[0];  #$b等于数组@int的第一个元素,所以$b=1  
$C=@int[0];  #$c也是会等于数组@int的第一个元素,所以 
#$c=1,因此要呼叫数组中的值有以上两种方法 
$int[0]=2;  #将2这个数值指定给数组@int的第一个元素 
#此时@int=(2,3,5,7,9); 
$int[0,1]=[1,3];  #将1指定给数组@int的第一个元素,且将3指 
#定给数组@int的第二个元素的,所以 
#此时@int=(1,3,5,7,9); 
@int[0,1]=@int[1,0];  #将数组@int的前两个元素交换 
#此时@int=(3,1,5,7,9) 
($int[0],$int[1])  #也是将数组@int的前两个元素交换  
=($int[l],$int[0]);  #此时@int=(1,3,5,7,9);  
@data=@int[0,l];  #此时@date=(1,3);  
$int[5]=11;  #将11这个数值指定给数组@int中第六个元素 
#此时@int=(1,3,5,7,9,11) 


  三、关联数组(Associative arrays)的用法
  关联数组也是数组的一种,是由不同的纯量变量所组成。不过和数组不同的地
方是在关联数组中的元素是由成对的key-value所组成的,也就是每一个key都有一
个相对应的值(value),这是在Perl语言中特有的语法,所以初学者对于关联数组可
能会比较陌生一点,笔者会在这里作比较详细的说明。如果能够将关联数组的语法
应用在CGI程序设计中,就会发现关联数组是一个很好用的语法。 
  在使用关联数组的时候要先加上%这个符号,而关联数组的格式如下: 
  %ARRAY=(keyl,value1,key2,value2,key3,value3...); 
  每一个key都有一个相对应的值(value)。 
  l.在关联数组中增加、更改一对数据: 
  $ARRAY{key}=value; 
  在关联数组ARRAY中加上一对key-value,要先在关联数组名称前加上$这个符
号,而且key的名称要在{}符号之间,最后再指定key所对应的value值。如果在这个
关联数组中已经有这个key了,就会更改这个key所对应的value。 
  2.取出关联数组中key所对应的value: 
  $get=$ARRAY{key}; 
  取出在关联数组ARRAY中key所相对应的value,要先在关联数组名称前加上$这
个符号,而且key的名称要在{}符号之间,就会将key所对应的value取出来并指定给
$get这个变量。 
  3.删除一对在关联数组中的数据: 
  delete $ARRAY{key}; 
   delete是Perl所提供的函数,作用是删除关联数组中的一个key以及这个key
所对应的value。使用方法是在delete函数之后,再指定关联数组中要删除key的名
称。以下是有关关联数组用法的一些范例: 

%NAMES=〈I'"one",2'"two"); 
$one=$NAMES{1}; #此时$one等于"one" 
$two=$NAMES{2}; #此时$two等于"two" 
$NAMES{3}="third"; #增加一对key-value到关联数组NAMES中 
#此时%NAMES=(1'"one",2'"two",3'"third"); 
$NAMES{3}="three"; #因为在关联数组中已经有3这个key了,所以就 
#会把key为3所对应的value更改成"three" 
#此时%NAMES=(1'"one仰,2'"two",3'"three"); 
delete$NAMES{3}; #将关联数组中key值为3的一对key-value删除掉, 
#此时%NAMES=(1'"one",2'"two"), 
@X=%NAMES; #将关联数组NAMES指派给数组X 
#此时@X=(1'"one",2'"two"); 
%Y=@x; #将数组X指派给关联数组Y 
#此时%Y=(1'"one","two"); 
%NAMES=(); #此时%NAMES为一个空的关联数组 
--
※ 修改:.tanshuai 于 Jul  5 18:40:39 修改本文.[FROM: 202.96.191.124]
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.191.124]

[关闭][返回]