perl + 주석이 있는 줄을 무시하고 일치하는 단어가 있는 중복 줄을 제거합니다.

우리는 다음과 같은 Perl oneliner를 생성합니다. 일치하는 첫 번째 줄을 제외한 이중선을 제거하기 위해 구문의 두 번째 부분은 "#"으로 주석 처리된 줄을 무시하는 것입니다.

예:

# more /tmp/test

     # abra_kadabra

abra_kadabra
abra_kadabra


# perl -i -ne -e'next if /^#/; next if /abra_kadabra/ && ++$ok > 1; print' /tmp/test


# more /tmp/test

     # abra_kadabra

실제로 Perl 구문은 다음을 설정하더라도 주석 행을 무시하지 않습니다 next if /^#/1.

내 구문에 어떤 문제가 있는지 제안해 주세요.

예상 출력

# more /tmp/test

     # abra_kadabra

abra_kadabra

다른 예:

# more /tmp/test

     # abra_kadabra
#       abra_kadabra
abra_kadabra 1
abra_kadabra 2
abra_kadabra 3
abra_kadabra 4

예상 출력:

# more /tmp/test

     # abra_kadabra
#       abra_kadabra
abra_kadabra 1