파일 에디트용 스크립트 질문

#!/usr/bin/perl

$removeLineWord   = "System.out.println";

foreach (@ARGV){
	$filein = $_;
	$fileout = "$filein.out";	
	open(i,"<$filein") || die "Can't open $_ ";
	open(o, ">$fileout");
	
	while (!eof(i)) {
	$line = <i>;
        if ( $line =~ /$removeLineWord/ ){
    	}else{
      		print o "$line"; 
        }
    }	
    close(o);
    close(i);
}

p.s. 간단하게 짠거라 좀 허접합니다.
그리고 파일은 .out 붙여서 출력되게 했습니다.

동일 파일에 쓰게 하려면 프로그램이 좀 다른 형태가 됩니다.

( 일괄적으로 치환하는것에 바로쓰는것은 별로 권장하지 않습니다만
이경우도 필요하면 올려드리죠.)

p.s . sed, xargs 를 사용한 버젼을 가르쳐드리고 싶은데 실력이 모지
라네요