<为爱走天涯>

摘要： #!/usr/bin/perl -wuse 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\n";print "@array_1\n";print "@array_2\n";就是有一点，下标不好算！ 阅读全文