검색 패턴이 Perl로 종료되지 않았습니다.

Question

이 검색 패턴을 디버깅하려고 시도했지만 오류가 종료되지 않았지만 각 루프마다 내 것으로 추측됩니다. 종료되지 않았습니다. 내 코드 하단의 마지막 줄은 160 행입니다. 아무도 내 코드에서 무엇이 잘못되었는지에 대한 힌트를 줄 수 있습니까? 선택 결과의 각 머리글을 인쇄하고 각 행의 각 데이터를 인쇄하여 CGI 페이지에 인쇄하려고합니다.

C : \ XAMPP의 \의 CGI - bin에> 펄 create_report.cgi create_report.cgi 줄에서 종료되지 검색 패턴 (160)

foreach $rpt_sel_output(@desc_origin) 
{ 
($rptid, $servid, $rptcat_id, $desc, $remail_add, $remail_info, $ent_usr, $ent_dte, $up_usr, $up_dte, $fav)=split(",",$rpt_sel_output); 
if($rptid eq 'ReportID') #header rows 
{ 
print"<tr>/n"; 
print"<th>$rptid</th>"; 
print"<th>$servid</th>"; 
print"<th>$rptcat_id</th>"; 
print"<th>$desc</th>"; 
print"<th>$remail_add</th>"; 
print"<th>$remail_info</th>"; 
print"<th>$ent_usr</th>"; 
print"<th>$ent_dte</th>"; 
print"<th>$up_usr</th>"; 
print"<th>$up_dte</th>"; 
print"<th>$fav</th>"; 
print"<tr/>/n"; 
print"</table>/n"; 
next; 
} 
print"<tr>/n";# data from select that was outputed 
print"<td>$rptid</td>"; 
print"<td align 'right'> $servid</td>/n"; 
print"<td align 'right'> $rptcat_id</td>/n"; 
print"<td align 'right'> $desc</td>/n"; 
print"<td align 'right'> $remail_add</td>/n"; 
print"<td align 'right'> $remail_info</td>/n"; 
print"<td align 'right'> $ent_usr</td>/n"; 
print"<td align 'right'> $ent_dte</td>/n"; 
print"<td align 'right'> $up_usr</td>/n"; 
print"<td align 'right'> $up_dte</td>/n"; 
print"<td align 'right'> $fav</td>/n"; 
print"<tr/>/n"; 
} 
} 
print"</table>/n"; 


print"<<FOOTER/n"; 
    </body> 
print</html>FOOTER; 

Answer 1

당신은 하단에 해당 인쇄 문 주위에 따옴표를 놓치고있어. 그들은 다음과 같아야합니다 :

print"<<FOOTER/n"; 
print "</body>"; 
print "</html>FOOTER"; 

아직 그렇지 않다면, 하이 라이터 구문을 가진 편집기를 사용해야합니다. 그들은 이런 문제를 분명히 지적합니다.

검색 패턴에 대해 오류가 발생하는 이유는 / 문자가 정규 표현식 (또는 검색 패턴)을 정의하기 시작했기 때문입니다.

Answer 2

당신은 단순히 인쇄를 그리워 ... 적이없는 당신은? 이 함께 스크립트를 완료해야합니다

print"<FOOTER />\n"; 
print"</body>"; 
print "</html>"; 

Answer 3

이것은 무엇입니까? 당신의 오류 거짓말 ..

Answer 4

난 당신이 인용 히어 닥 스타일을 위해 노력하고 생각하는 곳

</body> 
print</html>FOOTER; 

아마 이것은이지만, 다음과 같아야합니다

print <<FOOTER; 
</body> 
</html> 
FOOTER 

는 당신을 저장합니다 lot of print statements;) 변수 보간이 필요한 경우 heredoc 끝 토큰을 큰 따옴표 (print <<"FOOTER";)로 지정하십시오. 토큰을 단일 따옴표로 붙이면 보간을 방지합니다 (@daxim에 의해 지적됨). heredoc에 대한 자세한 내용은 perlop 또는 JFGI를 참조하십시오.