RDW #B - Raetsel der Woche Nummer B - #50276 (Allgemeines zu Perl)

Crian

2004-12-21 21:19

User since
2003-08-04
5875 Artikel
ModeratorIn

kein geblesstes Hashref, sondern geblesstes Arrayref :)

btw. kann Deins das hier auch:

Code: (dl )

{
    my $zahl = new Rdw::BigInt 4711;
    $zahl->print('vorher : ');
    $zahl->mul(1000001);
    print "nachher: $zahl\n";
}

Ausgabe:

Code: (dl )

1
2

vorher : 4.711
nachher: 4.711.004.711

Augenmerk auf letzte Codezeile ;)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite