Opened by paidopoieo at 2006-02-08 23:12
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
[quote=renee,09.02.2006, 11:38]Das weisst Du nicht. Sie laesst uns ja keinen Code zukommen, genau wie im gesamten Thread...[/quote]
Meine Glaskugel meint
Meine Glaskugel meint
Code: (dl
)
1
2
3
4
5
6
my $pq = PerlUser->new();
$pq->car( Car->new(type => 'random') );
my $fuel = $pq->car()->type_of_fuel();
my %fuels = (qw/Super Normal Normal Diesel Diesel Super/);
$fuel = exists $fuels{$fuel} ? $fuels{$fuel} : [keys %fuels]->[rand scalar(keys %fuels)];
$pq->car()->refuel($fuel);
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
use strict; use warnings; Link zu meiner Perlseite