perl数组.pptVIP

split /PATTERN/, EXPR, LIMIT split /PATTERN/, EXPR split /PATTERN/ split * map函数 map函数对一个列表中的每个元素以一个指定的代码块或者表达式进行求值运算。格式如下： map EXPR, LIST foreach控制结构 格式：foreach “控制变量” (数组或列表) {操作代码}， foreach $rock (qw/bedrock slate lava/){ print “One rock is $rock.\n”; #打印出3 种rocks } 注意：控制变量不是列表元素中的拷贝，而是这些元素本身。 @rocks = qw/bedrock slate lava/; print “The rocks are:\n”, @rocks, ”\n”; foreach $rock (@rocks){ $rock = “\t$rock”; $rock . = “\n”; } print “The rocks are:\n”, @rocks; 默认变量$_ foreach在需要控制变量的地方，如果不加指定，会使用 默认变量$_。 foreach (1..10){ print I can count to $_!\n; } 其他情况也经常使用，例如： while( STDIN ){ chomp; #对默认变量$_进行操作 print; } 标量和列表上下文 Perl中一个简单而重要的概念：一个给定的表达式在不同的上下文中 其含义是不同的。 @people = qw( fred barney betty ); @sorted = sort @people; #列表context：barney , betty, fred $number = 42 + @people; #标量context：42+3，得到45 @list = @people; $n = @people; #数字3 scalar强制转换为标量上下文 @rocks = qw(talc quartz jade obsidian); print “How many rocks do you have?\n”; print “I have ”, @rocks, “rocks!\n”; #输出rocks 数组中的名字 print “I have ”, scalar @rocks, “rocks!\n”; #输出数组大小 列表上下文中的STDIN STDIN在标量上下文中返回输入的行，在列表上下文中返回输入的段落 $line = STDIN; #读入输入的行 @lines = STDIN; #读入所有的行 chomp = (@lines); #去掉所有的换行符 chomp (@lines = STDIN); #同上 示例 print please input:\n; @lines = STDIN; print @lines; print \n; $i=1; foreach $line(@lines){ print line$i: .$line; $i++; } 练习：计算核酸序列中碱基个数(用split, foreach和$_完成） #!/usr/bin/perl chomp( $dna= STDIN ); @DNA = split( , $dna ); $count_of_A = 0; $count_of_C = 0; $count_of_G = 0; $count_of_T = 0; foreach (@DNA){ if( $_ eq A ) {++$count_of_A;} if( $_ eq C ) {++$count_of_C;} if( $_ eq G ) {++$count_of_G;} if( $_ eq T ) {++$count_of_T;} } print A = $count_of_A\n; print C = $count_of_C\n; print G = $count_of_G\n; print T = $count_of_T\n; 二维数组 二维数组又称之为数组的数组，依然是一个数组，只是通过两个下标来访问元素。 @AoA = ( [ fred, barney, pebbles, bambam, dino, ], [ george, jane, elroy, judy, ], [ homer, bart, ma