寒假【perl语言学习脚本】14.1 14.2 14.3

#!/usr/bin/perl -w my @numbers; print “enter the ctrl + z to continue:\n”; while(<>){ push @numbers,split; } foreach (sort { a < = > a<=> a<=>b}@numbers){ printf “%20g\n”,KaTeX parse error

>>阅读原文<<