nicht angemeldet
use Mosche;
Ich möchte eine IF Abfrage machen --> wenn @array kleiner als 2Werte hat, dann...
vielleicht in Perl? Dann so:if ($#array<1) {
....
}
Was im übrigen nicht ganz korrekt ist (nur in den allerallerallermeisten Fällen :-)):
mit der Variable $[ wird der Index des ersten Elements definiert (Standard: 0, Benutzung verpönt (!!!)). Koorekt lauten müsste es also:
if ($#array - $[ < 1) {
...
}
Da ist die Variante von ALexander schöner.
use Tschoe qw(Matti);
--
$a=n(1001010);print chr($a+=$_)for(0,43,-2,1,-84,65,13,1,5,
-12,-3,13,-82,48,21,13,-6,-76,72,-7,2,8,-6,13,-104);sub n{
$b=0;$_=0;for($c=length$_[0];$c;--$c){$_+=_($b)if substr$_
[0],$c-1,1;$b++;}$_}sub _{($d)=@_;for($e=1;$d--;$e*=2){}$e}
$a=n(1001010);print chr($a+=$_)for(0,43,-2,1,-84,65,13,1,5,
-12,-3,13,-82,48,21,13,-6,-76,72,-7,2,8,-6,13,-104);sub n{
$b=0;$_=0;for($c=length$_[0];$c;--$c){$_+=_($b)if substr$_
[0],$c-1,1;$b++;}$_}sub _{($d)=@_;for($e=1;$d--;$e*=2){}$e}