[root@mysql1 perl]# cat 23.pl
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use 5.010;
sub marine {
my $n += 1;
print "hello, sailor number $n!\n";
}
sub marine1 {
state $n=0;
$n+=1;
print "hello,sailor1 number $n!\n";
}
&marine();
&marine();
&marine();
&marine1();
&marine1();
&marine1();
[root@mysql1 perl]#
[root@mysql1 perl]#
[root@mysql1 perl]# ./23.pl
hello, sailor number 1!
hello, sailor number 1!
hello, sailor number 1!
hello,sailor1 number 1!
hello,sailor1 number 2!
hello,sailor1 number 3!
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use 5.010;
sub marine {
my $n += 1;
print "hello, sailor number $n!\n";
}
sub marine1 {
state $n=0;
$n+=1;
print "hello,sailor1 number $n!\n";
}
&marine();
&marine();
&marine();
&marine1();
&marine1();
&marine1();
[root@mysql1 perl]#
[root@mysql1 perl]#
[root@mysql1 perl]# ./23.pl
hello, sailor number 1!
hello, sailor number 1!
hello, sailor number 1!
hello,sailor1 number 1!
hello,sailor1 number 2!
hello,sailor1 number 3!