########################################################################
######################## Zadatak 1 #####################################
### Iz .html datoteke koja se zadaje kao argument komandne linije,   ###
### izdvojiti sve linkove ##############################################
### Primetiti da se izdvajaju samo linkovi na stanice koje   ###########
### se nalaze u istom direktiorijumu kao i pocetna stanica   ###########
########################################################################

# proveravamo da li je zadato ime datoteke kao argument komandne linije
if ($#ARGV<0) {
	die "Navesti ime html datoteke.\n";
}

# otvaramo datoteku
open(DATOTEKA, $ARGV[0]) or die "Neuspesno otvaranje datoteke.\n";

# po datoteci trazimo linkove
while (<DATOTEKA>) {
	while (/<a\s+href\s*=\s*\"(\w+\.html?)\">/ig) {
		print "Link: $1\n";
	}
}

####################################################################
########       drugi nacin za ovo       ############################
########      efikasniji i bolji        ############################
####################################################################
###@sve_linije = <DATOTEKA>;
###$sastavljeno = join (" ", @sve_linije);
###
###while ($sastavljeno =~ /<a\s+href\s*=\s*\"(\w+\.html?)\">/ig) {
###		print "Link: $1\n";	
###}
#####################################################################


# zatvaramo datoteku
close (DATOTEKA);