perl教程(Perl入门教程)

编程之家2023-11-03103次浏览

各位老铁们，大家好，今天由我来为大家分享perl教程，以及Perl入门教程的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

Perl入门教程

2楼真是的，人家还没入门，你直接整个文件操作干嘛？

什么是Perl？

Perl是一种最初开发用于文本操作的编程语言。现在它能应用于广泛的任务，包括系统管理、 web开发、网络编程、 GUI开发和更多的普通用途。

这个语言以实用性为目标（易用、高效、完整）宁愿失去美丽（小巧、优雅、迷你）。它使用方便，且支持面向过程和面向对象编程，内置强大的文本处理支持，并有世界上最令人印象深刻的第三方模块的集中营。

运行Perl程序

在Unix命令行运行Perl程序：

perl progname.pl

另一种方法是，把这个放到你的脚本第一行：

#!/usr/bin/env perl

然后用/path/to/script.pl运行。当然，首先得让它能执行，你得chmod 755 script.pl（Unix下）。

（这里的第一行假设你有env程序。你也可以直接把你的perl解释器的路径直接放到第一行，比如#!/usr/bin/perl）

安全保障

默认情况下，Perl非常随意。为了使它更强健建议每个程序由下列行开始：

1.#!/usr/bin/perl

2. use strict;

3. use warnings;

附加的两行从perl中捕获您的代码中的各种常见的问题。它们检查不同的事情，所以你需要两个都加上。一个潜在的问题通过use strict;捕获，一旦它捕获到问题，会马上让你的程序停止运行。当然使用use warnings;时，仅仅出现警告（就好像命令行的-w选项）并不会停止程序。

基本语法概述

一个Perl脚本或程序包含一条或多条语句。这些语句只需直接写在脚本中，而不需要像main()这样的东西作为程序入口。

Perl语句以分别结束：

print"Hello, world";

以星号（#）开始的语句是注释：

# This is a comment（这是一条注释）

空白字符会被Perl忽略：

1. print

2."Hello, world"

3.;

……引号里的字符串除外：

1.# this would print with a linebreak in the middle

2. print"Hello

3. world";

字符串使用双引号或单引号：

1. print"Hello, world";

2. print'Hello, world';

然而，只有双引号会“插入”变量值和像换行符（\n）这样的特殊字符（转义字符）：

1. print"Hello,$name\n";# works fine

2. print'Hello,$name\n';# prints$name\n literally

数字不需要引号：

print 42;

你可以使用或省略括号来传递函数的参数。它们只是在偶尔要改变或明确优先级的时候必须使用。

1. print("Hello, world\n");

2. print"Hello, world\n";

Perl变量类型

Perl有3种主要的变量类型：标量（scalars）、数组（arrays）和哈希（hashes）。

*标量（Scalars）

一个标量表示只有一个值：

1. my$animal="camel";

2. my$answer= 42;

标量的值可以是字符串、整数或浮点数，并且Perl会在需要的时候自动转换。你不需要预先声明你的变量类型，但是你需要在第一次使用它们的时候，使用my来声明它们。（这是use strict;所要求的）

标量可以用不用的方式使用：

1. print$animal;

2. print"The animal is$animal\n";

3. print"The square of$answer is",$answer*$answer,"\n";

有大量的“魔法”标量的名称看上去像标点或线路噪音。这些特殊的变量用于各种目的。现在你只要知道其中一个，这就是“默认变量”$_。它被许多Perl的函数用作默认的参数，并且它被隐式设置到某些循环结构中。

print;# prints contents of$_ by default（默认打印$_的内容）

*数组（Arrays）

数组用于表示一些值的列表：

1. my@animals=("camel","llama","owl");

2. my@numbers=(23, 42, 69);

3. my@mixed=("camel", 42, 1.23);

特殊变量$#array将返回数组最后一个元素的索引：

