- 浏览: 197183 次
- 性别:
- 来自: 济南
文章分类
最新评论
-
Kesin97:
不错 很有用。选择性锁也不太影响性能。
sqlserver的updlock锁 (转) -
fox-idea:
学习
用PC作数据库服务器的容灾问题 -
xwei78:
话说这个下载地址不太好找啊,我去oracle网站转了好一会才找 ...
oracle10g官方客户端配置
先来一个例子吧
#!/usr/bin/perl
use warnings;
@array(促销产品 主营产品) = qw(a b c d);
foreach (@array) {
print $_," ";
}
例子的作用就是定义一个数组并把其中的元素打印出来,这里需要注意的是foreach循环部分,foreach循环的标准格式应该是:
foreach $element (@array){
......
}
其中数组@array将其中的元素依次赋值给$element,但是在上面那个程序中,我并没有这样做,在程序中,我就使用到了perl中内置的一个特殊变量 $_ 。
在程序第五行中:foreach (@array) 实际上就是等于 foreach $_ (@array),在这里,$_是默认是输入/输出,因此,如果在程序中有类似的没有明确声明的变量位置的时候,就有可能能使用$_代替。
再看另外一个内置变量
perl -e "sleep(5);print qq(The PID of process perl.exe is : $$)";
这是一句命令行上使用的perl程序,作用就是打印出一段话:print qq(The PID of process perl.exe is : $$) ,在这里,存在着特殊变量$$ ;
$$是当前perl解析器的进程ID(即,PID),大家可以将在段程序写在命令行上,该程序会在perl解析器运行5秒后打印出perl解析器的进程ID,大家可以在程序运行期间通过查看进程列表来确定打印结果是否正确(^_^不会错的)。
接下来是一个用来返回错误信息(或是错误号)的特殊变量。
为了省事,不写程序了,还是来个命令行的吧
perl -e "opendir FH,'c: one' or die qq(can't open:$!);";
这句话就是要打开C盘下的一个none目录(而实际上我的C盘中并没有此目录,之所以这样写的目的就是为了引起一个程序中的错误信息),如果没有打开的话,会执行后面的die qq(can't open:$!)
在这里,$!就指明了错误信息的内容,命令行会返回错误信息:
can't open:No such file or directory at -e line 1.
$!在open或是opendir中用的比较多(无论是打开文件还是管道或是其他)。
来个例子,说一个有意思的特殊内置变量
$text = "C:\test.txt";
{
open FH,$text or die "can't open:$!";
my $line = ;
close FH;
print $line;
}
print "#===========================# ";
{
undef $/;
open FH,$text or die "can't open:$!";
my $line = ;
close FH;
print $line;
}
=================================
C盘下的test.txt的内容是:
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
=================================
好,程序的运行结果是:
111111111111111111111111111
#===========================#
111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
程序就不多废话了,作用就是读文件,关键部分在“$line = ”,尖括号操作符(即,)作用是读取一行文件内容(相信大多数教程或是书上都是这么写的),但是,这里所说的一行,实际上是有一个标准的,那就是当perl在遇到了换行符后,边认为是一行,而换行符默认情况下是由于$/这个特殊变量定义的,是缺省值。
也就是说,perl 在每次使用操作符读文件的时候,会先从$/中获得一个叫做“分隔符”的东西,并以该分隔符为标记来读取文件,如果按默认的$/来说,这个分割符就是一个换行符,所以,默认时,操作符才会每次读取一行文本。
在给出的例子中,有这样一句 :undef $/ ,也就是将$/设置为未定义的值,这样一来呢,$/就不再起作用了,因此,大家可以看到,第二次进行同样的操作的时候, 操作符就不再是只读一行而是将文件内容全部读出来了。
接下来看一个会受到$/影响的内置变量,还是先说实例:
$text = "C:\test.txt";
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_";
}
close FH;
先来看循环中的:print "line $. is:$_"
程序的作用是读文件,并且,将文件逐行赋值给$_(因为只用了操作符而没有指定内赋值变量,因此,默认就是赋值给了$_);
但是这里除了$_,还有一个变量“$.”
我们来看一下结果:
line 1 is:111111111111111111111111111
line 2 is:222222222222222222222222222
line 3 is:333333333333333333333333333
可见,变量$.的作用是一个类似计数器的东西,但是,为什么刚开始我说$.会受到$/变量的影响呢 ?
将上面的例子稍做修改,再看一下:
$text = "C:\test.txt";
undef $/; # 注意,多加了这一行
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_";
}
close FH;
第二行多加了一句undef $/; ,上面已经说过它的作用了,来看一下这段程序运行的结果:
line 1 is:111111111111111111111111111
222222222222222222222222222
333333333333333333333333333
本来应该是三行的文本,不但被一次性打印出来,而且还指明了“line 1”(看来程序认为这个文本只有一行),为什么 ?
这是因为$.变量并不是一个单纯的行计数器,确切地说,可以说$.是一个对$/计数器,我们再来看一段程序大概就会明白了:
$text = "C:\a.txt";
$/ = ";"; # 注意这里,这里我并将$/设置为未定义,而是给其赋值为分号
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_ ";
}
close FH;
再看一下C盘下的a.txt的内容:
ddd;bbb;ccc;fff;eee;
就这么简单了。
看一下运行结果:
line 1 is:ddd;
line 2 is:bbb;
line 3 is:ccc;
line 4 is:fff;
line 5 is:eee;
看过这段程序应该就明白了吧。
好,$.已经讲得差不多了,接下来再说一个它的特性,仍然是看程序说话:
$text = "C:\test.txt";
open FH,$text or die "can't open:$!";
while () {
print "line $. is:$_ ";
}
print " ",$.;
close FH;
print " ",$.;
这个程序要注意的是最后三行中的两个print " ",$.;(一个是在关闭文件前,另外一个则是在关闭文件后)。
看一下执行结果:
line 1 is:111111111111111111111111111
line 2 is:222222222222222222222222222
line 3 is:333333333333333333333333333
3
0
结果的前三行刚才就已经知道了,这不是我们关心的,我们应该关心的是最后两行结果(即两个print " ",$.;的结果);
$.变量是具有记忆性的(从原理上来将,它是一个包变量),因此,在关闭文件前打印会发现,它的值是还没有变化的(这时的值和最后一次读完文件的值均为3);
而在关闭文件后,该变量又被重新初始化为0了。
这个特性大家注意一下就可以了,因为其中的原理涉及到了perl的作用域和包的一些知识,不是很容易说清楚,所以就不说了,如果对包和作用域有了解的读者对这部分即使我不讲他们也应该能理解的。
再说最后一个吧
说一个用来简单判断操作系统类型的,看个例子:
C:>perl -e "print $^O;";
MSWin32
注意,这里这个特殊变量$^O 最后一个字符是字母O,且大写。
如果是在linux下的话,结果就不是MSWin32了,而是Linux ;
这是一个判断环境的变量,简单实用。
perl的内置特殊变量还有很多的,例如常用的还有@_、@ARGV、$ARGV、%INC、%ENV等等,有很多,不可能一一列举了,这里给出一个比较有总结性的列表,是chinaunix上perl社区的一个网友总结的,还算比较全:
$- 当前页可打印的行数,属于Perl格式系统的一部分
$! 根据上下文内容返回错误号或者错误串
$” 列表分隔符
$# 打印数字时默认的数字输出格式
$$ Perl解释器的进程ID
$% 当前输出通道的当前页号
$& 与上个格式匹配的字符串
$( 当前进程的组ID
$) 当前进程的有效组ID
$* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之.
$, 当前输出字段分隔符
$. 上次阅读的文件的当前输入行号
$/ 当前输入记录分隔符,默认情况是新行
$: 字符设置,此后的字符串将被分开,以填充连续的字段.
$; 在仿真多维数组时使用的分隔符.
$? 返回上一个外部命令的状态
$@ Perl解释器从eval语句返回的错误消息
$[ 数组中第一个元素的索引号
$ 当前输出记录的分隔符
$] Perl解释器的子版本号
$^ 当前通道最上面的页面输出格式名字
$^A 打印前用于保存格式化数据的变量
$^D 调试标志的值
$^E 在非UNIX环境中的操作系统扩展错误信息
$^F 最大的文件捆述符数值
$^H 由编译器激活的语法检查状态
$^I 内置控制编辑器的值
$^L 发送到输出通道的走纸换页符
$^M 备用内存池的大小
$^O 操作系统名
$^P 指定当前调试值的内部变量
$^R 正则表达式块的上次求值结果
$^S 当前解释器状态
$^T 从新世纪开始算起,脚步本以秒计算的开始运行的时间
$^W 警告开关的当前值
$^X Perl二进制可执行代码的名字
$_ 默认的输入/输出和格式匹配空间
$| 控制对当前选择的输出文件句柄的缓冲
$~ 当前报告格式的名字
$` 在上个格式匹配信息前的字符串
$’ 在上个格式匹配信息后的字符串
$+ 与上个正则表达式搜索格式匹配的最后一个括号
$ 当前进程的有效用户ID
$0 包含正在执行的脚本的文件名
$ARGV 从默认的文件句柄中读取时的当前文件名
%ENV 环境变量列表
%INC 通过do或require包含的文件列表
%SIG 信号列表及其处理方式
@_ 传给子程序的参数列表
@ARGV 传给脚本的命令行参数列表
@INC 在导入模块时需要搜索的目录列表
$-[0]和$+[0] 代表当前匹配的正则表达式在被匹配的字符串中的起始和终止的位置
发表评论
-
linux fsck命令参数及用法详解 转
2012-04-26 15:22 832命令 :fsck ... -
linux dd命令参数及用法详解 转
2012-04-26 15:21 1112linux dd 命令 使用详解 dd 的主 ... -
Linux TCP 连接数修改
2012-03-19 17:18 744一、 文件数限制修改 ... -
linux系统调优 转
2011-03-08 17:28 709大多数 Linux 发布版都定 ... -
Asterisk 源码 转
2010-11-01 22:21 1318在www.asterisk.org上可以获 ... -
asterisk视频 转
2010-10-27 10:51 868多人视频跟asterisk没多大关系,Asterisk 仅仅是 ... -
linux的strace命令(详解)
2010-10-20 10:13 654本文详细讲述linux下的st ... -
linux 守护进程 转
2010-10-08 10:52 702守护进程(Daemon)是运行在后台的一种特殊进程。它独立于控 ... -
linux服务介绍
2010-07-24 09:40 757NetworkManager 0:off 1:off ... -
Linux快速入门之命令
2010-07-08 15:02 7071.# 表示权限用户(如:root),$ 表示普通用户 开机 ... -
Linux网络编程入门 --转
2010-06-01 10:53 1016(一)Linux网络编程--网络知识介绍 客户端和服务端 ... -
Windows下C语言网络编程快速入门(转)
2010-03-01 10:13 1230C语言的学习,一般的方式是,先学C,然后是C++,最好还 ... -
OSIP协议栈使用入门(续一:纯协议栈逻辑分析)(转)
2010-02-03 08:54 3685很长时间之前,简单 ... -
oSIP协议栈(及eXoSIP,Ortp等)使用入门(转)
2010-02-03 08:52 4181一直没空仔细研究下oSIP,最近看到其版本已经到了3.x版 ... -
VS2008编译的程序在某些机器上运行提示“由于应用程序配置不正确,应用程序未能启动”的问题
2009-12-21 22:23 5631VC9编译的程序在没有装过VC9(确切的说是.Net Fr ... -
soft phone develop
2009-12-20 11:01 945一 服务器端软件 1. Aste ... -
Asterisk内核框架
2009-12-16 16:31 1878Asterisk内核框架(转帖 ... -
vim简单配置 备忘
2009-12-09 12:57 7141 set nocompatible 2 set numb ... -
笔记uuu
2009-12-03 17:30 0一、最小化安装linux1.在 ... -
CentOS安装crontab及使用方法
2009-12-03 15:31 2415安装crontab:[root@CentOS ~]# yum ...
相关推荐
适合Linux学习,Perl脚本开发基础学习,相信对你有帮助
perl基础教程,适用于初学者学习、查阅参考
perl的编程基础,脚本学习,很基础的脚本入门级学习,Perl是Practical Extraction and Report Language的缩写,它是由Larry Wall设计的,并由他不断更新和维护,用于在UNIX环境下编程。 .Perl具有高级语言(如C)...
perl学习笔记 介绍了perl学习的基础笔记,入门学习
这是个人学习perl的笔记,非常的适合刚接触perl的人士!非常基础的知识!但愿能为您学习perl提供帮助!谢谢
一本很不错的Perl基础教程~属于标准入门级的PERL语言教程,适合于刚开始学习的程序员使用。
自己整理的perl语言学习入门的对应章节的思维导图,一章重点,一看就明白了。可在此基础上自己修改制成自己的思维导图,非常方便
主要总结了perl语言的基础内容以及个人的学习体会,为初学者提供一定的参考与借鉴。
基础篇,主要介绍 Perl 的基本语法、数组、哈希、输入输出、函数等。 高级篇,介绍 Perl 的正则表达式、模块 module、面向对象 OOP、 多进程等。 实战篇,介绍 Perl 在芯片设计、验证中的应用。 另外,修正了一些...
perl 使用的经典教程,适合初学者学习基础用。
是学习CGI很基础的资料 对于初学者来说是本不错的学习参考
轻松学习perl, perl基础教程,让你24小时学会perl!!
perl 正则表达 文本处理 哈希 IO处理 还有注释 基础学习
perl语言入门的不二选择(中文)。适合新手、菜鸟了解perl,学习perl。主要包括perl语言的数据类型,循环控制,正则表达式的应用等基础内容。
学习perl的经典文档,可以掌握perl的基础知识,了解perl整个编程
perl语言的入门级教材,中文版的,很适合想学习perl但英文又不是很好的读者
对于初学者来说这是学习Perl很好的资料,它从工程的角度对Perl进行了全面的介绍.
prel基础入门,详细讲解prel语言语法,应用,较适合入门人员学习之用
perl零基础学习,经典教材,入门快,适合用于开发,软件处理。
perl学习资料汇集 包括比较公认比较好的基础学习大骆驼等