perlnote5

#!/usr/bin/perl -w use strict; =head this section describe subroutines; =cut =head1 1 defination   sub subroutine (arg1, arg2, ...) {         args are stored in reserved array: @_;         so count of args is $#_;       return value;   }   if no return, perl defalt return the last statement's value;   subroutine can access the global vars;   subroutine will use the local var when its name is the same as global; 2 call   &subroutine VS. subroutine: either is right, but if there is the same   subroutine name in perl built-in lib, use "subroutine" to call the   built-in function while use "&subroutine" to call the user-defined one; =cut my $var1 = "global_var1"; print "sub1's return value is: ", &sub1, "/n"; print "sub2's return value is: ", &sub2, "/n"; my @array = (23, 54, 12, 64, 23); print "diff return: ", &diff(@array), "/n"; sub sub2 {     my $var3 = 7; }     sub sub1 {     my $var1 = "sub1_my_var1";     print "var1=$var1/n"; } sub diff {     my $min=$_[0];     my $max=$_[0];     for (@_) {     $min = ($_>=$min ? $min : $_);     $max = ($_>=$max ? $_ : $max);     }     return $max-$min; }