Code php -> Perl

[dobra]

Hallo,

Habe in einem php-Scrip einen Code gefunden, der eine "Zebratabelle" bewirkt
Das funktioniert überall - nicht nur mit  <!--spmacro:loopitem25.2-->

Code [Auswählen] Expand

$row_class = ( !($i % 2) ) ? $theme['td_class1'] : $theme['td_class2'];

Kann man das analog auch mit Perl machen und wenn "ja" - wie muß der Code für Perl geschrieben werden?

[admin]

Hallo,

Code [Auswählen] Expand


$row_class = ( !($i % 2) ) ? $theme{'td_class1'} : $theme{'td_class2'};


Einzige Änderung spitze gegen eckige Klammer tauschen.
Aber ich bin kein Fan von so einem Hack, ich würde es lieber klar schreiben,
dann weiss man auch nach ein paar Monaten noch was der Code machen sollte.

Code [Auswählen] Expand



if ($i % 2) { # wenn $i eine ungerade Zahl
    $row_class = $theme{'td_class2'};
} else {     # gerade Zahl
    $row_class = $theme{'td_class1'};
}



Gruss hop

[dobra]

DANKE