Thread Ein paar Fragen zur Objektorientierung (4 answers)
Opened by Sven_123 at 2011-03-17 11:24

hlubenow
 2012-02-27 17:51
#156459 #156459
User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]
Es ist ja schon eine Weile her, daß ich das Posting, auf das ich mir hier selbst antworte, geschrieben hatte.
Inzwischen habe ich gelernt, daß die Sache in Perl 5 auch nicht viel schwieriger als in Python 2.x ist:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl

use warnings;
use strict;

package Wuerfel;

    sub new {
        my $classname = shift;
        my $self = {augen => undef}; 
        return bless($self, $classname);
    }

    sub anschubsen {
        my $self = shift; 
        $self->{augen} = int(rand(20)) + 1;
    }

package main;

my $drachentoeter = Wuerfel->new();
$drachentoeter->anschubsen();
print "$drachentoeter->{augen}\n";

Das nur so zur "Ehrenrettung". ;) (Aber eigentlich ging es ja hier um Perl 6.)
Last edited: 2012-02-29 17:04:21 +0100 (CET)

View full thread Ein paar Fragen zur Objektorientierung