sort-test.pl
上传用户:blenddy
上传日期:2007-01-07
资源大小:6495k
文件大小:0k
源码类别:

数据库系统

开发平台:

Unix_Linux

  1. #!/usr/local/bin/perl -w
  2. use locale;
  3. open(INFILE, "<$ARGV[0]");
  4. chop(my(@words) = <INFILE>);
  5. close(INFILE);
  6. $"="n";
  7. my(@result) = sort @words;
  8. print "@resultn";