输入一串字符串(每行一个串), 之后输出:
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";
}
#注意, 当输入时, 按空格不代表一个元素, 要按一次回车, 才代表一个元素