摘要：终于把数组看完了,做几个练习,巩固一下! ^_^1,得到数组长度:
/home/lee#perl -e @array=qw(a b c);print "length:",$#array+1,"\n"
length:3
$#array是数组的下标,由于数组的下标从0开始,那么数组长度就是最大下标加1即可得到数组程度!
2,清空数组的方法:
$#array=-1或者@array=()
......
摘要：最近看了几天perl的书,深深被吸引!,perl真的是很神奇 ^_^
特对照cu中awk与unix,命令等价代码,写了几个,当是一个练习吧!由于cu的blog贴出的代码没法看,特此把文件传上来 ~_~
点击打开
a2p.txt
数组,正则,散列,各种预变量,...,看的我头都大啦 ^_^......
使用正则表达式常用的三个字符串运算符在使用正则表达式的时候,经常需要用下列三个字符串处理运算符:
1,模式匹配运算符m:/patten/ 【程序编程相关:
致写真女郎的一封信】 【推荐阅读:
向test文件增加序号＃形成新文件tes】
2,替换运算符:s/oldstr/newstr/ 【扩展信息:
bash入门教程】
3,转换运算符:tr/oldchr/newchr/
1,m//运算符:
默认情况下,m//尝试匹配指定的模式与$_中的文本,例如:
/home/lee#perl -e while(){ if (m/^exit$/i){ print "found!\n";exit}}
exitt
abc
exit
found!
/home/lee#
循环读入标准输入,当完整匹配exit这个单词时,显示信息并退出
/home/lee#echo "abc abc 123\nabc abc 2434"|\
> perl -ne print if(/\b[\d]\b/)
abc abc 123
找出含有连续3个数字的行
与其他的perl运算符一样,定界符是可以任意指定的,如果使用非斜线(/)的\定界符,则m 是不可少的
/home/lee#perl -
$str="exit";
while(){
if(m#^$str$#){print "ok!\n";exit}
else {print "again!\n"}
};
__end__
123
again!
sdf
again! ...
下一页 摘要：pop操作弹出数组的最后一个元素数组长度缩短一位,push操作则向数组亚入一个元素,数组长度增加一位pop语法:
pop array
pop
push语法:
push array,list
实例练习:
/home/lee#perl -e @array=qw/a b c/;pop @array;print join(" ",@array),"\n"
a b
#数组3个元素,pop......
