perl入门练习（3）

小骆驼图书第三章练习；

1.

#! /perl 
print "enter some lines, then press Ctrl+D ;\n";
@lines = <STDIN>;
@reverse_lines = reverse @lines; 	#逆向排序数组；
print @reverse_lines; 						#print输出不会加东西，所以输入的换行符不可chomp；

# /perl -w 
@names = qw /fred betty barney dino Wilma pebbles bamm-bamm/;
prnt "enter some number form 1-7,one per line ,the press CTRL-D;\n";  //CTRL+D 结束输入
chmop(@numbers = <STDIN>);
foreach (@numbers) {
	print "the $_ match the name $name[$_ - 1];\n";
}

!# /perl -w
print "enter some word to sort ,and then enter the Ctrl+D for over：\n";
chmop(@words = <STDIN>);
@words_sorted = sort @words;		#这里的sort不会改变原数组；
print "@words_sorted\n";