japhy
Enthusiast
Mar 13, 2000, 9:39 AM
Post #2 of 3
(327 views)
|
This is no longer a "beginner" topic.  You want to look at modules (or "classes"), or use a simple hash structure. Here are two examples for you to look at. For further instruction, I'll give resources.
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR>
package Person;
sub new {
my ($class,$name) = @_;
return bless { NAME => $name }, $class;
}
sub age {
my $self = shift;
return $self->{AGE} if !@_;
return $self->{AGE} = shift;
}
sub name {
my $self = shift;
return $self->{NAME};
}
package main;
$foo = new Person "Joe";
$foo->age(24);
print $foo->name, " is ", $foo->age;
</pre><HR></BLOCKQUOTE>
For more on classes and objects and methods (object-oriented programming in general), look at the following Perl documentation: perlobj, perltoot, perlbot. Also look at: "perldoc -q struct" for more pointers to these docs.
To use a hash reference, it's very simple:
<BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR>
$person = {};
$person->{NAME} = "Joe";
$person->{AGE} = 18;
print "$person->{NAME} is $person->{AGE}";
</pre><HR></BLOCKQUOTE>
|
MAIN
SEARCH
WHO'S 
LOG 