第一讲 概述
一、Perl是什么?
Perl是Practical Extraction and Report Language的缩写,它是由Larry Wall设计的,并由他不断更新和维护,用于在Unix环境下编程。
Perl具有高级语言(如C)的强大能力和灵活性。事实上,它的许多特性是从C语言中借用过来的。
与脚本语言一样,Perl不需要编译器和连接器来运行代码,你要做的只是写出程序并告诉Perl来运行而已。这意味着Perl对于小的编程问题的快速解决方案和为大型事件创建原型来测试潜在的解决方案是十分理想的。
.Perl提供脚本语言(如sed和awk)的所有功能,还具有它们所不具备的很多功能。Perl还支持sed到Perl及awk到Perl的翻译器。简而言之,Perl像C一样强大,像awk、sed等脚本描述语言一样方便。
二、Perl在哪里?
Perl通常位于/usr/local/bin/perl或/usr/bin/perl中,您可以在Internate用匿名FTP免费得到它,如ftp://prep.ai.mit.edu/pub/gnu/perl-5.004.tar.gz。
安装过程为:
1、解压:
$gunzip perl-5.004.tar.gz
$tar xvf - <perl-5.00.4.tar.gz
2、编译:
$make makefile
3、放置:
将编译生成的可执行文件拷贝到可执行文件通常所在的目录,如:
$copy <compiled excutable file> /usr/local/bin/perl
注:这需要系统管理员权限
三、运行
用文本编辑器编辑好您的Perl程序,加上可执行属性:
$chmod +x <program> 就可以执行了
$./<program>
如果系统提示:
"/usr/local/bin/prel not found",则说明您没有安装成功,请重新安装。
注意:您的程序的第一行必须为
#!/usr/local/bin/perl(perl所在位置)。
四、注释:
注释的方法为在语句的开头用字符#,如:
# this line is a comment
注意:建议经常使用注释使您的程序易读,这是好的编程习惯。
第二讲 简单变量
基本上,简单变量就是一个数据单元,这个单元可以是数字或字符串。
一、整型
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_3
First value is 0
Second value is 0.01
三、字符串
惯用C的程序员要注意,在Perl中,字符串的末尾并不含有隐含的NULL字符,NUL字符可以出现在串的任何位置。
1、双引号内的字符串中支持简单变量替换,例如:
$number = 11 ;
$text = "This text contains the number $number.";
则$text的内容为:"Thist text contains the number 11."
2、双引号内的字符串中支持转义字符:
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"
3、要在字符串中包含双引号或反斜线,则在其前加一个反斜线,反斜线还可以取消变量替换,如:
$res = "A quote \" and A backslash \\" ;
$result = 14 ;
print("The value of \$result is $result.\n")的结果为:
The value of $result is 14.
4、可用\nnn(8进制)或\xnn(16进制)来表示ASCII字符,如:
$result = "\377"; # this is the character 255,or EOF
$result = "\xff"; # this is also 255
5、单引号字符串:
单引号字符串与双引号字符串有两个区别,一是没有变量替换功能,二是反斜线不支持转义字符,而只在包含单引号和反斜线时起作用。单引号另一个特性是可以跨多行,如:
$text = 'This is two
lines of text
';
与下句等效:
$text = "This is two\nlines of text\n";
6、字符串和数值的互相转换:
例1:
$string = "43";
$number = 28;
$result = $string + $number; # $result = 71
若字符串中含有非数字的字符,则从左起至第一个非数字的字符,如:
$result = "hello" * 5; # $result = 0
$result = "12a34" +1; # $result = 13
7、变量初始值:
在PERL中,所有的简单变量都有缺省初始值:"",即空字符。但是建议给所有变量赋初值,否则当程序变得大而复杂后,很容易出现不可预料且很难调试的错误。
分享到:
相关推荐
PERL5 第二版提供的资源将帮助程序员节约大量的编程时间.书中提供了200个解决PERL和CGI编程步骤,其中包括问题的提出,解决的方法,可能的错误和全部源程序.本书共分24章,涵盖了PERL 5的全部特征和CGI编程技巧,同时本书...
perl5语言全教程.perl5语言全教程,perl5perl5语言全教程语言全教程,
一本很好perl 5学习书籍。 一本很好perl 5学习书籍。 一本很好perl 5学习书籍。 一本很好perl 5学习书籍。
Inline-Perl5, 在 Perl 6程序中,使用 Perl 5代码 标题Inline::Perl5 概要 use Inline::Perl5; use DBI:from<Perl5>; my $dbh = DBI.connect('dbi:Pg:database=t
Perl版本5.004的排版快速参考指南。 包含所有Perl 5语句,函数,变量和许多其他有用信息的简要描述。
Perl 5 By Example
Perl5语言命令详解.pdfPerl5语言命令详解.pdfPerl5语言命令详解.pdf
Perl 5 教程 (CHM)版本,原始网页资料来自于北大网站,我整理了做成 CHM 方便搜索,希望对大家有用!
Perl 5 教程 <br>html 结构
Perl5编程技巧与实例分析
Perl5语言全教程.rarPerl5语言全教程.rar
perl开发手册,查询perl5字段,方便开发。
Perl 5编程语言开发指南(第二版)
安装包:perl5.003_07.tar.gz
教您如何使用Perl编程语言,该语言旨在为从新手到高级读者提供广泛的服务。
Perl5 语言全教程(HTML),编译生成chm格式的。
Perl5语言学习教程 Perl 基础 第1学时Perl 入门 第2学时Perl 的基本构件:数字和字符串 第3学时控制程序流 第4学时基本构件的堆栈:列表与数组 第5学时进行文件操作 第6学时模式匹配 第7学时哈希结构 第8学时函数
Perl 5官方文档
Perl5程序设计.rarPerl5程序设计.rar
Perl 5 教程.chm