PERL语言入门:第三章:列表与数组:习题3

输入一串字符串（每行一个串）， 之后输出:

1. 一整行输出， 在每个之间加空格

2. 分行分别输出

#!/usr/bin/perl -w
#获取字符串
chomp(@db=<STDIN>);
#下面为一行输出整个数组
print "@db\n";
#下面为分行输出每个元素
#for $index (0..$#db){
#	print "$db[$index]";
#	print "\n";
#}
foreach (@db){
	print "$_\n";
}
#注意， 当输入时， 按空格不代表一个元素， 要按一次回车， 才代表一个元素