Recover from microbel
This commit is contained in:
31
Hello.pl
Normal file
31
Hello.pl
Normal file
@@ -0,0 +1,31 @@
|
||||
# Ny fil! Dette er "hils.pl"
|
||||
|
||||
package main; # Hoved-navnerommet heter "main", og trengs ikke <20>
|
||||
# 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 <20> importere symbolene fra
|
||||
Hello.pm, men da mister vi fordelen av <20> vite n<>yaktig hvilken pakke
|
||||
funksjonene h<>rer til i.
|
||||
Reference in New Issue
Block a user