Perl-4列表与数组-1

目录

• 列表与数组
• 访问数组中的元素特殊的数组索引值
• 列表直接量
• qw简写
• 列表的赋值
• 字符串中的数组内插

列表与数组 

        常常把列表叫做数组，数组等同列表，两者混谈。

        列表指的是数据，数组指的是变量。

        列表的数据，不一定放在数组里，可以单独使用一个列表，更多情况是把列表放在数组里，通过操作数组，来使用列表里面的数据。

        所以常把列表等同于数组。

#数组
#数组的下标都是从0开始的
#把数据放到数组里
#这个数组，大小是3，有三个数据元素
#$fread是变量名称
$fread[0]="yabba";
$fread[1]="dabba";
$fread[2]="doo";

#数组另一种简单写法
#("yabba","dabba","doo")是一个列表。这个列表里面有三个数，把这个列表放到数组@fr里
@fr =("yabba","dabba","doo");


#用了下标，例如[0]，前面要跟着$
#对数组整体进行操作时，用@

print $fread[0];
print "\n";

#对数组里的一个数据进行操作
print $fr [1];
print "\n";

print @fr;
print "\n";

#对数组整体进行操作
print @fred;

字符串中的数组内插 

#数组的字符串内插
print "@fr";
print "\n";

print "@fred";

@grades = (99,76,100,65,68);
print "\n";
print "@grades";

#指定用逗号做分割
$" = ",";
print "@grades";
print "\n";

访问数组中的元素特殊的数组索引值 

$rocks[0]='bedrock';
$rocks[1]='bedrock';
$rocks[2]='bedrock';
$rocks[3]='bedrock';
#中间可以跳过，用很大的下标，中间的都是空白的
$rocks[99]='bedrock';

$" = "";
print "@rocks";
print "\n";

print $rocks[2];
print "\n";
#数组里有多少个。
print $#rocks;
#打印最后一个数据
print $rocks[ $#rocks];
print "\n";

$end = $#rocks;
#数组里有多少个元素
$number_of_rocks = $end +1;
#下标都是从0开始

#[-1]最后一个，[-2]倒数第二个
print $rocks[-1];

#对一个数组，直接用列表进行赋值
@a = (1,2,3);
print "@a\n";

#后面多写一个逗号也没关系，会自动删除掉
@a = (1,2,3,4,5,);
print "@a\n";

#数组里面的数据，可以是不同类型的
@a = ("fred",2.5,3,99);
print "@a\n";

#如果数据很多
#使用范围操作符。整形。从小到大。不能从大到小。
@a = (1..20);
print "@a\n";

#如果用了小数，小数会被省掉
@a = (1。7..5.9);
print "@a\n";

@a = (0，2..6，10，12);
print "@a\n";

$m = 10;
$n = 30;
@a = ($m,$n);
print "@a\n";

@a = (0..$#rocks);

qw（quote word）简写

@a = ("fred","beety","dino");
#用了qw之后，就可以不用写“ ”和逗号了，里面也可以写中文
@a = qw(fred beety dino);
print "@a\n";

#qw其他写法。什么符号都行，没有限制。只要可以配对，前后一致
@a = qw!fred beety dino !;
@a = qw/ fred beety dino /;
@a = qw{fred beety dino };
@a = qw# fred beety dino #;

#两个文件名，包含完整路径
@a = qw{/user/dict/words/home/root/rootbeer/.ispell_english
};

列表的赋值 

#直接把列表，复制到变量里
($fred, $barney,$dino)=("abc","dfg",undef);
print "$fred\n";
#undef指未定义

#用数组下标形式赋值
($b[1],$b[2],$b[3])=qw(we like  study);
#即
@b =qw(we like  study);

@rocks =qw/ we like  study /;
@tiny = ();
@giant= 1..20;
@stuff = (@giant, undef, @tiny, @rocks,"crush rock");


@copy = @stuff