Как отсортировать список объемов продуктов на Perl?

Question

[Leytenant]

Добрый день!

Есть список объемов: 1 набор 1 шт 118 мл 148 мл 15 г 15 мл 150 г 150 мл 167 мл 177 мл 207 мл 266 мл 284 мл 340 мл 350 мл 355 мл 360 мл 54 мл 67 мл 89 мл

Как получить список: 1 набор 1 шт 15 г 15 мл 54 мл 67 мл 89 мл 118 мл 148 мл 150 г 150 мл 167 мл 177 мл 207 мл 266 мл 284 мл 340 мл 350 мл 355 мл 360 мл

my @volumes = ('1 набор', '1 шт', '118 мл', '148 мл', '15 г', '15 мл', '150 г', '150 мл', '167 мл', '177 мл', '207 мл', '266 мл', '284 мл', '340 мл', '350 мл', '355 мл', '360 мл', '54 мл', '67 мл', '89 мл');
foreach my $volume (@volumes) {print volume.' '; }

Comments

[vaut]

обычный сорт со своей функцией сравнивания.
И у вас уже ошибка в принте $ потеряли

Answer 1

[vaut]

Даже так работает, хоть полагаться на приведение строки к числу не стоит.

my @volumes = ('1 набор', '1 шт', '118 мл', '148 мл', '15 г', '15 мл', '150 г', '150 мл', '167 мл', '177 мл', '207 мл', '266 мл', '284 мл', '340 мл', '350 мл', '355 мл', '360 мл', '54 мл', '67 мл', '89 мл');
@volumes = sort {$a <=> $b} @volumes;
foreach my $volume (@volumes) {print $volume.' '; }

Comments

[Leytenant]

Нет, вот вывод:
1 набор 1 шт 118 мл 148 мл 15 г 15 мл 150 г 150 мл 167 мл 177 мл 207 мл 266 мл 284 мл 340 мл 350 мл 355 мл 360 мл 54 мл 67 мл 89 мл

Это обычная строковая сортировка. Последние объемы 54 мл 67 мл 89 мл выводятся неверно.

[vaut]

Leytenant, строковая сортировка $a cmp $b цифровая $b <=> $a

Полный код примера который работает на perl v5.34.0

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use open qw/:std :utf8/;

my @volumes = ('1 набор', '1 шт', '118 мл', '148 мл', '15 г', '15 мл', '150 г', '150 мл', '167 мл', '177 мл', '207 мл', '266 мл', '284 мл', '340 мл', '350 мл', '355 мл', '360 мл', '54 мл', '67 мл', '89 мл');

@volumes = sort {$a <=> $b} @volumes;
foreach my $volume (@volumes) {print $volume.' '; }

[Leytenant]

А что у вас выводить ваш код?

[vaut]

Leytenant,

Argument "1 \x{43d}\x{430}\x{431}\x{43e}\x{440}" isn't numeric in sort at ./qq.pl line 10.
Argument "1 \x{448}\x{442}" isn't numeric in sort at ./qq.pl line 10.
Argument "118 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "148 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "15 \x{433}" isn't numeric in sort at ./qq.pl line 10.
Argument "15 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "150 \x{433}" isn't numeric in sort at ./qq.pl line 10.
Argument "150 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "167 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "177 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "207 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "266 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "284 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "340 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "350 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "355 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "360 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "54 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "67 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
Argument "89 \x{43c}\x{43b}" isn't numeric in sort at ./qq.pl line 10.
1 набор 1 шт 15 г 15 мл 54 мл 67 мл 89 мл 118 мл 148 мл 150 г 150 мл 167 мл 177 мл 207 мл 266 мл 284 мл 340 мл 350 мл 355 мл 360 мл

[vaut]

Leytenant, как я и говорил в комментарии. Просто напишите свой компоратор, что бы не полагаться на магию приведения типов.

[Leytenant]

Странно, у меня вывод:
1 набор 1 шт 118 мл 148 мл 15 г 15 мл 150 г 150 мл 167 мл 177 мл 207 мл 266 мл 284 мл 340 мл 350 мл 355 мл 360 мл 54 мл 67 мл 89 мл

[vaut]

Leytenant, Немного адаптированный пример из документации

@volumes = sort {($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0]} @volumes;

https://perldoc.perl.org/functions/sort

[Leytenant]

Спасибо за помощь. Ваш код работает.
Отдельно, но в в середине скрипта моего он переставал работать.
И я нашел, что выше была определена переменная $a и из-за этого перестает работать сортировка.

[Leytenant]

Не очень только понятно, как избегать таких ситуаций.

[vaut]

Leytenant, помете решением если помогло.
Для того что бы меньше натыкаться на подобные ошибки хорошо помогает перлкритик. Статический анализ кода: https://metacpan.org/dist/Perl-Critic/view/bin/per...