필자는 텍스트 파일의 특정 줄만 인쇄하는 데 도움이 필요합니다. (perl)

Question

저는 꽤 많은 답변을 얻었습니다.하지만 펄을 처음 접한 이래로 저는 제 문제를 설명하는 몇 가지 도움을 사용할 수있었습니다. 다른 스레드에서 답변을 취할 수없고 코드를 수정할 수 없습니다. 이 가능하며, How can I write only certain lines of a file in Perl?

그것은 같은 문제입니다,하지만 난 단지 "/"로 시작하는 라인을 작성하려는 :

내가 해결책을 찾는 데 있었다 가장 가까운을 찾는 데있어 가장 가까운이었다 가능하면 어떻게해야합니까?

어떤 도움을 주셔서 감사합니다. 미리 감사드립니다.

Answer 1

간단한 구현 보일 수 있습니다.

줄 시작 부분에 공백을 허용하려면 정규식을 /^[[:space:]]*\//으로 변경하십시오.

기본적으로 나머지 스크립트는 연결된 질문과 같습니다.

Answer 2

당신은 할 수 있습니다 :이 바로 선 (^)의 시작 후 /을 찾습니다

while (<>) { 
    print $_ if /^\//; 
} 

: 같은

use strict; 
use warnings; 

open my $fhi, '<', $input or die "Can not open file $input: $!"; 
while (<$fhi>) { 
    print $_ if m/^\//; 
} 

Answer 3

펄은이 목적을 위해뿐만 아니라 명령 줄에서 사용할 수 있습니다 :

$ perl -lne 'print if /^\//' input.txt > output.txt