###########################################################################
###				Zadatak 6				###
###  Folder seminarski_radovi je podfolder tekuceg direktorijuma	###
###  U njemu se nalazi fajl indeksi.txt koji je sledeceg formata	###
###  mr07123,Marko Markovic						###
###  mm07124,Mira Miric							###
###  U njemu se nalaze svi studenti					###
###  Pored ovog fajla seminarski_radovi sadrze i podfoldere sa imenima	###
###  koja odgovaraju username-ovima studenata koji su zavrsili		###
###  seminarkse. Zadatak je ispisati imena i prezimena tih studenata	###
###########################################################################

# Otvaranje datoteke
open (DAT, "seminarski_radovi/indeksi.txt") or die "Neuspesno otvaranje datoteke sa indeksima\n";

# Pamtimo username, imena, prezimena svih studenata u mapu
%indeksi = ();
while(<DAT>) {
	if (/.*,.*/) {
		chomp;
		($a, $b) = split(",", $_);
		$indeksi{$a} = $b;
	}
}

# Zatvaranje datoteke
close(DAT);

# Stampamo ko je predao rad
print "Studenti koji su predali radove su:\n";

# Otvaramo direktorijum seminarski_radovi
opendir(DIREKTORIJUM, "seminarski_radovi") or die "nemoguce otvaranje direktorijuma\n";

# Citamo stavku po stavku direktorijuma
while ($stavka = readdir(DIREKTORIJUM)) {
	if ($stavka =~ /m[rvnmil]\d{5}/ and -d "seminarski_radovi/$stavka") {
		print "$indeksi{$stavka}\n";
	}
}

# Zatvaramo direktorijum
closedir(DIREKTORIJUM);