Come si elabora un ordine parziale di attività contemporaneamente utilizzando Perl?

Question

Ho un set di attività parzialmente ordinato, in cui per ogni attività devono essere eseguite tutte le attività che prima dell'ordinamento parziale nell'ordine parziale prima di poter essere eseguite. Voglio eseguire attività che non sono correlate (né prima né dopo l'altra) contemporaneamente per cercare di ridurre al minimo il tempo di esecuzione totale, ma senza avviare un'attività prima che le sue dipendenze siano completate.

Le attività verranno eseguite come processi figlio (non perl).

Come devo affrontare la risoluzione di un problema come questo utilizzando Perl? Quali strutture di controllo della concorrenza e strutture dati sono disponibili?

Answer 1

Vorrei utilizzare un hash di array. Per ogni attività, tutte le sue Propedeuticità saranno menzionati nella matrice corrispondente:

$prereq{task1} = [qw/task2 task3 task4/]; 

vorrei tenere le attività completate in un hash diverso, e poi basta

my @prereq = @{ $prereq{$task} }; 
if (@prereq == grep exists $completed{$_}, @prereq) { 
    run($task); 
} 

Answer 2

Sembra una soluzione completa è NP-complete.

Come per una soluzione parziale, Vorrei utilizzare alcune forme di conteggio di riferimento per determinare quali operazioni sono pronti per l'esecuzione, Forks::Super::Job per eseguire i processi di fondo e verificare il loro stato e POSIX::pause Dormire quando viene generato il numero massimo di lavori.

Nessun thread è coinvolto poiché hai già a che fare con processi separati.

Leggere il primo collegamento per possibili algoritmi/euristica per determinare le priorità dei lavori eseguibili.