0
팬이 초보자 질문에 대한 죄송합니다 WWW : : : : 파이어 폭스 기계화 : 열지 않은 파일 핸들에
을 인쇄()를 정지 디버깅-시도를하지만, 내가 알아야 할 구글에서 찾을 수 없습니다. 무엇이 뜻 이죠 - 나는 잘 ....http://www.unifr.ch/sfm
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 2.
http://www.zug.phz.ch
인내심을 가져 주셔서 감사합니다.
처음부터 시작합니다. 웹 사이트의 스크린 샷을 작성한이 스크립트를 실행합니다. mozrepl을 여기에 있습니다. 요청한 URL이있는 파일이 있습니다 ... 참고하시기 바랍니다. 실제 목록의 짧은 미리보기 - 실제 목록은 훨씬 더 길다. 그것은 출력 3500 개 이상의 라인 및 URL
http://www.unifr.ch/sfm
http://www.zug.phz.ch
http://www.schwyz.phz.ch
http://www.luzern.phz.ch
http://www.schwyz.phz.ch
http://www.phvs.ch
http://www.phtg.ch
http://www.phsg.ch
http://www.phsh.ch
http://www.phr.ch
http://www.hepfr.ch/
http://www.phbern.ch
http://www.ph-solothurn.ch
http://www.pfh-gr.ch
http://www.ma-shp.luzern.phz.ch
http://www.heilpaedagogik.phbern.ch/
무슨 이상한입니다 포함 - 아래 참조 ... 질문 : 나는 스크립트
을 변경해야 왜 내가 GE는 다음과 같은 작은 스크립트로 출력 ! :
는/usr/빈/
use strict;
use warnings;
use WWW::Mechanize::Firefox;
my $mech = new WWW::Mechanize::Firefox();
open(INPUT, "<urls.txt") or die $!;
while (<INPUT>) {
chomp;
print "$_\n";
$mech->get($_);
my $png = $mech->content_as_png();
my $name = "$_";
$name =~s/^www\.//;
$name .= ".png";
open(OUTPUT, ">$name");
print OUTPUT $png;
sleep (5);
}
는 여기에서 볼 펄 잘 압도적 인 출력 - 내가 thught 같은 재미 OU를 얻을 필요가 없습니다 솔직하기 잘 -firstly, 나는 이것이 매우 아니라고 생각 : tput을 .. 내가 아니라 내가 오류를 얻기 위해 많이 노력했다
http://www.unifr.ch/sfm
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 2.
http://www.zug.phz.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 3.
http://www.schwyz.phz.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 4.
http://www.luzern.phz.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 5.
http://www.schwyz.phz.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 6.
http://www.phvs.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 7.
http://www.phtg.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 8.
http://www.phsg.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 9.
http://www.phsh.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 10.
http://www.phr.ch
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 11.
http://www.hepfr.ch/
print() on closed filehandle OUTPUT at test_3.pl line 20, <INPUT> line 12.
http://www.phbern.ch
몇 가지 묵상을 제거, 아래 참조 .... 전체 코드를 디버깅해야 심각한 오류 - 나는 그것을 디버그해야한다고 생각하고 그것은 더 잘 작동합니다. 둘째로, 나는 처음에 스크립트가 "컴퓨터에 과부하가 걸린 것"으로 보인다고 생각했습니다. 이제는 그것에 대해 확신이 서지 않습니다. 증상이 이상하게 보일 수도 있지만 "기계의 과부하"를 결론 지을 필요가 없다고 생각합니다. 셋째, 확실하게 수행해야 할 특정 단계를 생각합니다. 문제는 WWW :: Mechanize :: Firefox와 관련이 있습니다. 이것은 Perl 경고의 의미와 진단 플러그인을 사용하여 더 많은 설명을 얻으려는 아이디어로 이어집니다. 어떻게 생각하십니까?
print() on unopened filehandle FH at -e line 1 (#2) (W unopened) An I/O operation was attempted on a filehandle that w +as never initialized.
음 - 대안 인쇄 (- 우리가) 전화를() (A sysopen) (개방, 또는 너무 + cket을, 또는
아니라 파일 핸들 패키지에서 생성자를 호출 할 필요가) close filehandle OUTPUT에 대해서도 우리는 autodie를 사용하지 않았고 open의 리턴 값을 체크하지 않았다는 것을 알려줄 많은 답을 준다. 나는 그것을 디버깅해야하고 어디서 오류가 발생하는지 찾아야합니다.
미안합니다.이 초보자 질문은 유감 스럽지만 Google에서 알아야 할 것을 찾을 수는 없습니다. 내가 인쇄를 이해하지만이 이해가 안 ...