関数の例 sub print_author { my $author = shift; my $date = shift; print “*****************************************\n”; print “ This work was done by $author\n”; print “*****************************************\n”; print “ Last update: $date\n”; } print_author(“Yukichi Fukuzawa”, “April 3.”); print_author(“Shigenobu Okuma”, “April 4.”);
© Copyright 2024 ExpyDoc