perl回文数解析,比C容易多了时间:2023-03-08 21:16:53 #!/usr/bin/perl -w use v5.; @array = split "", shift @ARGV; @array_1 = @array[..($#array+1)/2-1]; @array_2 = reverse @array[($#array+2)/2..$#array]; print "Array: @array\n"; print "@array_1\n"; print "@array_2\n"; 就是有一点,下标不好算!