Shopsystem ShopPilot

ShopPilot => Allgemein => Thema gestartet von: dobra am April 05, 2007, 12:55:15

Titel: Code php -> Perl
Beitrag von: dobra am April 05, 2007, 12:55:15
Hallo,

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

$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?
Titel: Re: Code php -> Perl
Beitrag von: admin am April 05, 2007, 13:35:37
Hallo,

$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.


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


Gruss hop
Titel: Re: Code php -> Perl
Beitrag von: dobra am April 05, 2007, 13:43:45
DANKE