摘要:最近看了几天perl的书,深深被吸引!,perl真的是很神奇 ^_^
特对照cu中awk与unix,命令等价代码,写了几个,当是一个练习吧!由于cu的blog贴出的代码没法看,特此把文件传上来 ~_~
点击打开
a2p.txt
数组,正则,散列,各种预变量,...,看的我头都大啦 ^_^......
摘要: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......
一些关于数组的练习(1)终于把数组看完了,做几个练习,巩固一下! ^_^
1,得到数组长度:
/home/lee#perl -e @array=qw(a b c);print "length:",$#array+1,"\n" 【程序编程相关:
正则表达式基本语法】 【推荐阅读:
bash入门教程】
length:3 【扩展信息:
sed/awk与unix命令等价代码】
$#array是数组的下标,由于数组的下标从0开始,那么数组长度就是最大下标加1即可得到数组程度!
2,清空数组的方法:
$#array=-1或者@array=()
3,合并与附加数组:
/home/lee#perl -e @a=(1..3);@b=(4..6);@c=(@a,@b);print join(" ",@c),"\n"
1 2 3 4 5 6
通过表赋值的方法,将数组a与b合并为一个数组c
也可用push函数合并数组
/home/lee#perl -e @a=(1..3);@b=(4..6);push @a,@b;print join(" ",@a),"\n"
1 2 3 4 5 6
...
下一页 摘要:文本复制: :n1,n2 co n3 -------把从第n1行到第n2行拷贝到n3 文本移动: :n1,n2 m n3
-------把从第n1行到第n2行移动到n3 ......