perl的函數原型例子

[root@rwsoda203db1 perl_tidb]# cat p.pl #!/usr/bin/perl use strict "subs"; use strict; use v5.16; use warnings; my @a = (1,2,3,4,5); sub push_item(+$){ my $local_a = shift @_; my $local_item = shi

>>阅读原文<<