【Perl读书笔记】数组排序函数sort

原创于 2012-12-30 12:32:36 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

Perl 专栏收录该内容

14 篇文章

订阅专栏

本文通过一个Perl脚本示例展示了如何从标准输入接收一系列字符并进行排序的过程。该脚本使用了strict和warnings模块来增强代码的健壮性和可维护性，并详细记录了从接收用户输入到排序输出的每一步。

读《C程序员精通Perl》http://book.douban.com/subject/1232075/ 3.5节笔记

#!/usr/bin/perl

use strict;
use warnings;

my @array = (); 


while (1) {
        print "input a number or <enter> to finish: ";
        my $a=<STDIN>;
        chomp ($a);

        if ($a eq "") {
                last;   
        }   
        print "input $a\n";
        push(@array, $a);
}

print "\narray=@array\n";

my @sorted_array = sort @array;

printf "\nsorted_array = @sorted_array\n";

运行结果：

[root@localhost perl_practice]# ./sort.pl
input a number or <enter> to finish: z
input z
input a number or <enter> to finish: b
input b
input a number or <enter> to finish: a
input a
input a number or <enter> to finish: d
input d
input a number or <enter> to finish: t
input t
input a number or <enter> to finish:

array=z b a d t

sorted_array = a b d t z
[root@localhost perl_practice]#