1: #!/usr/bin/perl 2: 3: package Lampadina; 4: sub new { 5: my $self = shift() || { stato => 'spenta‘, potenza => '0 W', attacco => 'baionetta', luce => 'gialla', }; 6: bless $self; # Indica a Perl che $self non è una variabile qualsiasi ma un riferimento all’oggetto 7: return $self; 8: } 9: 10: sub switch { 11: my $self = shift; # Reference all’oggetto di cui fa parte 12: $self{state} = $self{state} eq 'accesa' ? 'spenta' : 'accesa'; 13: } 14: 15: sub state { 16: my $self = shift; # Reference all’oggetto di cui fa parte 17: return $self{state}; 18: }
1: #!/usr/bin/perl 2: package main; 3: 4: my $lampadina = new Lampadina({stato=>'spenta‘, potenza=>'60 W‘ , attacco=>'edison', luce =>'bianca‘, }); 5: 6: if ( $lampadina->state() eq 'spenta' ) { 7: $lampadina->switch(); 8: print "la lampadina ora è accesan"; 9: } else { 10: $lampadina->switch(); 11: print "la lampadina è spentan"; 12: }
Скачать презентацию 1 usr bin perl 2 3 package Lampadina 4 sub
ab9b0a545ac39a7c8dc21cdb34dd6a24.ppt