ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Помогите перевести простую задачку на PERL
6 сообщений из 6, страница 1 из 1
Помогите перевести простую задачку на PERL
    #39180592
Анастасия1958
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анастасия1958
Гость
Пожалуйста, помогите решить простенькую задачку на PERL

Есть столбец с данными.
4
4
2
1
12
2
3

Нужно посчитать сколько раз встречается каждое значение и вывести в порядке убывания

На SQL это выглядит так
SELECT par1, count(*) as Qnt from Tbl1 GROUP BY par1 DESC
...
Рейтинг: 0 / 0
27.02.2016, 17:32
| Ответить | Цитировать | Написать  
Помогите перевести простую задачку на PERL
    #39180634
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volodin661
Участник
Анастасия1958,

Код: java
1.
perl6 -e 'lines.sort(-*).say' file.txt


file.txt :

4
4
2
1
12
2
3

output :

(12 4 4 3 2 2 1)
...
Рейтинг: 0 / 0
27.02.2016, 20:44
| Ответить | Цитировать | Написать  
Помогите перевести простую задачку на PERL
    #39180637
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volodin661
Участник
Анастасия1958,

Код: java
1.
perl -E 'say sort { $b <=> $a } <>' file.txt
...
Рейтинг: 0 / 0
27.02.2016, 20:49
| Ответить | Цитировать | Написать  
Помогите перевести простую задачку на PERL
    #39180641
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volodin661
Участник
Анастасия1958,
sorry, был пьян, не посмотрел, что надо вывести сколько раз встречается значение.
тогда так:
Код: java
1.
perl -nE '$x{$_}++; END{ say for sort {$b<=>$a} values %x}'
...
Рейтинг: 0 / 0
27.02.2016, 20:58
| Ответить | Цитировать | Написать  
Помогите перевести простую задачку на PERL
    #39180650
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volodin661
Участник
и, наконец, для Perl6 варианта
Код: java
1.
perl6 -e '.say for lines.Bag.sort(-*.value)' file.txt


output:
4 => 2
2 => 2
12 => 1
1 => 1
3 => 1
...
Рейтинг: 0 / 0
27.02.2016, 21:20
| Ответить | Цитировать | Написать  
Помогите перевести простую задачку на PERL
    #39180656
Анастасия1958
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анастасия1958
Гость
Спасибо огромное за ответы! вы себе не представляете как мне помогли!!
...
Рейтинг: 0 / 0
27.02.2016, 21:53
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Помогите перевести простую задачку на PERL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]