AU
(defun solve-them-all (list) (car (list)))
Size: a a a
AU
(defun solve-them-all (list) (car (list)))
O
SZ
SZ
O
SZ
O
{ sent_time => $sent_time,
alert_user_id => $alert_user->{id},
asset_id => $ass_id,
alert_type => $alert_type }
SZ
O
O
SZ
O
SZ
[
{
"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"
}
O
"alert_user_id": 2,
"asset_id": 3992,
"alert_type": "sms"
}
SZ
AU
SZ
perldoc perldsc
AU
O
my ($p) = grep { $alert_user->{id} == $_->{alert_user_id},
$alert_type eq $_->{alert_type},
$ass_id == $_->{asset_id}
} @$cache_sent;