Какой лучший способ для сервера обрабатывать сообщения в Perl?
Я пытаюсь
while ( 1 ) {
# Get Queue Messages
# Do Work
sleep( 10 );
}
Моя схема MySQL имеет вид
create table message (
id int auto_increment primary key,
processed int,
message varchar(100)
)
и в "#Get Queue Messages" я делаю запрос как
select * from message where processed = 0
и затем нажмите флаг, когда это будет сделано.
Есть ли лучший способ сделать это?