Perl 에서 array 에 insert 하기

splice 를 이용한다.
2번째 element 위치로 $s 를 insert 하려 한다면 다음과 같이 하면 된다.

 splice(@a, 2, 0, $s);  

여기서 세번째 argument인 0은 delete 할 element 의 수를 0으로 지정한 것이다.

splice 를 이용해서 n번째 라인에 스트링 추가하는 예제

 sub insertString_beforeLine
 {  
      my $s = shift;  
      my $n = shift;  
      my @a = split(/\n/, $source);  
      splice(@a, $n, 0, $s);  
      $source = join("\n", @a);  
 }