pendant zu gt/lt in perl

[ThomasP]

Hei und HuHu! ;-)

nachdem ich nirgends eine Funktion wie gt oder lt in Perl fand und strcasecmp die Laenge des Strings zuerst beruecksichtigt, hier meine selbstgebastelte Loesung:

function stralphacmp($string1,$string2)
{
$x=0;
$ret=0;
for($x=0;(strlen($string1)<strlen($string2)) ? strlen($string1) : strlen($string2);$x++)
{
  $ret=strcasecmp(substr($string1,$x,1),substr($string2,$x,1));
  if(0!=$ret) break;
}
if(0==$ret)
{
  (strlen($string1)<strlen($string2)) ? $ret=-1 : $ret=1;
}
return $ret;
}

nicht unbedingt optimiert, aber es funzt.

Gruß
Thomas