`
disankyo
  • 浏览: 42723 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

(转)perl-列表与数组、基本操作、qw、 scalar

    博客分类:
  • perl
阅读更多
一、
  列表是包含在括号里的一序列的值,可以为任何数值,也可为空,如:(1, 5.3 , "hello" , 2),空列表:()。
  注:只含有一个数值的列表(如:(43.2) )与该数值本身(即:43.2 )是不同的,但它们可以互相转化或赋值。
  列表例:
    (17, $var, "a string")
    (17, 26 << 2)
    (17, $var1 + $var2)
    ($value, "The answer is $value")
二、数组--列表的存贮
  列表存贮于数组变量中,与简单变量不同,数组变量以字符"@"打头,如:
    @array = (1, 2, 3);
  注:
(1)数组变量创建时初始值为空列表:()。
(2)因为PERL用@和$来区分数组变量和简单变量,所以同一个名字可以同时用于数组变量和简单变量,如:
    $var = 1;
    @var = (11, 27.1 , "a string");
  但这样很容易混淆,故不推荐。
1、数组的存取
  .对数组中的值通过下标存取,第一个元素下标为0。试图访问不存在的数组元素,则结果为NULL,但如果给超出数组大小的元素赋值,则数组自动增长,原来没有的元素值为NULL。如:
    @array = (1, 2, 3, 4);
    $scalar = $array[0];
    $array[3] = 5; # now @array is (1,2,3,5)
    $scalar = $array[4]; # now $scalar = null;
    $array[6] = 17; # now @array is (1,2,3,5,"","",17)
  .数组间拷贝
    @result = @original;
  .用数组给列表赋值
    @list1 = (2, 3, 4);
    @list2 = (1, @list1, 5); # @list2 = (1, 2, 3, 4, 5)
  .数组对简单变量的赋值
    (1) @array = (5, 7, 11);
    ($var1, $var2) = @array; # $var1 = 5, $var2 = 7, 11被忽略
    (2) @array = (5, 7);
    ($var1, $var2, $var3) = @array; # $var1 = 5, $var2 = 7, $var3 ="" (null)
  .从标准输入(STDIN)给变量赋值
    $var = <STDIN>;
    @array = <STDIN>; # ^D为结束输入的符号
2 、字符串中的方括号和变量替换
    "$var[0]" 为数组@var的第一个元素。
    "$var\[0]" 将字符"["转义,等价于"$var". "[0]",$var被变量替换,[0]保持不变。
    "${var}[0]" 亦等价于"$var" ."[0]"。
    "$\{var}"则取消了大括号的变量替换功能,包含文字:${var}.
3、列表范围:
    (1..10) = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    (2, 5..7, 11) = (2, 5, 6, 7, 11)
    (3..3) = (3)
  .用于实数
    (2.1..5.3) = (2.1, 3.1 ,4.1, 5.1)
    (4.5..1.6) = ()
  .用于字符串
    ("aaa".."aad") = ("aaa","aab", "aac", "aad")
    @day_of_month = ("01".."31")
  .可包含变量或表达式
    ($var1..$var2+5)
  .小技巧:
    $fred = "Fred";
    print (("Hello, " . $fred . "!\n") x 2);
  其结果为:
    Hello, Fred!
    Hello, Fred!
4、数组的输出:
(1) @array = (1, 2, 3);
    print (@array, "\n");
  结果为:
    123
(2) @array = (1, 2, 3);
    print ("@array\n");
  结果为:
    1 2 3
5、列表/数组的长度
  当数组变量出现在预期简单变量出现的地方,则PERL解释器取其长度。
    @array = (1, 2, 3);
    $scalar = @array; # $scalar = 3,即@array的长度
    ($scalar) = @array; # $scalar = 1,即@array第一个元素的值
  注:以数组的长度为循环次数可如下编程:
    $count = 1;
    while ($count <= @array) {
    print ("element $count: $array[$count-1]\n");
    $count++;
    }
6、子数组
    @array = (1, 2, 3, 4, 5);
    @subarray = @array[0,1]; # @subarray = (1, 2)
    @subarray2 = @array[1..3]; # @subarray2 = (2,3,4)
    @array[0,1] = ("string", 46); # @array =("string",46,3,4,5) now
    @array[0..3] = (11, 22, 33, 44); # @array = (11,22,33,44,5) now
    @array[1,2,3] = @array[3,2,4]; # @array = (11,44,33,5,5) now
    @array[0..2] = @array[3,4]; # @array = (5,5,"",5,5) now
  可以用子数组形式来交换元素:
    @array[1,2] = @array[2,1];
7、有关数组的库函数
(1)sort--按字符顺序排序
    @array = ("this", "is", "a","test");
    @array2 = sort(@array); # @array2 = ("a","is", "test", "this")
    @array = (70, 100, 8 );
    @array = sort(@array); # @array = (100, 70, 8 ) now
( 2)reverse--反转数组
    @array2 = reverse(@array);
    @array2 = reverse sort (@array);
(3)chop--数组去尾
    chop的意义是去掉STDIN(键盘)输入字符串时最后一个字符--换行符。而如果它作用到数组上,则将数组中每一个元素都做如此处理。
    @list = ("rabbit", "12345","quartz");
    chop (@list); # @list = ("rabbi", "1234","quart") now
( 4)join/split--连接/拆分
    join的第一个参数是连接所用的中间字符,其余则为待连接的字符数组。
    $string = join(" ", "this", "is","a", "string"); # 结果为"this is a string"
    @list = ("words","and");
    $string = join("::", @list, "colons"); #结果为"words::and::colons"
    @array = split(/::/,$string); # @array = ("words","and", "colons") now

二、基本操作

数组是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的用户要注意了):

   $b[0]=10000;

  注意这里引导符变成了$不是@。通过这个变化表示这时正在访问一个单独的数据。而不是一组数据。还可以使用多个下标,但是这时就要使用@引导符了。例如:

   @b[5,7,9]=(45,56,67);

  这种情况下,print $b[8];将会在使用了perl -w得到一个使用未定义变量的错误,其他情况下什么都不会发生。

  数组之间相互拷贝,可以用下面的方式:

   @d=@c;

  这样要比c语言简单多了。同c语言不同,perl的数组是可以动态改变大小的。因此我们可以追加,删除数组内的元素。追加一个元素可以使用这种方式:

   @c=(@c,"hello");

  perl里面有一个专门的函数用来惊醒追加操作叫做push,push的使用方法如下:

   push(@c,"hello");
   push(@c,("hello","halloha"));
   push(@c,@a);

  这里可以看到,可以给数组追加一个元素,一组元素甚至另外一个数组。另外,在perl的数组中可以放不同类型的标量。这一点在c程序员的眼中可能有点怪异,但是如 果记住perl里面的一切都是引用就可以了。或者理解成这是一个void类型的指针的数组。有了push,就一定有pop。pop就是从数组的最后取出一个元素。用法为:

   pop(@a);

  既然可以从数组的末尾加入元素,那么一定也可以从数组的开头加入元素。那么这个功能是由unshift函数提供的。用法为:

   unshift(@c,"hello");
   unshift(@c,("hello","halloha"));
   unshift(@c,@a);

  有了unshif就一定会有shift了。shift的功能是从数组的开头取出一个元素。用法为:

   unshift( @a);

  有了操作数组两端的函数那么一定也会有操作数组中间部分的函数,这个函数就是splice,splice函数有三个作用。第一个作用是向数组中间的一部分插入内容。例如:

   @d=(1..9);
   my @e=("a".."f");
   splice(@d,2,2,@e);

  将会得到12abcdef56789,注意这里是从第二个开始插入,不是从下标为2的元素开始插入的。splice的第二个功能是删除,例如在刚才的代码上面再加上:

   splice(@d,2,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); 的作用是把数组内每个元素的末尾去一个字符。而chomp(@a); 的作用则是把数组内的每一个元素的末尾的换行符去掉。我们还应该介绍一个函数就是scalar,这个函数取得数组的长度。例如:

   my @h=(1,2,3);
   scalar(@h);

  将可以得到3。但是我们经常不这么用,因为在将数组向标量转换时就会返回数组的长度,例如下面的操作就可以。

   my @i=(1,2,3,4);
   print @i."\n";

  将会打印出4。 好了,今天就到这里吧,最后是一个概括了今天大部分内容的程序。我写的。中间会输出很多错误信息。呵呵。

   #!/user/bin/perl -w
   use strict;
   { $|=" ";
   my @a;
   @a=(1,2,3);
   @a[4,6]=(23,34);
   #print $a[5];
   #quoted because it would cause error
   my @b;
   @b=("because","haul");
   push(@b,"grand");
   print @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;
   @c=(1,2,3,"hello");
   print @c;
   print "\n";
   pop(@a);
   print @a;
   print "\n";
   my @d;
   @d=(1..9);
   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";
   }

三、qw


四、scalar 函数,强制转换为一个标量放入标量上下文,返回放入的数量



scalar @_;




转自:http://deepfuture.iteye.com/blog/609593
分享到:
评论

相关推荐

    centos7 perl rpm依赖包

    perl-Scalar-List-Utils-1.27-248.el7.x86_64 perl-File-Temp-0.23.01-3.el7.noarch perl-File-Path-2.09-2.el7.noarch perl-threads-shared-1.43-6.el7.x86_64 perl-threads-1.87-4.el7.x86_64 perl-Filter-...

    perl-5.32.1.tar.gz

    - **变量**:Perl支持多种类型的变量,如标量(scalar)、数组(array)、哈希(hash)等,以及引用(reference)机制,允许创建复杂的数据结构。 - **正则表达式**:Perl的正则表达式功能强大且灵活,可以进行模式...

    perl-Scalar-List-Utils-1.49-2.el8.x86_64.rpm

    离线安装包,亲测可用

    perl-Scalar-List-Utils-1.49-2.el8.aarch64.rpm

    官方离线安装包,亲测可用

    perl-Scalar-List-Utils-1.27-248.el7.x86_64.rpm

    官方离线安装包,测试可用。请使用rpm -ivh [rpm完整包名] 进行安装

    Mysql MHA 0.58 and Package for suse 12 sp4

    rpm -ivh perl-Scalar-List-Utils-1.35-1.147.x86_64.rpm rpm -ivh perl-Params-ValidationCompiler-0.30-10.1.noarch.rpm rpm -ivh perl-Dist-CheckConflicts-0.09-1.7.noarch.rpm rpm -ivh perl-Package-Stash-XS-...

    perl数组.docx

    1. **列表和数组的基本概念** - **列表** 是一组用逗号分隔的值,可以包含任何类型的数据,甚至可以是空的。例如 `(1, 5.3, "hello", 2)` 或空列表 `()`。 - **数组** 是用来存储列表的变量,以`@`符号开头,如 `@...

    perl-5.10.0.tar.gz

    6. **List和Scalar上下文的改进**:对列表和标量上下文的处理进行了优化,使得在处理数组和标量时更加灵活。 7. **改进的错误处理**:增加了`try`和`catch`机制,方便捕获和处理运行时错误。 8. **正则表达式增强*...

    rh-perl530-perl-Scalar-List-Utils-1.53-440.el7.x86_64.rpm

    官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装

    rh-perl526-perl-Scalar-List-Utils-1.49-2.el7.x86_64.rpm

    官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装

    rh-perl524-perl-Scalar-List-Utils-1.45-3.el7.x86_64.rpm

    官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装

    rh-perl524-perl-Scalar-List-Utils-1.42-379.el7.x86_64.rpm

    官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装

    mysql-community-server-5.7.28-x86.tar.gz

    perl-Scalar-List-Utils-1.27-248.el7.x86_64.rpm perl-Socket-2.010-4.el7.x86_64.rpm perl-Storable-2.45-3.el7.x86_64.rpm perl-Text-ParseWords-3.29-4.el7.noarch.rpm perl-threads-1.87-4.el7.x86_64.rpm perl...

    rh-perl526-perl-Scalar-List-Utils-1.49-2.sc1.el7.x86_64.rpm

    官方离线安装包,测试可用。使用rpm -ivh [rpm完整包名] 进行安装

    Note of Learning Perl--Lists and Arrays

    在实际编程中,列表和数组常与其他Perl特性结合使用,如标量上下文、引用、哈希(Hashes)等,以实现更复杂的数据处理和逻辑控制。学习和熟练掌握列表和数组的使用,对于提升Perl编程能力至关重要。 总结一下,Perl...

    perl-centos6.rar

    在CentOS 6操作系统中,Perl被广泛用于系统管理、文本处理、网络编程、Web开发等多种任务。本资源包"perl-centos6.rar"提供了Perl在CentOS 6上的离线安装包,包括了perl-5.10.1-127.el6.x86_64.rpm等组件,这些组件...

    perl-scripts实例.tar.gz

    - 变量:Perl支持多种类型的变量,如标量(scalar)、数组(array)和哈希(hash)。变量前缀$表示标量,@表示数组,%表示哈希。 - 引号:单引号(')内的字符串不进行特殊字符转义,双引号(")则会解析特殊字符,如`...

    proxysql.aarch相关perl依赖

    安装arm版mysql5.7安装proxysql中间件需要的per依赖,包含以下: proxysql-2.2.0-1-centos7.aarch64.rpm perl-DBD-MySQL-4.023-6.el7.aarch64.rpm ...perl-Scalar-List-Utils-1.27-248.el7.aarch64.rpm

    Perl中数组的使用.rar

    本资料"Perl中数组的使用"将深入探讨Perl数组的各个方面,包括定义、初始化、操作以及一些实用技巧。 1. 定义数组: 在Perl中,数组由尖括号`&lt;&gt;`包围,数组名后跟一对花括号`{}`,例如`@array_name = ('value1', '...

Global site tag (gtag.js) - Google Analytics