print$mixed[$#mixed];# last element, prints 1.23

你可能想使用$#array+ 1来得到这个数组的元素个数。别急，这很容易。在Perl预想找到一个标量值的时候（“在标量上下文”），使用@array会得到数组的元素个数：（译注：“上下文”是Perl很重要的特性之一，请查阅相关文档或在无忧Perl搜索相关内容）

if(@animals< 5){...}#译注：当@animals数组的元素个数少于5个的时候

当我们从数组获得元素值的时候，需要使用$，因为我们只要获取数组里的一个值；你请求一个标量，然后会获得一个标量。

从数组里获取多个值：

（译注：获取多个值，使用@，因为我们要获取数组里的几个值（列表）。）

1.@animals[0,1];# gives("camel","llama");

2.@animals[0..2];# gives("camel","llama","owl");

3.@animals[1..$#animals];# gives all except the first element

这叫“数组切片”。

你可以在列表里干些有意义的事情：

1. my@sorted= sort@animals;

2. my@backwards= reverse@numbers;

有两个特殊的数组，一个是命令行传到你脚本的参数@ARGV；另一个是传递给子程序的参数@_。

*哈希

哈希用来表示键/值对：

1. my%fruit_color=("apple","red","banana","yellow");

你可以使用空白字符和=>操作符来美化上面的代码：

1. my%fruit_color=(

2. apple=>"red",

3. banana=>"yellow",

4.);

获取哈希元素：

1.$fruit_color{"apple"};# gives"red"

你可以通过keys()和values()来获取键列表和值列表。

1. my@fruits= keys%fruit_colors;

2. my@colors= values%fruit_colors;

哈希没有特定的内部排序，然而你可以对键进行排序来遍历它。

和特殊的标量、数组一样，哈希也有特殊的。我们现在只要知道哈希%ENV包括所有环境变量

。

更复杂的数据类型可以使用引用来构造，允许你把列表和哈希放到另一个列表和哈希中。

引用是一个标量值，它可以引用任何其它的Perl数据类型。通过把引用存储为数组或哈希的元素值，你可以轻松创建列表/哈希中的列表/哈希。

以下示例演示了使用匿名哈希引用实现的两级哈希结构

1. my$variables={

2. scalar=>{

3. description=>"single item",

4. sigil=>'$',

5.},

6. array=>{

7. description=>"ordered list of items",

8. sigil=>'@',

9.},

10. hash=>{

11. description=>"key/value pairs",

12. sigil=>'%',

13.},

14.};

15.

16. print"Scalars begin with a$variables->{'scalar'}->{'sigil'}\n";

变量作用域

上面所有的例子都使用这种语法：

1. my$var="value";

实际上，my不是必须的。你可以省略：（译注：前提是，你没有使用“use strict;”语句）

1.$var="value";

但是，上面的用法将创建一个全局变量，这是一个很差的编程实践。my创建一个词法作用域变量，这个变量只在定义它们的语句块中可见（比如一段包在大括号里的语句）。

1. my$x="foo";

2. my$some_condition= 1;

3. if($some_condition){

4. my$y="bar";

5. print$x;# prints"foo"

6. print$y;# prints"bar"

7.}

8. print$x;# prints"foo"

9. print$y;# prints nothing;$y has fallen out of scope

结合使用my和在Perl脚本开头使用use strict，解释器将捕获常见的编程错误。比如，在上面的例子中，最后的print$y将引发一个编译时错误并阻止程序运行。强烈建议使用use strict语句！

条件和循环语句

Perl有许多常用的条件和循环语句。Perl 5.10甚至提供了分支语句（拼作given/when）。

条件可以是任何Perl表达式。比较和布尔条件语句中常用的逻辑运算符，请参阅有关信息的下一节中的运算符的列表。

* if

1. if( condition){

2....

3.} elsif( other condition){

4....

5.} else{

6....

7.}

还有否定版本的：

1. unless( condition){

2....

3.}

这个否定版比if(!condition)更易读。

注意，大括号是必须的，即使代码块中只有一行。不过，这里有一个方法可以让你通过类似英语的语法来实现单行条件语句：

1.# the traditional way

2. if($zippy){

3. print"Yow!";

4.}

6.# the Perlish post-condition way

7. print"Yow!" if$zippy;

8. print"We have no bananas" unless$bananas;

* while

1. while( condition){

2....

3.}

为了和unless同样的理由，也有一个否定版本：

1. until( condition){

2....

3.}

你也可以在后置条件里使用while：

print"LA LA LA\n" while 1;# loops forever

* for

跟C语言一样：

1. for($i= 0;$i<=$max;$i++){

2....

3.}

自然Perl提供了更友好的列表遍历循环foreach以后，C语言风格的for循环在Perl几乎不需要了。

* foreach

1. foreach(@array){

2. print"This element is$_\n";

3.}

5. print$list[$_] foreach 0..$max;

7.# you don't have to use the default$_ either...

8. foreach my$key(keys%hash){

9. print"The value of$key is$hash{$key}\n";

10.}

内置操作符和函数

Perl附带了各种各样的内置函数。我们已经看到的几个，包括print，sort和reverse。

Perl常见操作符（运算符）

*算术

1.+加法

2.-减法

3.*乘法

4./除法

*数字比较

1.==等于

2.!=不等于

3.<小于

4.>大于

5.<=小于等于

6.>=大于等于

*字符串比较

1. eq等于

2. ne不等于

3. lt小于

4. gt大于

5. le小于等于

6. ge大于等于

（为什么数字和字符串的比较运算符不同？因为我们没有不同的变量类型，并且Perl需要知道是以数字进行排序（99小于100）还是以字母进行排序（100在99前面））

*逻辑

1.&& and和

2.|| or或

3.! not否

*混合

1.=赋值

2..字符串连接

3. x字符串乘法

4...范围(建立一个列表)

一些操作符可以和=结合，像这样：

1.$a+= 1;# same as$a=$a+ 1

2.$a-= 1;# same as$a=$a- 1

3.$a.="\n";# same as$a=$a."\n";

文件和I/O

你可以使用open()函数来打开一个文件，用于输入或输出：

1. open(my$in,"<","input.txt") or die"Can't open input.txt:$!";

2. open(my$out,">","output.txt") or die"Can't open output.txt:$!";

3. open(my$log,">>","my.log") or die"Can't open my.log:$!";

你可以使用<>操作符从打开的文件句柄中读数据。在标量上下文中，它从文件句柄中读取一行；在列表上下文中，它读取整个文件，并将每一行作为列表的元素。

1. my$line=<$in>;

2. my@lines=<$in>;

一次性把整个文件读完，叫做“啜食（slurping）”。它能让人满意，但它可能是内存吞噬者。大多数文本文件处理可以通过Perl的循环结构，一行一行地完成。

<>操作符经常出现在while循环里：

1. while(<$in>){# assigns each line in turn to$_

2. print"Just read in this line:$_";

3.}

我们已经看到了如何使用print()在标准输出里打印。但是，print()还能通过第一个可选参数指定一个文件句柄来打印（译注：将内容输出到指定的文件句柄中，即写入到文件句柄相关联的文件中）

1. print STDERR"This is your final warning.\n";

2. print$out$record;

3. print$log$logmessage;

当你完成了对文件句柄的操作之后，你应该使用close()来关闭文件句柄。（老实说，如果你忘记关闭了，Perl会帮你处理。）

close$in or die"$in:$!";

正则表达式

Perl对正则表达式的支持宽广而深入：

*简单匹配

1. if(/foo/){...}# true if$_ contains"foo"

2. if($a=~/foo/){...}# true if$a contains"foo"

//匹配操作符（译注，完整的应该是：m//）默认操作$_，或者使用=~来绑定其它变量进行操作。

*简单置换

1. s/foo/bar/;# replaces foo with bar in$_

2.$a=~ s/foo/bar/;# replaces foo with bar in$a

3.$a=~ s/foo/bar/g;# replaces ALL INSTANCES of foo with bar in$a

*更复杂的正则表达式

你不仅能匹配固定的字符串。其实，你可以匹配任何你能想到的复杂正则表达式。

1..单个任意字符（默认不包含\n）

2.\s一个空白字符(空格, tab,换行,...)

3.\S一个非空白字符

4.\d一个数字(0-9)

5.\D一个非数字

6.\w一个能组成单词的字符(a-z, A-Z, 0-9, _)

7.\W一个不能组成单词的字符

8. [aeiou]匹配中括号内的任意一个字符

9. [^aeiou]匹配除了中括号内列出的字符之外的任意一个字符

10.(foo|bar|baz)匹配foo或bar或baz

11.

12. ^匹配开头

13.$匹配结尾

量词可用来指定数量：

1.*零个或任意多个

2.+至少一个

3.?零个或一个

4.{3} 3个

5.{3,6} 3到6个

6.{3,}至少3个

一些简单的例子：

1./^\d+/以一个或多个数字开头

2./^$/空的，没有任何东西

3./(\d\s){3}/ 3个带空白字符的数字

4.(比如"3 4 5")

5./(a.)+/匹配最少一次，含有a和任意字符

6.(比如"abacadaf")

8.#从STDIN循环读入，并打印出非空白行:

9. while(<>){

10. next if/^$/;

11. print;

12.}

*圆括号捕捉

括号的另一个用法是分组。它可以用来捕捉最后使用的正则表达式匹配的结果。这些结果用$1、$2……表示。

1.# a cheap and nasty way to break an email address up into parts

3. if($email=~/([^@]+)@(.+)/){

4. print"Username is$1\n";

5. print"Hostname is$2\n";

6.}

子程序

写一个子程序是很容易的：

1. sub logger{

2. my$logmessage= shift;

3. open my$logfile,">>","my.log" or die"Could not open my.log:$!";

4. print$logfile$logmessage;

5.}

现在我们可以像使用其它内置函数一样，使用该子程序了：

1. logger("We have a logger subroutine!");

什么是shift？传递给子程序的参数保存在@_数组中。shift函数的默认参数是@_。所以my$logmessage= shift;去掉第一个参数，并将其赋值给$logmessage。

可以通过别的方法操作@_：

1. my($logmessage,$priority)=@_;# common（通用）

2. my$logmessage=$_[0];# uncommon, and ugly（不通过，并且很丑陋）

子程序可以返回值：

# sub square{

# my$num= shift;

# my$result=$num*$num;

# return$result;

然后像这样使用它：

1.$sq= square(8);

Perl面向对象

Perl面向对象相对比较简单，这是实现使用引用什么样的对象知道自己是在Perl的概念为基础的封装。

刚开始进行Perl编程，你最常使用的Perl面向对象将是使用第三方模块，参见下文。

使用Perl模块

Perl模块提供了一系列的功能，可帮助您避免重复劳动，它们可以通过CPAN（www.cpan.org）下载。许多流行的模块都已经包含在了Perl发行包中。

本文由无忧Perl（www.51perl.com）翻译，转载请注明本文链接：www.51perl.com/perl-brief-introduction/

水平有限，错误难免，欢迎指正，并以原文为准。原文地址：http://perldoc.perl.org/perlintro.html

希望对你有用

PHP入门基础教程

PHP入门基础教程大全

PHP于1994年由Rasmus Lerdorf创建，刚刚开始是Rasmus Lerdorf为了要维护个人网页而制作的一个简单的用Perl语言编写的程序。这些工具程序用来显示 Rasmus Lerdorf的个人履历，以及统计网页流量。后来又用C语言重新编写，包括可以访问数据库。他将这些程序和一些表单直译器整合起来，称为 PHP/FI。PHP/FI可以和数据库连接，产生简单的动态网页程序。为帮助大家入门学习php，我为大家分享PHP入门知识教程如下：

1、嵌入方法：

类似ASP的<%，PHP可以是<?php或者是<?，结束符号是?>，当然您也可以自己指定。

2、引用文件：

引用文件的方法有两种：require及 include。

require的使用方法如 require("MyRequireFile.php");。这个函数通常放在 PHP程序的最前面，PHP程序在执行前，就会先读入 require所指定引入的文件，使它变成 PHP程序网页的一部份。常用的函数，亦可以这个方法将它引入网页中。

include使用方法如 include("MyIncludeFile.php");。这个函数一般是放在流程控制的处理部分中。PHP程序网页在读到 include的文件时，才将它读进来。这种方式，可以把程序执行时的流程简单化。

3、注释方法：

<?php

echo"这是第一种例子。\n";//本例是 C++语法的注释（PHP的注释跟C差不多！）

/*本例采用多行的

注释方式*/

echo"这是第二种例子。\n";

echo"这是第三种例子。\n";#本例使用 UNIX Shell语法注释

4、变量类型：

$mystring="我是字符串";

$NewLine="换行了\n";

$int1= 38;

$float1= 1.732;

$float2= 1.4E+2;

$MyArray1= array("子","丑","寅","卯");

这里引出两个问题，首先PHP变量以$开头，第二PHP语句以;结尾，可能ASP程序员会不适应。这两个遗漏也是程序上大多错误所在。

5、运算符号：

数**非法字眼已被屏蔽**算：

符号意义

+加法运算

-减法运算

*乘法运算

/除法运算

%取余数

++累加

--递减

字符串运算：

运算符号只有一个，就是英文的句号。它可以将字符串连接起来，变成合并的新字符串。类似ASP中的&

$a="PHP 4";

$b="功能强大";

echo$a.$b;

这里也引出两个问题，首先PHP中输出语句是echo，第二类似ASP中的<%=变量%>，PHP中也可以<?=变量?>。

逻辑运算：

符号意义

<小于

>大于

<=小于或等于

>=大于或等于

==等于

!=不等于

&&而且(And)

and而且(And)

或者(Or)

or或者(Or)

xor异或(Xor)

!不(Not)

学习目的：掌握php的流程控制

1、if..else循环有三种结构

第一种是只有用到 if条件，当作单纯的判断。解释成"若发生了某事则怎样处理"。语法如下：

if(expr){ statement}

其中的 expr为判断的条件，通常都是用逻辑运算符号当判断的条件。而 statement为符合条件的执行部分程序，若程序只有一行，可以省略大括号{}。

范例：本例省略大括号。

<?php

if($state==1)echo"哈哈";

这里特别注意的是，判断是否相等是==而不是=，ASP程序员可能常犯这个错误，=是赋值。

范例：本例的执行部分有三行，不可省略大括号。

<?php

if($state==1){

echo"哈哈;

echo"<br>";

}

第两种是除了 if之外，加上了 else的条件，可解释成"若发生了某事则怎样处理，否则该如何解决"。语法如下

if(expr){ statement1} else{ statement2}范例：上面的例子来修改成更完整的处理。其中的 else由于只有一行执行的指令，因此不用加上大括号。

<?php

if($state==1){

echo"哈哈";

echo"<br>";

}

else{

echo"呵呵";

echo"<br>";

}

第三种就是递归的 if..else循环，通常用在多种决策判断时。它将数个 if..else拿来合并运用处理。

直接看下面的例子

<?php

if($a>$b){

echo"a比 b大";

} elseif($a==$b){

echo"a等于 b";

} else{

echo"a比 b小";

}

上例只用二层的 if..else循环，用来比较 a和 b两个变量。实际要使用这种递归 if..else循环时，请小心使用，因为太多层的循环容易使设计的逻辑出问题，或者少打了大括号等，都会造成程序出现莫名其妙的问题。

2、 for循环就单纯只有一种，没有变化，它的语法如下

for(expr1; expr2; expr3){ statement}

其中的 expr1为条件的`初始值。expr2为判断的条件，通常都是用逻辑运算符号(logical operators)当判断的条件。expr3为执行 statement后要执行的部份，用来改变条件，供下次的循环判断，如加一..等等。而 statement为符合条件的执行部分程序，若程序只有一行，可以省略大括号{}。

下例是用 for循环写的的例子。

<?php

for($i= 1;$i<= 10;$i++){

echo"这是第".$i."次循环<br>";

}

3、 switch循环，通常处理复合式的条件判断，每个子条件，都是 case指令部分。在实作上若使用许多类似的 if指令，可以将它综合成 switch循环。

语法如下

switch(expr){ case expr1: statement1; break; case expr2: statement2; break; default: statementN; break;}

其中的 expr条件，通常为变量名称。而 case后的 exprN，通常表示变量值。冒号后则为符合该条件要执行的部分。注意要用 break跳离循环。

<?php

switch( date("D")){

case"Mon":

echo"今天星期一";

break;

case"Tue":

echo"今天星期二";

break;

case"Wed":

echo"今天星期三";

break;

case"Thu":

echo"今天星期四";

break;

case"Fri":

echo"今天星期五";

break;

default:

echo"今天放假";

break;

}

这里需要注意的是break;别遗漏了，default，省略是可以的。

很明显的，上述的例子用 if循环就很麻烦了。当然在设计时，要将出现机率最大的条件放在最前面，最少出现的条件放在最后面，可以增加程序的执行效率。上例由于每天出现的机率相同，所以不用注意条件的顺序。

学会构建数据库

在PHP中，MY SQL的命令行编辑可能会令初学者感到很麻烦，不要紧，你下载一个PHPMYADMIN安装一下，以后建立编辑数据库可以靠它了。

下面说一下它的使用。

进入了phpmyadmin后，我们首先需要建立一个数据库，

Language(*)这里选择中文简体，然后在左边的创建一个新的数据库这里填写数据库名字，点击创建即可。

然后在左边下拉菜单中选择那个已经创建的数据库。在下面的

在数据库 shop中创建一个新表:

名字:

字段数:

中填写表名字和大致你认为的字段数（不够或者多了都不要紧，以后可以再添加或者缺省），按执行。

然后就可以开始建立表了。

第一栏是字段的名字；第二栏选择字段类型：

我们常用的是以下几个：

1）VARCHAR，文本类型

2）INT，整数类型

3）FLOAT，浮点数类型

4）DATE，日期型

5）大家或许会问，自动添加的ID在哪里？这个只要选择INT类型，在后面的额外中选择 auto_increment就可以了。

建立了表以后，可以在左边看到你建立的表，点击以后，你可以：

1）按右边的结构：查看修改表结构

2）按右边的浏览：查看表中的数据

3）按右边的SQL：运行SQL语句

4）按右边的插入：插入一行记录

5）按右边的清空：删除表中所有记录

6）按右边的删除：删除表

还有一个很重要的功能就是导入和导出，当我们本机做好了程序和数据库的时候，需要在服务器上也有一个本地镜像，如果是ASP的ACCESS简单了，直接上传MDB文件即可，如果是SQL SERVER也可以连接远端服务器进行导入。那么MY SQL中你可以导出所有的SQL语句，到了远端服务器的PHPMYADMIN上，创建数据库后按SQL，粘帖你刚才复制下来的所有本级生成的SQL语句即可。

学会连接数据库

PHP简直就是一个函数库，丰富的函数使PHP的某些地方相当简单。建议大家down一本PHP的函数手册，总用的到。

我这里就简单说一下连接MYSQL数据库。

1、mysql_connect

打开 MySQL服务器连接。

语法: int mysql_connect(string [hostname] [:port], string [username], string [password]);返回值:整数

本函数建立与 MySQL服务器的连接。其中所有的参数都可省略。当使用本函数却不加任何参数时，参数 hostname的默认值为 localhost、参数 username的默认值为 PHP执行行程的拥有者、参数 password则为空字符串(即没有密码)。而参数 hostname后面可以加冒号与端口号，代表使用哪个端口与 MySQL连接。当然在使用数据库时，早点使用 mysql_close()将连接关掉可以节省资源。

2、 mysql_select_db

选择一个数据库。

语法: int mysql_select_db(string database_name, int [link_identifier]);返回值:整数

本函数选择 MySQL服务器中的数据库以供之后的资料查询作业(query)处理。成功返回 true，失败则返回 false。

最简单的例子就是：

$conn=mysql_connect("127.0.0.1","","");

mysql_select_db("shop");

连接机MY SQL数据库，打开SHOP数据库。在实际应用中应当加强点错误判断。

学会读取数据

先看两个函数：

1、mysql_query

送出一个 query字符串。语法: int mysql_query(string query, int [link_identifier]);返回值:整数

本函数送出 query字符串供 MySQL做相关的处理或者执行。若没有指定 link_identifier参数，则程序会自动寻找最近打开的 ID。当 query查询字符串是 UPDATE、INSERT及 DELETE时，返回的可能是 true或者 false；查询的字符串是 SELECT则返回新的 ID值，当返回 false时，并不是执行成功但无返回值，而是查询的字符串有错误。

2、mysql_fetch_object返回类资料。语法: object mysql_fetch_object(int result, int [result_typ]);返回值:类

本函数用来将查询结果 result拆到类变量中。若 result没有资料，则返回 false值。

看一个简单的例子：

$exec="select* from user";

$result=mysql_query($exec);

while($rs=mysql_fetch_object($result))

{

echo"username:".$rs->username."<br>";

}

当然，表user中有一个username的字段，这就类似asp中的

exec="select* from user"

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

do while not rs.eof

response.write"username:"&rs("username")&"<br>"

rs.movenext

loop

当然先要连接数据库，一般我们 require_once('conn.php');而conn.php里面就是上一次说的连接数据库的代码。

小小的两条命令可以完成读取数据的工作了

学会添加删除修改数据

mysql_query($exec);

单这个语句就可以执行所有的操作了，不同的就是$exec这个sql语句

添加：$exec="insert into tablename(item1,item2) values('".$_POST['item1']."',".$_POST['item1'].")";

删除：$exec="delete from tablename where...";

修改：$exec="update tablename set item1='".$_POST['item1']."' where...";

说到这里就要说一下表单和php变量传递，如果表单中的一个<input name="item1" type="text" id="item1">

表单以POST提交的，那么处理表单文件就可以用$_POST['item1']得到变量值，同样以GET提交的就是$_GET['item1']

是不是很简单？但是通常$exec会有问题，因为可能您的SQL语句会很长，您会遗漏.连接符，或者'来包围字符型字段。

我们可以注释mysql_query($exec);语句用echo$exec;代替来输出$exec以检查正确性。如果您还不能察觉$exec有什么错误的话，可以复制这个sql语句到phpmyadmin中执行，看看它的出错信息。还有需要注意的是，我们不要使用一些敏感的字符串作为字段名字，否则很可能会出现问题，比如说date什么的。变量的命名，字段的命名遵循一点规律有的时候对自己是一种好处，初学者并不可忽视其重要性。

学会SESSION的使用

SESSION的作用很多，最多用的就是站点内页面间变量传递。

在页面开始我们要session_start();开启SESSION；

然后就可以使用SESSION变量了，比如说要赋值就是：$_SESSION['item']="item1";要得到值就是$item1=$_SESSION['item'];，很简单吧。这里我们可能会使用到一些函数，比如说判断是不是某SESSION变量为空，可以这么写：empty($_SESSION['inum'])返回true or false。

下面综合一下前面所说的我们来看一个登陆程序，判断用户名密码是否正确。

登陆表单是这样：login.php

<tr>

<td colspan="2"><p align="center">Administrators Login</p></td>

</tr>

<td><p align="center">Username</p></td>

</p></td>

</tr>

<td><p align="center">Password</p></td>

</p></td>

</tr>

</p></td>

</tr>

</table></td></form>

</tr>

</table>

处理文件是这样

<?php

require_once('conn.php');

session_start();

$username=$_POST['username'];

$password=$_POST['password'];

$exec="select* from admin where username='".$username."'";

if($result=mysql_query($exec))

{

if($rs=mysql_fetch_object($result))

{

if($rs->password==$password)

{

$_SESSION['adminname']=$username;

header("location:index.php");

}

else

{

echo"<script>alert('Password Check Error!');location.href='login.php';</script>";

}

else

{

echo"<script>alert('Username Check Error!');location.href='login.php';</script>";

}

else

{

echo"<script>alert('Database Connection Error!');location.href='login.php';</script>";

}

conn.php是这样：

<?php

$conn=mysql_connect("127.0.0.1","","");

mysql_select_db("shop");

由于$_SESSION['adminname']=$username;我们可以这样写验证是否登陆语句的文件：checkadmin.php

<?php

session_start();

if($_SESSION['adminname']=='')

{

echo"<script>alert('Please Login First');location.href='login.php';</script>";

}

做一个分页显示

关键就是用到了SQL语句中的limit来限定显示的记录从几到几。我们需要一个记录当前页的变量$page，还需要总共的记录数$num

对于$page如果没有我们就让它=0，如果有<0就让它也=0，如果超过了总的页数就让他=总的页数。

$execc="select count(*) from tablename";

$resultc=mysql_query($execc);

$rsc=mysql_fetch_array($resultc);

$num=$rsc[0];

这样可以得到记录总数

ceil($num/10))如果一页10记录的话，这个就是总的页数

所以可以这么写

if(empty($_GET['page']))

{

$page=0;

}

else

{

$page=$_GET['page'];

if($page<0)$page=0;

if($page>=ceil($num/10))$page=ceil($num/10)-1;//因为page是从0开始的，所以要-1

}

这样$exec可以这么写$exec="select* from tablename limit".($page*10).",10";

//一页是10记录的

最后我们需要做的就是几个连接：

<a rel="external nofollow" href="xxx.php?page=0">FirstPage</a>

<a rel="external nofollow" href="xxx.php?page=<?=($page-1)?>">PrevPage</a>

<a rel="external nofollow" href="xxx.php?page=<?=($page+1)?>">NextPage</a>

<a rel="external nofollow" href="xxx.php?page=<?=ceil($num/10)-1?>">LastPage</a>

注意事项

1、注意不要漏了分号

2、注意不要漏了变量前的$

3、使用SESSION的时候注意不要遗漏session_start();

如果发生错误的时候，可以采用以下方法：

1、如果是SQL语句出错，就注释了然后输出SQL语句，注意也要注释调后续的执行SQL语句

2、如果是变量为空，大多是没有传递到位，输出变量检查一下，检查一下表单的id和name

3、如果是数据库连接出错，检查是否正确打开MY SQL和是否遗漏了连接语句

4、注意缩进，排除括号不区配的错误

在做大网站的时候，我的思路是先构建数据库，确定每一个字段的作用，和表之间的关系。然后设计后台界面，从添加数据开始做起，因为添加是否成功可以直接到数据库里面验证，做好了添加再做显示的页面，最后才是两者的结合。一般来说后台就包括添加删除修改和显示，后台没有问题了，前台也没有什么大问题。前台还需要注意安全性和容错还有就是输出格式。

学会用PHP上传文件和发邮件

上传文件表单必须加上 enctype="multipart/form-data"

和<input type="file" name="file">

下面看一下代码：

$f=&$HTTP_POST_FILES['file'];

$dest_dir='uploads';//设定上传目录

$dest=$dest_dir.'/'.date("ymd")."_".$f['name'];//我这里设置文件名为日期加上文件名避免重复

$r=move_uploaded_file($f['tmp_name'],$dest);

chmod($dest, 0755);//设定上传的文件的属性

上传的文件名为date("ymd")."_".$f['name']，可以在以后插入到数据库的时候用到，PHP实际上是把你上传的文件从临时目录移动到指定目录。move_uploaded_file($f['tmp_name'],$dest);这是关键

至于发邮件就更加简单，可以使用mail()函数

mail("收件人地址","主题","正文","From:发件人\r\nReply-to:发件人的地址");

不过mail()需要服务器的支持，在WINDOWS下还需要配置SMTP服务器，一般来说外面的LINUX空间都行。

好像上传文件和发邮件比ASP简单很多，只要调用函数就可以了。ASP还需要用到服务器的不同组件比如FSO、JMAIL什么的。

;

perl程序的运行问题,急急急!!

用搜索找到perl.exe文件，在你的安装目录里，然后把它所在的目录添加到PATH里。无法运行的原因是操作系统找不到这个文件，你试试打出全部路径就能运行，而添加PATH后直接打perl就可以运行，至于添加办法，打开C:\autoexec.bat找到PATH那一行，添加路径到那一行即可。另外在cmd里输入PATH=$PATH;路径也行。这些你搜索一下添加PATH查看详细的知识吧

文章到此结束，希望我们对于perl教程的问题能够给您带来一些启发和解决方案。如果您需要更多信息或者有其他问题，请随时联系我们。

婚纱软文(婚纱照活动策划方案)惠州网络推广惠州网络推广公司哪家好