代码之家 › 专栏 › 技术社区 › tavalendo

在perl中对数组进行排序并在一行中返回结果

interpreted-language scripting-language sorting perl

tavalendo · 技术社区 · 7 年前

我试图在Perl中将数组从Z排序为A,并在一行中返回排序后的数组。

sub mainTexts {

    my @texts = ();

    print ("Enter text 1: ");
    my $text1 = <STDIN>;
    push @texts, $text1;
    print ("Enter text 2: ");
    my $text2 = <STDIN>;
    push @texts, $text2;
    print ("Enter text 3: ");
    my $text3 = <STDIN>;
    push @texts, $text3;

    my @sorted_texts = sort { lc($b) cmp lc($a) } @texts;

    print "Your texts are: ", @sorted_texts;


}

mainTexts();

这将导致:

你的短信是:ZSAHS

澳大利亚银行

我想要的结果是:

你的短信是:ZSAHS FGDSJ ABCNA

从上面的代码中有什么线索可以实现这一点吗?谢谢。

2 回复 | 直到 7 年前

Grinnz 7 年前

来自readline操作符的输入( <> )通常在行尾包含换行符,因此需要将其传递给 chomp . 然后,可以将数组直接插入字符串中,而不是将其作为附加参数传递给打印。插入数组将每个参数与 $" 它默认为一个空格,而要打印的独立参数用空格分隔 $, 它没有默认值,但通常设置为换行符。

my @texts;

print ("Enter text 1: ");
chomp(my $text1 = <STDIN>);
push @texts, $text1;
print ("Enter text 2: ");
chomp(my $text2 = <STDIN>);
push @texts, $text2;
print ("Enter text 3: ");
chomp(my $text3 = <STDIN>);
push @texts, $text3;

my @sorted_texts = sort { lc($b) cmp lc($a) } @texts;

print "Your texts are: @sorted_texts\n";

由于chomp也可以对列表进行操作,因此您可以在读取所有输入之后添加一个chomp调用。

chomp(@texts);

Bruce Van Allen 7 年前

主要的答案不是你把$a和$b颠倒了吗?

my @sorted_texts = sort { lc($a) cmp lc($b) } @texts;

推荐文章

Manny · 如何比较Perl中的字符串?

3 年前

BioRod · 我不能用Perl打印键和值

3 年前

user17227456 · Perl CLI代码无法追加字符串行

3 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

7 年前

Pranay Nanda · 使用regex解析许可证文件

7 年前