nicht angemeldet
use Mosche;
"Auf jedem System, das ein Perl installiert hat."
Mir ist nicht ganz klar, wo ich, auf jedem System auf dem perl installiert ist nachlesen kann.
Nachdem du so komisch nachfragst, wirst du wohl Windows verwenden und nicht wissen, was eine vernünftige Konsole ("Eingabeaufforderung") ist. Weiterhin wirst du wohl ActivePerl verwenden. Dann klicke dich doch mal in dein ActivePerl Verzeichnis und klicke auf Dokumentation (oder so ähnlich, hab kein Windows hier). Das ist sowas wie die perldoc.
perldoc findest du auch unter http://www.perldoc.com.
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}