perl 명령 줄을 사용하여 디렉토리의 모든 파일에 줄을 추가하는 방법

Question

디렉토리의 모든 파일 시작 부분에 줄을 추가하고 싶습니다.

perl -i.bkp -p -e 'print "#include top_level.reset\n" if $. == 1' *.reset 

그러나이 명령은 디렉토리의 첫 번째 파일 만 업데이트합니다. $.이 다음 파일로 재설정되지 않기 때문입니다.

모든 파일을 수정하는 방법.

Answer 1

ls -1 *.reset | xargs -n 1 perl -i.bkp -p -e 'print "#include top_level.reset\n" if $. == 1' 

Answer 2

정확합니다. @ARGV를 처리 할 때 파일간에 재설정되지 않습니다. perlvar을 참조하십시오. EOF에서 ARGV를 명시 적으로 닫음으로써이 문제를 해결할 수 있습니다 (eof 참조). 그러나 나는 그 파일을 반복하기 위해 셸을 사용하는 대신 귀찮은 일이 없을 것입니다 :

for f in *.reset; do perl -i.bkp -p -e 'print "#include top_level.reset\n" if $. == 1' $f; done