search($string,'text'); ???

Kako bi izgledala funkcija v Perlu, ki ti preišče string in ne glede na to ali so velike ali male crke, najde in presteje stevilo zahtevanih nizov.

V stilu search($string,'test');
in bo potem prestela kolikokrat se v nekem stringu pojavlja izraz 'test' (lahko tudi TEST, tEsT, itd...).

sub search {
my ($string,$iskanec)=@_;
my (@match)= $string =~ m/$iskanec/gi;
return scalar(@match);
}

xgm so opcije jih podas pri m operaterju. Konkretno pomeni:

x: ti omogoci da v regexu lahko prosto po presernu pises presledke in nove vrstice (da rata bolj pregleden), a jih iskanje ne bo upostevalo, ce jih posebej ne zahtevas (s je presledek, n pa je nova vrstica)

g: privzeto je, da se iskanje ustavi pri prvem zadetku, tale g pa pomeni da bo poiskalo prav vse zadetke in jih vrnilo. Taksno iskanje ti vrne array zadetkov, ki jih lahko prestejes, tako da jih priredis skalarju ali pa jih uporabis

m: iskanje se privzeto ustavi ce naleti v stringu ki ga pregleduje na znak za novo vrstico. Ce ves da se lahko iskani niz raztegne v vec vrstic, ga uporabis



rdece s je znak za presledek, | je pa or znak torej "|' dvojni ali enojni oklepaj.

Priporocam ti da vpises v gugla perl regular expression tutorial pa si malo pogledas zadevce. Stvar je grozna na prvi pogled ampak videz vara, poleg tega pa je zelo, zelo uporabna :)