2022年Perl中数组的使用 .pdf

《2022年Perl中数组的使用 .pdf》由会员分享，可在线阅读，更多相关《2022年Perl中数组的使用 .pdf（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数组是 perl 里面一种非常有用的东西。我们可以通过下面的方式定义数组：a=(hello,great,cipher); b=(1,2,3,4,5,6,7); b 的定义方式还可以写成下面的形式：b=(1.7); #这种方式对于需要1 到 10000的初始值得数组真实太重要了。b=(a.z); 也是可以的， 但是我想不出来对中国人有什么用。定义一个空数组可以用下面的方式：c=();访问数组通过下面的方式（下标和c 语言一模一样，从0 开始， basic的用户要注意了）：$b0=10000; 注意这里引导符变成了 $不是。通过这个变化表示这时正在访问一个单独的数据。而不是一组数据。 还可以使用多

2、个下标， 但是这时就要使用 引导符了。例如：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 8 页 - - - - - - - - - b5,7,9=(45,56,67); 这种情况下，print $b8;将会在使用了 perl -w 得到一个使用未定义变量的错误，其他情况下什么都不会发生。数组之间相互拷贝，可以用下面的方式：d=c; 这样要比 c 语言简单多了。同 c 语言不同， perl 的数组是可以动态改变大小的。因此我们可以追加，删除数组内的元素。追加一个元素可以

3、使用这种方式：c=(c,hello);perl里面有一个专门的函数用来惊醒追加操作叫做push,push的使用方法如下：push(c,hello); push(c,(hello,halloha); push(c,a); 这里可以看到， 可以给数组追加一个元素， 一组元素甚至另外一个数组。 另外，在 perl 的数组中可以放不同类型的标量。这一点在 c 程序员的眼中可能有点名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 8 页 - - - - - - - - - 怪异，但是

4、如果记住 perl 里面的一切都是引用就可以了。或者理解成这是一个void 类型的指针的数组。有了push ，就一定有 pop。pop 就是从数组的最后取出一个元素。用法为：pop(a); 既然可以从数组的末尾加入元素，那么一定也可以从数组的开头加入元素。那么这个功能是由unshift 函数提供的。用法为：unshift(c,hello); unshift(c,(hello,halloha); unshift(c,a); 有了 unshif 就一定会有 shift 了。shift 的功能是从数组的开头取出一个元素。用法为：unshift( a); 有了操作数组两端的函数那么一定也会有操作数组中

5、间部分的函数，这个函数就是 splice,splice函数有三个作用。第一个作用是向数组中间的一部分插入内容。例如：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 8 页 - - - - - - - - - d=(1.9); my e=(a.f); splice(d,2,2,e); 将会得到 12abcdef56789 ，注意这里是从第二个开始插入，不是从下标为2的元素开始插入的。 splice 的第二个功能是删除， 例如在刚才的代码上面再加上：splice(d,2,6)

6、; 将可以得到 1256789；splice的第三个功能就是删除到末尾。语法为：splice(d,2); 就是从第二个开始， 删除到末尾。我们还应该有一个可以把整个数组合并成一个标量的函数。 这个函数就是 join,join 有两个参数， 第一个参数是合并时放在元素之间的分割符，第二个是进行操作的数组。例如：my g=(1,2,3); join( ,g); 将可以得到 “1 2 3 ”，还有三个函数我们昨天已经见过了，就是 undef,chop和chomp。undef(a); 的作用是把 a 的内容清空。 chop(a); 的作用是把数组内名师资料总结 - - -精品资料欢迎下载 - - -

7、- - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 8 页 - - - - - - - - - 每个元素的末尾去一个字符。 而 chomp(a); 的作用则是把数组内的每一个元素的末尾的换行符去掉。我们还应该介绍一个函数就是scalar ，这个函数取得数组的长度。例如：my h=(1,2,3); scalar(h); 将可以得到 3。但是我们经常不这么用，因为在将数组向标量转换时就会返回数组的长度，例如下面的操作就可以。my i=(1,2,3,4); print i.n; 将会打印出 4。 好了，今天就到这里吧，最后是一个概括了

8、今天大部分内容的程序。我写的。中间会输出很多错误信息。呵呵。#!/user/bin/perl -w use strict; $|= ; my a; a=(1,2,3); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 8 页 - - - - - - - - - a4,6=(23,34); #print $a5; #quoted because it would cause error my b; b=(because,haul); push(b,grand); print

9、 b; print n; push(b,(puppy,kitty); print b; print n; push(b,a); print b; print n; push(a,b); print a; print n; my c; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 8 页 - - - - - - - - - c=(1,2,3,hello); print c; print n; pop(a); print a; print n; my d; d=(1.9);

10、 print d; print n; my e=(a.f); splice(d,2,2,e); print d; print n; splice(d,2,6); print d; print n; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 8 页 - - - - - - - - - 嘻嘻，程序很长，不过试着运行一下， 全是上面所讲的内容的应用，加深一下你的印象吗。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 8 页 - - - - - - - - -