#!/usr/bin/perl -w@students = qw/Doreen Oskar Elin Sangeet Malin/;&next_student;&next_student;sub next_student {$i++;print "the next student is $students[$i]\n";
}
the next student is Oskar
the next student is Elin
#!/usr/bin/perl -w@students = qw/Doreen Oskar Elin Sangeet Malin/;&next_student;&next_student;sub next_student {$i++;print "the next student is $students[$i]\n";
}
the next student is Oskar
the next student is Elin
转载于:https://www.cnblogs.com/liuhui0622/p/5024476.html
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/419225.shtml
如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!