Perl : Regular Expression

Question

몇 시간 동안 수색했는데 많은 자원을 발견했지만 내 목적을 위해 정보를 정리할 수는 없습니다. 나는 파일이 있습니다 :

FirstName LastName 
FirstName LastName 
FirstName LastName 
etc... 

학생들이 프레젠테이션을 통해 과제를 배정한 숙제입니다. 아래 99 %의 코드는 템플릿 스크립트의 99 %입니다. 내 기여가 들어오는 곳에 코멘트를 드리겠습니다. 모음으로 시작하여 텍스트 파일로 출력하는 모든 성을 찾아야합니다. 그것은 내가 생각하는 대부분의 문제를 "제 2 필드의 첫 번째 문자"로서의 정규 표현식을 알아내는 것으로 보입니다 - 물론 기본 Perl과 관련된 몇 가지 문제가 있습니다. 어떻게해야합니까? 이것은 정말로 많은 신용 가치가있는 것은 아니지만,이 문제를 해결하기 위해 열심히 노력하고 있습니다. 도움을 청합니다.

#!/usr/bin/perl 


    $input = 'names.txt'; 
    open ($info, $input) or die "Could not open $input"; 

    $output = 'hw.txt'; 
    open($fh, '>>', $output) or die "Could not open $output"; 

    @names = split(/\s/, $line); #MINE - probably wrong somehow 

    while(my $line = <$info>) { 

    if ($names[2] =~ /^AEIOU/){ #MINE - also probably wrong somehow 

     print $fh "$line"; 
     } 
    } 



    close $info; 
    close $fh; 

Answer 1

에서 시작, 당신은 필요가 없습니다 너무 실제로 코드보다 약간 더 안전

while(my $line = <$info>) { 
    if($line =~ /\s[AEIOU]/) { 
    print $fh $line; 
    } 
} 

때문에 경우가 '첫 선을 분할하는 대신 또한 인쇄에 "$line" 따옴표를 다시,하고, 당신은 단지 시작 매우에서 정규식 일치를 사용할 수 있습니다 두 배 공간이면 코드는 두 번째 배열 요소가 undef이됩니다 (다른 방법으로 완화 할 수 있음).

여담으로

, 나는 펄 여전히 숙제 :)의 대상이되는보고 매우 기쁘게 생각

Answer 2

많은 프로그래밍 언어처럼, 펄의 배열 인덱스는 당신이 당신의 대답을 가지고있는 것처럼 당신은 소리, 그러나 다만 완성도를 위해 당신은 또한 실제로 초기화되기 전에 $line를 사용하고 0