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

最新推荐文章于 2025-03-22 09:58:52 发布

calf_man

最新推荐文章于 2025-03-22 09:58:52 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/calf_man/article/details/8452473

Perl 专栏收录该内容

14 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

读《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]#