perl回文数解析，比C容易多了

#!/usr/bin/perl -w

use v5.10;

@array = split "", shift @ARGV;
@array_1 = @array[0..($#array+1)/2-1];
@array_2 = reverse @array[($#array+2)/2..$#array];

print "Array: @array
";
print "@array_1
";
print "@array_2
";

就是有一点，下标不好算！