Search     or:     and:
 LINUX 
 Language 
 Kernel 
 Package 
 Book 
 Test 
 OS 
 Forum 
 iakovlev.org 
      Languages 
      Kernels 
      Packages 
      Books 
      Tests 
      OS 
      Forum 
      Математика 
NEWS
Последние статьи :
  Тренажёр 16.01   
  Эльбрус 05.12   
  Алгоритмы 12.04   
  Rust 07.11   
  Go 25.12   
  EXT4 10.11   
  FS benchmark 15.09   
  Сетунь 23.07   
  Trees 25.06   
  Apache 03.02   
 
TOP 20
 Assembler...3017 
 Advanced Bash Scripting G...2677 
 Ethreal 4...2232 
 Secure Programming for Li...2018 
 CPAN-> FAQ...1810 
 Trees...1786 
 Alg1...1724 
 Ethreal 1...1666 
 Тренажёр...1637 
 Intel 386...1635 
 Go Web ...1629 
 Максвелл 3...1616 
 Ext4 FS...1609 
 William Gropp...1587 
 Rust...1571 
 Benchmark...1406 
 Go...1401 
 C + UNIX...1390 
 System...1277 
 Mod_parrot...1256 
 
  01.01.2025 : 3803065 посещений 

iakovlev.org

Get

  Нужно получить содержание какой-то страницы с какого-то сайта с помощью скрипта .
 Самое простое решение :
 #!/usr/bin/perl -w
 
 use CGI qw(:standard);
 use CGI::Carp qw(fatalsToBrowser);
 use Socket;
 
 print "Content-type: text/html\n\n";
 $host="www.iakovlev.org";
 $port="80";
 socket(SOCK_R_U,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
 $iaddr=inet_aton($host);
 $paddr=sockaddr_in($port,$iaddr);
 connect(SOCK_R_U,$paddr);
 send(SOCK_R_U,"GET /index.html HTTP/1.0
                User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
 			   Accept: text/html
 			   Referer:
 			   Host: $host\n\n",0);
 @lins=< SOCK_R_U>;
 print @lins;
 close(SOCK_R_U);
 exit();
 
 
 
    
Оставьте свой комментарий !

Ваше имя:
Комментарий:
Оба поля являются обязательными

 Автор  Комментарий к данной статье