#!/usr/bin/perl -w


# use Pg;

use LWP::Simple;

print "Bere spletni naslov, html vsebino in ga zapise v >koor1.txt (not so linki na gore) in koor2.txt (not so URL na gore in koodrinate).\n";


open (PISIV,">koor1.txt") || die "ne morem narediti datotelke";
open (PISIV2,">koor2.txt") || die "ne morem narediti datotelke koor2.txt";





#od tu crpam spodnje naslove:  http://www.hribi.net/gorovja
$nas[0]= "http://www.hribi.net/gorovje/gorisko_notranjsko_in_sneznisko_hribovje/26";
$nas[1]= "http://www.hribi.net/gorovje/julijske_alpe/1";
$nas[2]= "http://www.hribi.net/gorovje/kamnisko_savinjske_alpe/3";
$nas[3]= "http://www.hribi.net/gorovje/karavanke/11";
$nas[4]= "http://www.hribi.net/gorovje/pohorje_in_ostala_severovzhodna_slovenija/4";
$nas[5]= "http://www.hribi.net/gorovje/polhograjsko_hribovje_in_ljubljana/5";
$nas[6]= "http://www.hribi.net/gorovje/skofjelosko_cerkljansko_hribovje_in_jelovica/21";
$nas[7]= "http://www.hribi.net/gorovje/zasavsko_-_posavsko_hribovje_in_dolenjska/25";


for  ($g=0; $g<=7; $g++) {

# $tekst = get 'http://www.hribi.net/gorovje/gorisko_notranjsko_in_sneznisko_hribovje/26';
 
$tekst = get $nas[$g];

  open( URL1, '<', \$tekst );

            while ( defined($vrstica=<URL1>) ) {
               chomp($vrstica);

@gora1 = split(/\"/,$vrstica); #razdelim tekst med narekovaji ""
# /gora/sveti_stefan_zanigrad/26/1706">

$jj=0; $stig=0;
foreach $i (@gora1) {
$stringora =  substr $gora1[$i], 0, 6; # ce ima string prvih 6 znakov vrednost  "/gora/"

print "------------------ $stringora \n";
if ($stringora eq "/gora/" ) {
$jj++;
$gorai[$jj]=$gora1[$i];
$stig=1;

}
}


$dolzina = length($vrstica);
print "$vrstica in $dolzina \n";

# <a href="/gora/

if ($stig==1){
$urlg="http://www.hribi.net".$gorai[$jj];
 print PISIV "$urlg \r\n";

# --- berem nov url in ven vlečem koordinate ----------------
# --- berem nov url in ven vlečem koordinate ----------------
# --- berem nov url in ven vlečem koordinate ----------------
$tekst2 = get $urlg;
open( URL2, '<', \$tekst2 );
while ( defined($vrstica2=<URL2>) ) {
               chomp($vrstica2);

 #razdelim tekst med 
# ($visina)= $vrstica2 =~ />(.*)</;  # iscem tekst med > <
($visina)= $vrstica2 =~ /ina:<\/b>(.*)<\/td>/;  # iscem tekst med ina:</b> in </td>   KER <b>Višina:</b> 1359&nbsp;m</td></tr>

$nv="&nbsp;m";
# $loc = index($visina, $nv);

if (index($visina, $nv) != -1) {
$visina_st = $visina;   #  765&nbsp;m samo stevilko dam
$slep="";
$visina_st =~ s/$nv/$slep/g; # zbrisem &nbsp;m 
}
# -------------------------------=================================

# ISCEM geografski koordinati asp?goraid=1528">46,4876°N&nbsp;/&nbsp;13,4552°E</a>

($gsd)= $vrstica2 =~ /">(.*)°E<\/a>/;  # iscem tekst med "> °E</a>   KER 
#  asp?goraid=1528">46,4876°N&nbsp;/&nbsp;13,4552°E</

$gkx="°N&nbsp;/&nbsp;";
# $loc = index($visina, $nv);

if (index($gsd, $gkx) != -1) {
$gsd_st = $gsd;   #  765&nbsp;m samo stevilko dam
$ver=" | ";   $slep="";
$gsd_st =~ s/$gkx/$ver/g; # zbrisem &nbsp;m

# -- spodaj se znebim cudnega znaka $aA="Â";
$aA="Â";
$gsd_st =~ s/$aA/$slep/g; # zb

  #  print PISIV2 "$visina vsebuje $nv\n";
## --- pisem url, visino in ge. koordinati v datoteko
 print PISIV2 "$urlg | $visina_st | $gsd_st \r\n";
} 

# print PISIV2 "$visina \n";


  } # konec whilw ( defined($vrstica2=<URL2>) ) {



} # konec if if ($stig==1){
   } # konec while

} ## KONEC for  ($g=0; $g<=7; $g++) {

 close(PISIV2);

 close(PISIV);

exit(0);