#!/usr/bin/perl


print ("VJEZBA3 PERL\n");

$fred = 5;
$nec = "nec";
print ("$fred" ." ". "$nec\n");     #5 nec
print ('$fred' ." ". '$nec\n'."\n");#$fred $nec\n


$nec *= 2;
print ($nec);           #ispise 0
print("\n");

print ("$nec\n");       #ispise 0



$nec = "nec";
print ($nec);           #ispise nec
print ("\n");


$nec x= 3;
print ($nec);           #ispise necnecnec
print("\n");


print ("\$nec");
print("\n");            #$nec




##################################################################
#liste


$polje[0] = "nec";
$polje[2] = "mac";
$polje[4] = "juc";

print ($polje[0]);
print ($polje[2]);
print ($polje[4]);
#ispise necmacjuc
print ("\n");
print ($polje[1]);
#ovjdje ne ispise nista zato sto je 1. element undef
print ("\n");
print ($polje[-1]);
#ispise juc (zadnji element u polju)

print ("\n");
print ($#polje);
#ispise zadnji indeks polja

print ("\n");
print(@polje);
#ispise cijelo polje

$velicina = @polje;
print ("\n");
print ($velicina);
#ispise velicinu polja -> automatski se ovo nes pretvori u broj
print ("\n");

@l1 = ();
print (@l1);
print ("\n");
#ne ispise nist


@l2 = (1,2,3);
print (@l2);
print ("\n");
#123


@l3 = (1..5);
print (@l3);
print ("\n");
#12345


@l4 = (1.7..5.7);
print(@l4);
print ("\n");
#12345


@l5 = (5..1);
print (@l5);
print ("\n");
#ne ispise nist, ne moze u nazad


@l6 = (0,2..6,10,12);
print(@l6);
print ("\n");
#0234561012


@l7 = @l6; #kopiranje polja

@l8 = (@l2, 4,5,6);
print (@l8);
print ("\n");
#123456


$a = pop(@l8);
print ($a);     #6
print ("\n");
print (@l8);    #12345
print ("\n");


push (@l8, 'a');
print (@l8);    #12345a
print ("\n");



$a = shift (@l8);
print ($a);         # 1
print ("\n");
print (@l8);        #2345a
print ("\n");


unshift(@l8, 4);
print (@l8);        #42345a
print ("\n");

############################################################

my $str = '112133';
$str =~ s/(.)\1/$1/g;
print ($str);
print ("\n");

#ispise 1213 --> izbaci duplikate


$a[3] = 3;
$a[7] = 7;
$a[8] = 8;
$a = $a[0] + 1;
print ($a);
print ("\n");
#ispise 1


@a = (1, 2, 3, 4);
@b = (5, @a, 6, 7);         #@b = (5,1,2,3,4,6,7)
$c = @b;
print $c . " : " . $b[1];   #$c = 7     $b[1] = 1
#ispise 7 : 1
print ("\n");



# $string = "NenadBorković sad asda asdasdadadsadasa adasddasdadsas asdsdsaasdsadadasad";
# @l = $string1=~ m/.{4}(.{6})/;
# print ("@l\n");


$string = "To dream of the person you would like to be is to waste the person you are.\n";
@a = $string =~ m/\b(\w{5,})\s/g;
print ("@a\n");
#ispisjuje sve rijeci koje imaju 5 ili vise slova
#dream person would waste person

$string = "NenadBorković";
@l = $string =~ m/^.{4}(.{6})/;
print ("@l\n");
#ispisuje



@l = (3,5,8,7,9,3,6,7,8,9);
%e = reverse @l;        #%e = (9,8, 7,6, 3,9, 7,8, 5,3)  = (k,v,k,v,k,v,k,v,k,v)
print $e{7};
print ("\n");
#8 vidim da ima jedna kombinacija $e{7}=6 a nakon toga $e{7}=8
#prebrisalo se logicno na isti kljuc je dosla nova vrijednost



@l = (1..7, 7..5);
print ("@l\n");         #1 2 3 4 5 6 7
@l = (1..7, 7..9);
print ("@l\n");         #1 3 2 4 5  6 7 7 8 9

$a = 3;
foreach (1..7,7..5){
    print ($a += $_);
    print ("\n");
}
#4 6 9 13 18 24 31



@a = (0,1,2);
my($b) = @a;
print ("$b\n");
#ispise 0 jer je b u kontekstu liste pa se uzme prvi sa liste, ostatak zanemari


@a = (0,1,2);
my$b = @a;
print ("$b\n");
#ispise 3 jer je b sad u kontekstu skalara i oznacava duljinu liste



@lista = (1,2,3,4);
($f,$d,$e) = @lista;        #$f=1  $d=2  $e=3
@lista = ($lista[2], $f, @lista[$d], $#lista);
print ("@lista\n");
#ispise 3 1 3 3




$h{'r'} = 4;
$h{4} = 5;
print ($h{3}.$h{4});
print ("\n");
#ispise 5 jer $h{3} je undef

$string = '"Grupa";"Ime";"Prezime";"JMBAG";"Bodovi"';
@a = ($string =~ m/"(.*?)"/g);
print "$a[3]\t$a[2] $a[1]\n";
#ispise se JMBAG    Prezime Ime
#backslash ispred navodnika moze i ne mora



@a = qw / ana branka dragica ana tea jana /;

foreach (@a) {
    @b=/./g;            #@b je lista svih znakova iz stringa
    $c{$_}=@b;          # c je dict kljuc=ime vrijednost je lista slova u imenu
}

foreach (values (%c)) {
print ("$_\n");
$s+=$_;                 #$_ u sluzbi skalara sadrzi velicinu liste slova tj broj slova
}
print ("$s\n");
#ispise 23
#napomena ime ana je dvaput u listi, al je jednom u rjecniku tako da se taj drugi ne racuna


############################################################

#popis nekih regexa

# m/(^.+)/                              -> ispisuje sve retke --> . je bilo koji znak od pocetka linije koji se ponavlja jednom ili vise puta
# m/([\d]{2}.+)/                        -> ispisuje prve dvije brojke na koje naiđe i sve iza njih do kraja retka
# m/([\d]{2}\.+)/                       -> ispisuje samo prve dvije brojke i sve točke iza njih ako ima takvih podudaranja
# m/([\d]{2}\.[\d]{2}\.[\d]{4}\..+)/    -> ispisuje datum i sve nakon njega . je bilo koji znak, a \. je točka
# @a = $string =~ m/\b(\w{5,})\s/g;     -> @a ce sadrzavati sve rijeci iz stringa koje imaju 5 ili vise znakova pa iza prazan znak
# @l = $string =~ m/^.{4}(.{6})/;       -> @l ce sadrzavati rijec od 6 znakova (sve od 4. do 10. slova)