hatalı oluşturulmuş başlık. Kötü başlık =: önceden
#!"C:\XAMPP\perl\bin\perl.exe" -T use strict; use warnings; use CGI; use CGI::Carp qw/fatalsToBrowser/; use WWW::Mechanize; my $q = CGI->new; my $url = 'http://www.youtube.com'; my $mechanize = WWW::Mechanize->new(autocheck => 1); $mechanize->get($url); my $page = $mechanize->content(); print $page;
Teşekkür: youtube_perl.pl,
İşte benim kaynak kodu!
@ user589294 - Hayır. Perl bunları yazdırabilir. Ancak geçerli bir HTTP yanıtı olmayacaklar. Yani, HTML sayfanızın HTTP üzerinden taşınmasını istiyorsanız, tam bir HTTP yanıtı yazdırmanız gerekir - Perl ile ilgisi yoktur – DVK
Elbette Perl, HTML sayfalarını başlıksız yazdırabilir! Yine de, bir başlık yazdırmadan bir CGI betiği yazamazsınız. Daha iyi: 'print $ q-> header();'. Bakınız [perldoc CGI] (http://perldoc.perl.org/CGI.html). – mscha
HTTP söz konusu olduğunda EOL yerine '\ n' yerine' \ x0D \ x0A' kullanmalısınız. HTTP, satırların CR-LF ile sonlandırılması gerektiğini belirtirken, \ n, şu anki ortamınız için çizgi işaretçisinin sonudur, \ n 'sadece sizin için \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ . –