#版权声明#
##
#本篇文章的版权为作者PinHongChen先生所有.允许网路上的非营利#
#转载.作者的电子邮件地址:honger.bbs@aidebbs.edu.tw#
##
#本文可在下列URL取得:#
#http://www.math.ncu.edu.tw/~chenym/perl/intro.html#
##########################################################################
Fromnews.ncu.edu.tw!news.cc.nctu.edu.tw!news.csie.nctu.edu.tw!aide_boardWedFeb1423:57:101996
Path:news.ncu.edu.tw!news.cc.nctu.edu.tw!news.csie.nctu.edu.tw!aide_board
From:honger.bbs@aidebbs.edu.tw(HerDoneMineChao!)
Newsgroups:tw.bbs.comp.www
Subject:BasicIntroductiontoPerl
Date:13Feb199606:54:46GMT
Organization:湾学术网路BBS实验站
Message-ID:<3BCREM$5jj@aidebbs.edu.tw>
X-Filename:www/M.824194486.A
NNTP-Posting-Host:eo4.ee.ntu.edu.tw
Lines:307
这是小弟的一篇介绍perl的文章,希望对你有用:
:)
Honger
PPPPEEEEERRRRL
PPERRL
PPPPEEEERRRRL
PERRL
PEEEEERRLLLLLL
1.Introduction
这不是perl的完整介绍,只是想将perl向Cprogrammer作个介绍,也许能
有所帮助!
perl是由LarryWall先生所写.目前的版本5.002,加入多项的功能.请
看perl.1,那有详细的条列.
一般而言,由awk,sed,shellprogramming写的东西可以轻易用perl来
处理,而且速度更快.在Cprogram中,特别是有关抽取文字档中的资讯,加以转化
处理,用perl写会更加方便,而且不用处处担心pointer和memoryallocation
的问题.当然了,perl执行时会有一道转成内部表示式的关,真正optimized
过的Ccode仍会比perlcode快.一般而言,perlcode会比Ccode短很多.
perl在regularexpression,list(array)和associativearray有很方
便的语法和不错的执行效率.连yacc(Berkeleyyacc)也可有产生perlcode的
选项,这对於prototyping十分方便.
2.PerlBasics
2.1BasicdatastructureandControlconstruct
perl的comment是从#之後开始.而perl并不区分string
,integer和floatpointnumber的datatype,统统以纯量代表.例如:
#Thisisacommentlinetilltheendofthisline
$x=1.5;
$y="Ihateshellprogramming";
$z=1.3e-27;
这个$是表示现在操作的是个纯量(相对於list或associativearray).
在C里的operator,如 ,-,*,/,,^, ,--, =,-=,*=,/=,=,==,!=,&&,
||,|,&全都有,意思也不变.不过若用於字串,.(dot)是表示连接的意思.
因此.=也有类似C中 =的意思.
$x=Ihate;
$x.="awkprogramming.";
print$x;
结果为Ihateawkprogramming.字串可用单或双括号围住.超出一行也没关.
也可以写的像shellprogramming中:
$x=<
youlikehere
1234567890
tillthesignasthebeginning.
END
相当於
$x="Thispartcanbeputwhat
youlikehere
1234567890
tillthesignasthebeginning.";
字串的比较有eq,ne,gt,lt,....就像那Fortran的operator.聪明的
你猜猜就知道啦.
至於control方面,如if,while,do..while,都和C类似.如:
$sum=0;
for($i=0;$i<10;$i ){
$sum =$i;
}
大括号是不可省略的!这和C不同.也可:
$sum=0;
$i=0;
while($i<10){
$sum =$i ;
}
如果你要从loop中跳出来,last相当於C中break,next相当於continue.
$sum=0;
$i=0;
while($i<10){
if($i2==0){
$sum =$i ;
next;
}elsif($sum>50){
last;
}
}
if叙述要注意大括号是不可省,还有elseif必须写成elsif.
2.2List
List和1dimensionarray在perl中没区别.用法如:
@a=(1,2,3);
$a[0]-=$a[1];
print"a[0]=$a[0]";
结果就是a[0]=-1.@是表示现在在操作list.双括号的字串中,若有变数,perl
会直接解译.如上例中的$a[0].List可以直接连接:
@a=(1,2,3);
@b=(4,5);
@c=(@a,@b,6,7);
print"@c";
结果是1234567.perl有特殊的变数,$#a来表示@a的最後index,
所以上例中,$c[$#c]就是7,也可写成$c[-1].那麽$c[-2]就是6了.
List还有些operator,push,pop,shift,unshift,splice,其中
push推一些元素入list:
@a=(1,2);
push@a,(3,4);
结果@a成为(1,2,3,4).
pop拉最後一个元素:
@a=(1,2,3);
$b=pop@a;
结果@a成为(1,2),$b变成3.
shift,unshift和pop,push类似不过操作在list前端.
@a=(1,2,3);
$b=shift@a;
unshift@a,0;
结果@a成为(0,2,3),$b变成1.
Loop也可写成:
@weekday=(Mon,Tue,Wed,Thu,Fri,Sat);
foreach$x(@weekday){
#schedulesomething
}
结果$x会依序变成Mon,Tue,Wed,Thu,Fri,Sat等.
2.3AssociativeArray
这是使用string来做index的array,一般叫作hash.
$phone_no{peter}=02-9110238;
$phone_no{john}="06-1234567";
$name=peter;
print"$namePhoneNo.=",$phone_no{$name},"\n";
结果就会印一行:
peterPhoneNo.=02-9110238
上面两行也可写成:
phone_no=(peter=>02-9110238,john=>06-1234567);
=>和,一样所以:
phone_no=(peter,02-9110238,john,06-1234567);
也可,就是相当於一个key和value,所组成的list.
2.4Subroutine
副程式可以任意摆放,perl全看得到.
subfoo{
my$x=$_[0];
my$y=$_[1];
return$x/$y;
}
$x=1;
$y=8;
printfoo(4,2);
结果是2.
上例中,my这个keyword表示,$x,$y是在foo围内有效(localvariable
insubroutinelexicalscope).而$_[0],$_[1]用於传参数.perl的subroutine
呼叫参数都是放在固定@_的list中.
2.5SpecialVariables
perl常使用的defaultvariable是$_.
@weekday=(Mon,Tue,Wed,Thu,Fri,Sat);
foreach(@weekday){
#dowith$_
}
结果$_会依序变成Mon,Tue,Wed,Thu,Fri,Sat等.
@ARGV是perl执行时的commandlineargument,$ARGV[0]相当於C中的
argv[1].$ARGV[1]相当於C中的argv[2].C中的argv[0]放在$0.
ENV是perl执行时的environmentvariable,$ENV{HOME}就是user
的homepath,$ENV{PWD}就是currentpath.
其它特殊变数请参考perlvar.1.
2.6FileHandle
perl中主要开档的方法:
open(FH,"test.dat");#写入
open(FH,"greppetertest.dat|");#先经greppetertest.dat处理後的pipe资料
open(FH,"|more");#後经more处理写出的资料
$oneLine=;#读取FH
printFH"1234";#写入FH
close(FH);#关档
例子:
open(FH,"test.dat");#相当於open(FH,"){
printf"M:s", $n,$_;
}
close(FH);
结果会把test.dat加4位行号印出.(只写时相当於省略$_=).
2.7RegularExpression
perl对於regularexpression有重新改写.好用且功能强,是sed和awk的
superset.要求执行regularexpression比对的operator为~=(match),
!=(notmatch).regularexpression用/.../括住.
$line="end;";
if($line=~/end/){
print"match!";
}else{
print"NO!";
}
结果会印出match!,如果改成
if($line=~/^end/){
print"match!";
}else{
print"NO!";
}
结果会印出NO!
一般而言,
^表string的开端,
$表string的结束,
[a-z]表a到z中任一字元
pat1|pat2表pat1或pat2皆可
x*表x重0次或以上
x 表x重1次或以上
\d相当於[0123456789],\D就是相反
\w相当於[_a-zA-Z0-9],\W就是相反
\s表示space,\S表非spacecharacter
若要取代,则:
$d="Sep.15th,Sep.17th";
$a=~s/Sep/9/;
结果是9.15th,Sep.17th,加g(global)option如下:
$d="Sep.15th,Sep.17th";
$a=~s/Sep/9/g;
结果是9.15th,9.17th.另外i(case-insensitive)option可不管大小写.
2.8Reference
Perl5.0之後允许listoflist也就可能有2-DimensionArray.
例如:
$a[0][0]=1;
$phone{$name}[0]=1234;
$phone{$name}[1]=2674;
实际上是用所谓的reference,就像是C的address.一个纯量可纯存一个
reference.
@a=(1,2,3);
$aref=\@a;#取@a的reference
print$aref->[0];#相当於print$a[0];
push@{$aref},4;#相当於push@a,4;
2-dimensionarray可以如:
@a=([1,2,3],[4,5,6]);
print$a[1][2];
结果是6.
使用associativearray也类似:
$database{$name}{home}{address}=No.1234,75thStreet";
$database{$name}{office}{phone}=02-8127365";
Listofassociativearray也都可以使用.
2.9Example
Email中若有uuencode的资料,可以写perl将它extract出来.
#!/usr/local/bin/perl
open(EMAIL,"<$ARGV[0]")||die"Cannotopen$ARGV[0]:$!";
#若开不成perl会跳出且印Cannotopen...
while(){
if(/^begin\s \d\d\d\s /){
#遇到begin开头後印出
print$_;
while(){
if(/^end/){
#遇到end时结述
last;
}
print$_;
}
print$_;
last;
}
}
close(EMAIL);
可以写得更简化,不过那就属於您功力的无限空间了.........
-----ByPinhongChen--------------------------------------------------------
V1.0Feb11,1996
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
