Examples for Chapter 3 written in Perl 5 (#71)
* Create 01_countdown.pl Recursion example #1 written in Perl 5 * Create 02_greet.pl Recirsion example #2 written in Perl 5 * Create 03_factorial.pl Recursion example #3 written in Perl 5
This commit is contained in:
23
03_recursion/perl5/02_greet.pl
Normal file
23
03_recursion/perl5/02_greet.pl
Normal file
@@ -0,0 +1,23 @@
|
||||
sub greet2 {
|
||||
|
||||
my $name = shift;
|
||||
|
||||
print "how are you, $name ?\n";
|
||||
}
|
||||
|
||||
sub bye { print "ok bye !\n"; }
|
||||
|
||||
sub greet {
|
||||
|
||||
my $name = shift;
|
||||
|
||||
print "hello, $name !\n";
|
||||
|
||||
greet2($name);
|
||||
|
||||
print "getting ready to say bye...\n";
|
||||
|
||||
bye();
|
||||
}
|
||||
|
||||
greet('adit');
|
||||
Reference in New Issue
Block a user