Chinaunix首页 | 论坛 | 博客
  • 博客访问: 946721
  • 博文数量: 58
  • 博客积分: 10192
  • 博客等级: 上将
  • 技术积分: 1845
  • 用 户 组: 普通用户
  • 注册时间: 2010-11-22 21:24
文章分类

全部博文(58)

文章存档

2011年(11)

2010年(12)

2009年(20)

2008年(15)

分类:

2008-06-05 15:51:27

PERL函数splice的用法:

查看官方文档:

 

 

splice有四种用法,分别是:

1.splice ARRAY,OFFSET,LENGTH,LIST

2.splice ARRAY,OFFSET,LENGTH

3.splice ARRAY,OFFSET

4.splice ARRAY

 

说明:移除在ARRAY中由OFFSETLENGTH指定的元素,同时让LIST中的元素代替移除的元素。在列表上下文,函数返回溢出后的数组元素。在标量上下文,返回溢出的最后一个元素,如果无元素移除返回UNDEF

注意:如果OFFSET为负数,则以数组的尾部为起始点。如果省略LENGTH(属于第三种情况),则移除从OFFSET到尾部的元素。如果LENGTH为负数,则除数组尾部LENGTH个元素外,移除从OFFSET到尾部的所有元素。如果OFFSETLENGTH都为空,去移除所有元素。如果OFFSET越界,PERL会提示警告并在数组尾部中插入LIST或空。

 

1.splice ARRAY,OFFSET,LENGTH,LIST

#!/usr/bin/perl -w

  use strict;
  my @rocks = qw(talc quartz jade obsidian);
  my @tmp = qw(hell oworld);
  splice(@rocks,1,2,@tmp);
  foreach (@rocks){
        print $_."##";
  }
  print "\n";

[root@localhost ~]# perl refs.pl

talc##hell##oworld##obsidian##

 

2.splice ARRAY,OFFSET,LENGTH

#!/usr/bin/perl -w

  use strict;
  my @rocks = qw(talc quartz jade obsidian);
  my @tmp = qw(hell oworld);
  splice(@rocks,1,2);
  foreach (@rocks){
        print $_."##";
  }
  print "\n";

 [root@localhost ~]# perl refs.pl

 talc##obsidian##

 

3.splice ARRAY,OFFSET

#!/usr/bin/perl -w

  use strict;
  my @rocks = qw(talc quartz jade obsidian);
  my @tmp = qw(hell oworld);
  splice(@rocks,2);
  foreach (@rocks){
        print $_."##";
  }
  print "\n";

  [root@localhost ~]# perl refs.pl

  talc##quartz##

 

4.splice ARRAY

#!/usr/bin/perl -w

  use strict;
  my @rocks = qw(talc quartz jade obsidian);
  my @tmp = qw(hell oworld);
  splice(@rocks);
  foreach (@rocks){
       print $_."##";
  }
  print "\n";

 [root@localhost ~]# perl refs.pl

 打印为空

阅读(7199) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~