Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Помогите перевести простую задачку на PERL / 6 сообщений из 6, страница 1 из 1
27.02.2016, 17:32
    #39180592
Анастасия1958
Анастасия1958
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести простую задачку на PERL
Пожалуйста, помогите решить простенькую задачку на 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, 20:44
    #39180634
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести простую задачку на PERL
Анастасия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:49
    #39180637
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести простую задачку на PERL
Анастасия1958,

Код: java
1.
perl -E 'say sort { $b <=> $a } <>' file.txt
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.02.2016, 20:58
    #39180641
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести простую задачку на PERL
Анастасия1958,
sorry, был пьян, не посмотрел, что надо вывести сколько раз встречается значение.
тогда так:
Код: java
1.
perl -nE '$x{$_}++; END{ say for sort {$b<=>$a} values %x}'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.02.2016, 21:20
    #39180650
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести простую задачку на PERL
и, наконец, для 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:53
    #39180656
Анастасия1958
Анастасия1958
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите перевести простую задачку на PERL
Спасибо огромное за ответы! вы себе не представляете как мне помогли!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Помогите перевести простую задачку на PERL / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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