Variablen übergeben - #82260 (Allgemeines zu Perl)

Crian

2004-05-13 15:23

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=Dieter,12.05.2004, 19:19]Vererbung ist unter Perl mehr als einfach ...

Code: (dl )

package Foo;
@ISA = qw(
    Bar
    Baz
);

und schon sind alle Methoden der Module Bar und Baz an das Modul Foo vererbt.[/quote]
use base

Code: (dl )

use base qw(Auto Boot);

ist Abkürzung für

Code: (dl )

BEGIN {
     our @ISA = qw(Auto Boot);
     require Auto:
     require Boot;
}

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