翻转数组

2016-10-11 19:54:35来源:CSDN作者:g13731463274人点击

[root@mysql1 perl]# cat 5.pl 
#!/usr/bin/env perl


print "enter some lines, then press ctrl-D:/n"; #或者试试ctrl-Z
@lines=<STDIN>;
@reverse_lines=reverse @lines;
print @reverse_lines;
[root@mysql1 perl]# cat 6.pl 
#!/usr/bin/env perl


print "enter some lines, then press ctrl-D:/n";
print reverse <STDIN>;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台