OOP

[Nicole Seitz]

Hi there!

I've just started to learn OOP with Perl.With the help of perltoot I wrote a 
class Person and some methods(see below).

package Person;
use strict;

sub new {
    my $self = {};
    my $proto = shift;
    my $class = ref($proto) || $proto;
    $self->{CNAME}           = undef;
    $self->{SNAME}           = undef;
    $self->{STREET}          = undef;
    $self->{CITY}            = undef;
    $self->{PHONE}           = undef;
    $self->{EMAIL}           = undef;

    bless ($self, $class);
    return $self;

}

sub cname {
    my $self = shift;
    if (@_) {$self->{CNAME} = shift }
    return $self->{CNAME};
}

sub sname {
    my $self = shift;
    if (@_) {$self->{SNAME} = shift }
    return $self->{SNAME};
}

sub street {
    my $self = shift;
    if (@_) {$self->{STREET} = shift }
    return $self->{STREET};
}

sub city {
    my $self = shift;
    if (@_) {$self->{CITY} = shift }
    return $self->{CITY};
}
sub phone {
    my $self = shift;
    if (@_) {$self->{PHONE} = shift }
    return $self->{PHONE};
}

To store some data in my object I did the follwing:

use Person;

$myPerson = Person->new();
$myPerson->cname("John");
$myPerson->sname("Smith");
$myPerson->street("Euston Road");
$myPerson->city("London");
$myPerson->phone("414 3344");


Do I really need all these methods?
I get my data from an comma separated file;lines in this file look like this:
;John;Smith;Euston Road;London;414 3344;;

So, after opening the file and reading from it line per line,
what's the best way to store the data in an object? Can I do it in one step?I 
mean, without using several methods(cname,sname,...)???

Many thanx in advance!

Nicole





-- 
Was immer du tun kannst oder erträumst zu können, beginne es.
Kühnheit besitzt Genie, Macht und magische Kraft. Beginne es jetzt. 
(Johann Wolfgang Goethe)

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]