寒假【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

>>阅读原文<<