perl的上下文例子

[root@rwsoda203db1 perl_tidb]# cat p.pl #!/usr/bin/perl use strict "subs"; use strict; use v5.16; my @files; $files[0]='a.txt'; $files[1]='b.txt'; $files[2]='c.txt'; $files[3]='d.txt'; print "@files

>>阅读原文<<