Perl Syntax (Toggle Plain Text)

#!/usr/bin/perl
use strict;
 
my $dog1 = new("Dog","Shane","white");
my $dog2 = new("Dog","Tom","brown");
 
print "I am a dog called ". $dog1->getName()." and I am " . $dog1->getColour() . "\n";
print "I am a dog called ". $dog2->getName()." and I am " . $dog2->getColour() . "\n";
 
 
sub new {
  my $class = shift;   # Determine the class for the oject to create
  my $name=shift;
  my $colour=shift;
  my $obj = {};        # Instantiate a generic empty object
  bless $obj, $class;  # 'bless' this new generic object into the desired class
  $obj->_init($name,$colour);     # Run the '_init()' sub for this class of object
  return $obj;         # Return our newly blessed and loaded object
}
 
 
package Dog;
 
my $obj;
 
sub _init {
    $obj=shift;
    $obj->{NAME}=shift;
    $obj->{COLOUR} = shift;
}
sub getName{
  return $obj->{NAME};
}
sub getColour{
  return $obj->{COLOUR};
}

#!/usr/bin/perl use strict; my $dog1 = new("Dog","Shane","white"); my $dog2 = new("Dog","Tom","brown"); print "I am a dog called ". $dog1->getName()." and I am " . $dog1->getColour() . "\n"; print "I am a dog called ". $dog2->getName()." and I am " . $dog2->getColour() . "\n"; sub new { my $class = shift; # Determine the class for the oject to create my $name=shift; my $colour=shift; my $obj = {}; # Instantiate a generic empty object bless $obj, $class; # 'bless' this new generic object into the desired class $obj->_init($name,$colour); # Run the '_init()' sub for this class of object return $obj; # Return our newly blessed and loaded object } package Dog; my $obj; sub _init { $obj=shift; $obj->{NAME}=shift; $obj->{COLOUR} = shift; } sub getName{ return $obj->{NAME}; } sub getColour{ return $obj->{COLOUR}; }