子程序与变量

[root@mysql1 perl]# cat 14.pl 
#!/usr/bin/env perl


sub marine {
  $n += 1;  # 全局变量$n
  print "hello, sailor number $n|\n";
}


sub marine1 {
  my $n += 1;
  print "hello, sailor number $n|\n";
}


&marine;
&marine;
&marine;
&marine;


&marine1;
&marine1;
&marine1;
&marine1;


[root@mysql1 perl]# ./14.pl   
hello, sailor number 1|
hello, sailor number 2|
hello, sailor number 3|
hello, sailor number 4|
hello, sailor number 1|
hello, sailor number 1|
hello, sailor number 1|
hello, sailor number 1|