Hilfe bei Aufgabe Was macht dieses Skript? - #118390 (Allgemeines zu Perl)

heini4711

2009-01-27 13:20

User since
2009-01-27
2 Artikel
BenutzerIn
[default_avatar]

Hallo!

Ich habe hier eine Aufgabe, mit der ich nicht klar komme. Ist aus einem Skript zu einer Schulung, die ich kürzlich besuchen musste. Ich soll sagen, was das Programm macht aber leider kann ich es nicht ausführen. Das ist irgendwie so komisch programmiert, dass ich als Anfänger leider überhaupt nicht mehr durchblicke.

Wäre nett wenn mir jemand helfen könnte.

Code (perl): (dl )

package f;
$eins=[1,([2,3],4),5];
sub new {bless{} ;};
sub u {return $eins->[2]};
package g;
@ISA=f;
@k=(6,7,(8,9),0);
sub new {bless{} };
sub v {$f::eins->[2]=@k;}       
package main;
$p=g->new;
print $p->u;
print "$g::k[3]4";
$p->v;
print $f::eins->[2]->[3];

Grüße und Danke,
Heinrich