perl , nekoliko zadataka

zdravo

dobio sam od profesora nekoliko zadataka u Perlu al posto mi nekako nije bas jasno kako to sve funkcionise reko da vidim ima li ovdje neko ko bi mi mogao pomoci ,naime radi se o ovome :

1.$slike = "1.jpg, 2.jpeg, 3.JPEG, 4.JPG";

naime ovdje treba napisat naredbu koja ce sve ekstenzije dovesti do istog , na primjer da se svi zavrsavaju na jpeg


2.if ( $email =~ m/(:|;)-\)/ ) { print "Smile!"; }

ovdje trebam napisat sta se uopste pretrazuje sa ovom naredbom i kada ce se ispisat SMILE (dobro znam da ce se smile ispisat samo ako je ono true :) )

3.ovdje trebam napisat naredbu koja ce prepoznat format "a000000" ,znaci format u kojem je "a" prvo slovo i zatim slijedi 6 proizvoljnih brojeva


4.$var = "Kuća,Spavaća,Noć";

ovdje moram slovo "ć" zamijenit slovom "c"


evo ja sam nest i radio samo ne znam jel to tacno :

1. slike=~ s/jp(e|)g/jpeg/gi;

4.$var=~s/ć/c/gi;

A sto ovo u Advocacy? Mislis da se svadjamo i da raspravljamo ko ce da ti resi domaci? :))

Potpis

oligofrenolog

pa nisam bas mislio da se svadjate ,al ako je tako uobicajeno ovdje nije frka moze :)

ma nisam ,nest sam i pokusao samo ne znam kako da provjerim jel dobro to sto sam uradio nemam blage gdje se to kuca ,a i nije mi domaci nego je na dobrovoljnoj bazi jer nije predvidjeno da se radi:)

1. $slike=~s/\.jpg/\.jpeg/gi
2. Smile ce se ispisati ako se negde u izrazu nalazi :-) ili ;-)
3. $x=~/a\d{6}/ #ako se dobro secam(nisam siguran da li je \d za cifre)
4. $var=~tr/ć/c/ #efikasnije od tvog resenja ali je i tvoje tacno
#i mislim da treba da se doda na pocetku fajla
#use utf8; jer perl sam ne prepoznaje unicode

nije greška, ali pravilnije je

ma moze i samo /jpg/ bez ? jer zasto bi menjao
jpeg sa jpeg kad je to isto?