perl学习3--qw及数组的应用
#!/usr/bin/perl -w@rocks=qw< bedrock slate lava>; #qw后定义数组(列表)，可用{},<>,/ /,或其他一对符号表示
# qw< bedrock slate lava>定义@rocks=("bedrock","slate","lava")
foreach $rock(@rocks){
$rock="\t$rock";
$rock.="\n";
}
print "The rocks are:\n",@rocks;
页:
[1]