Perl OOP - #70146 (Allgemeines zu Perl)

renee

2006-09-22 16:38

User since
2003-08-04
14371 Artikel
ModeratorIn

Also Dein oben gepostetes User-Beispiel kann man auch einfach so schreiben:

User.pm

Code: (dl )

package User;

use strict;
use warnings;
use base 'Class::Accessor';

User->mk_accessors(qw/name passwort/);

1;

Dann im Skript:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use User;

my $user = User->new();
$user->name('test');

print $user->name();

\n\n