32 lines
893 B
Perl
32 lines
893 B
Perl
# Ny fil! Dette er "hils.pl"
|
|
|
|
package main; # Hoved-navnerommet heter "main", og trengs ikke å
|
|
# annonseres på denne måten, egentlig. Med mindre vi
|
|
# har flere "package" i samme fil...
|
|
|
|
use Hello;
|
|
|
|
my $friend = Hello::person("Gorm", "M");
|
|
|
|
my @other_friends = (
|
|
Hello::person("Natalija", "K"),
|
|
Hello::person("Remi", "M") );
|
|
|
|
# Og så hilser vi po et par venner :)
|
|
|
|
Hello::hils( $friend );
|
|
Hello::hils( $other_friends[0] );
|
|
Hello::hils( $other_friends[1] );
|
|
Hello::hils( $friend );
|
|
Hello::hils( $other_friends[0] );
|
|
Hello::hils( $friend );
|
|
Hello::vis_ant_hilsninger( $friend );
|
|
Hello::vis_ant_hilsninger( $other_friends[0] );
|
|
Hello::vis_ant_hilsninger( $other_friends[1] );
|
|
|
|
__END__
|
|
|
|
Ferdig! Vi kunne ha fått penere kode ved å importere symbolene fra
|
|
Hello.pm, men da mister vi fordelen av å vite nøyaktig hvilken pakke
|
|
funksjonene hører til i.
|