子程序与变量

2016-10-11 19:54:34来源:CSDN作者:g13731463274人点击

第七城市
[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|
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台