主要是利用foreach控制循环过程
#!/usr/bin/perl
#!match,Using foreach
@name=qw/tome fred betty barney dino Wilma pebbles bamm-bamm/;
print”Please enter some number,which should be smaller than 7,when done,press CTRL+Z,then press ENTER:\n”;
@num=<STDIN>;
foreach $name(@name){
$name.=”\n”;
}
foreach $num(@num){
print $name[$num-1];
}
—————
仙剑问情
音频片段：需要 Adobe Flash Player（9 或以上版本）播放音频片段。 点击这里下载最新版本。您需要开启浏览器的 JavaScript 支持。