Principios De Analise E Projetos De Sistemas

Sistemas Operacionais – Trabalho Prático 1

Código

#!usr/bin/perl

#Abre o arquivo de parâmetros

open(ENTRADA,"entrada.txt") or die "Nao foi possivel abrir o arquivo entrada.txt para leitura.";

#Coloca o arquivo de parâmetros em um vetor, cada linha em uma posição do vetor

@proc = <ENTRADA>;

#Captura a quantidade de processos passados como parâmetro

$qtd_proc = $#proc;

#Define tempo de quantum

$quantum = 2;

my @tempo_resposta;

my @turnaround;

my @fila;

my @status;

#Separa cada dado do processo em variáveis separadas

for ($i=0; $i<=$qtd_proc;$i++){

(@nome[$i], @prio[$i], @temp_exec[$i], @temp_subm[$i], @qtd_interrup[$i], @interrup1[$i], @interrup2[$i], @interrup3[$i], @interrup4[$i], @interrup5[$i]) = split('[ ]',@proc[$i]);

}

Relatório

Esse trabalho é referente à política de escalonamento Round Robin. De acordo com o que foi pesquisado, conseguir ler o arquivo de parâmetros de entrada e colocar cada linha do arquivo em uma posição de um vetor (@proc). Foi usado um comando para identificar a quantidade de posições que o vetor @proc possui, com isso foi possivel identificar quantos processos estão sendo passados como parâmetro. Após alocar cada linha na posição do vetor, foi feito a separação de cada dado do processo em suas devidas variáveis. Para isso foram criados outros vetores como: prioridade, tempo de submissão, quantidade de interrupções, etc.

Foi criado um laço de repetição (for) para quebrar cada linha do arquivo de parâmetro separadamente, alocando cada dado em uma posição de outros vetores, a quebra foi realizada utilizando o comando slipt que faz a separação dos dados através de um delimitador que no caso foi usado o espaço.