沈阳格力专卖店 发表于 2018-9-1 07:34:00

perl笔记之排序

#!/usr/bin/perl  while () {
  push @numbers,split;          #每行以空格做分解符,存入@numbers
  }
  foreach (sort {$a$b} @numbers){
  print "$_\n";
  }

页: [1]
查看完整版本: perl笔记之排序