Utsnitt fra streng (Perl)

[corpus]

Hei!

Jeg trenger å hente ut deler av en streng i Perl.

Strengen er som følger:

Kode: Merk alt

+0:0:28:0:0:0:0

Dette betyr:

Kode: Merk alt

+år:måneder:uker:dager:timer:minutter:sekunder

Jeg trenger å hente ut hver av disse (år, mnd etc), sjekke om ulik 0 og behandle. Er det noen som har en løsning på uthentingen?

[borth]

Kode: Merk alt

$streng="+0:0:28:0:0:0:0";

@dato = split(/:/, $streng);

if (@dato[0] != 0) {
    behandle...
}

if (@dato[1] != 0) {
    behandle...
}

if (@dato[2] != 0) {
    behandle...
}

osv til @dato[6]



[corpus]

Ahhh... Selvsagt!! Tusen takk!