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
";

다만 조금, 아래 표 시 는 계산 하기 어렵다!

좋은 웹페이지 즐겨찾기