67291c451f
* 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
24 lines
269 B
Perl
24 lines
269 B
Perl
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');
|