Size: a a a

2020 June 10

AU

Alexey Ugnichev in Modern::Perl
O
(defun solve-them-all (list) (car (list)))
Какой-то странный пайтон ;)
источник

O

O in Modern::Perl
Самый что ни наесть обыденный :)
источник

O

O in Modern::Perl
источник

SZ

Sergey Zhmylove in Modern::Perl
Что именно ты хочешь сделать? :)
источник

SZ

Sergey Zhmylove in Modern::Perl
Опиши как-то схему и проверь, что в каждом элементе есть каждый нужный тебе ключ.
источник

O

O in Modern::Perl
на примере могу только.
сохроняю массив как JSON в файл
потом проверяю через какое то время N содержит ли это файл новые значаения или нет
так же проверяется временная метка значений

нужно обновить JSON в конце программы
источник

SZ

Sergey Zhmylove in Modern::Perl
O
на примере могу только.
сохроняю массив как JSON в файл
потом проверяю через какое то время N содержит ли это файл новые значаения или нет
так же проверяется временная метка значений

нужно обновить JSON в конце программы
А кто может поменять этот файл кроме твоей программы?
источник

O

O in Modern::Perl
каждый элемента массива это хаш вида

 { sent_time => $sent_time,
                                           alert_user_id => $alert_user->{id},
                                           asset_id => $ass_id,
                                           alert_type => $alert_type }
источник

SZ

Sergey Zhmylove in Modern::Perl
Тогда зачем так сложно: писать на диск, читать с диска
источник

O

O in Modern::Perl
Sergey Zhmylove
А кто может поменять этот файл кроме твоей программы?
никто в пределах данной системы
источник

O

O in Modern::Perl
скрипт тянется по крону каждый час и проверяет если в базе новые оповещения
если есть составляется сообщение
источник

SZ

Sergey Zhmylove in Modern::Perl
O
скрипт тянется по крону каждый час и проверяет если в базе новые оповещения
если есть составляется сообщение
Короче
источник

O

O in Modern::Perl
условие - НЕ спамить пользователя одними и теми же сообщениями старше 3х дней
источник

SZ

Sergey Zhmylove in Modern::Perl
O
[
   {
 "sent_time": 1591199758,
 "alert_user_id": 1,
 "asset_id": 3326,
 "alert_type": "sms"
},
{
 "sent_time": 1591199758,
 "alert_user_id": 1,
 "asset_id": 3330,
 "alert_type": "sms"
},
{
 "sent_time": 1591199758,
 "alert_user_id": 1,
 "asset_id": 3342,
 "alert_type": "sms"
},
 {
 "sent_time": 1591199758,
 "alert_user_id": 2,
 "asset_id": 3326,
 "alert_type": "sms"
},
{
 "sent_time": 1591199758,
 "alert_user_id": 2,
 "asset_id": 3330,
 "alert_type": "sms"
},
{
 "sent_time": 1591199758,
 "alert_user_id": 2,
 "asset_id": 3342,
 "alert_type": "sms"
}
]

не содержит
 {
 "alert_user_id": 2,
 "asset_id": 3992,
 "alert_type": "sms"
}
Вот в этом нужно проверить, во всех ли есть sent_time?
источник

O

O in Modern::Perl
Sergey Zhmylove
Вот в этом нужно проверить, во всех ли есть sent_time?
если это без метки

{
  "alert_user_id": 2,
 "asset_id": 3992,
 "alert_type": "sms"
}
источник

SZ

Sergey Zhmylove in Modern::Perl
Sergey Zhmylove
Вот в этом нужно проверить, во всех ли есть sent_time?
Или из этого нужно найти элементы, в которых либо нет sent time, либо в которых она больше трёх дней?
источник

AU

Alexey Ugnichev in Modern::Perl
perldoc perldsc
источник

SZ

Sergey Zhmylove in Modern::Perl
Alexey Ugnichev
perldoc perldsc
Мы его задосили...
источник

AU

Alexey Ugnichev in Modern::Perl
Переварит и выйдет сильнее, чем раньше.
источник

O

O in Modern::Perl
Ivan Avseyanko
@array_of_hashes = grep { defined $_->{send_time} ? 1 : 0 } @array_of_hashes;
my ($p) = grep { $alert_user->{id} == $_->{alert_user_id},
                    $alert_type eq $_->{alert_type},
                    $ass_id == $_->{asset_id}
} @$cache_sent;

спасибо
источник