Search     or:     and:
 LINUX 
 Language 
 Kernel 
 Package 
 Book 
 Test 
 OS 
 Forum 
 iakovlev.org 
 Languages
 С
 GNU С Library 
 Qt 
 STL 
 Threads 
 C++ 
 Samples 
 stanford.edu 
 ANSI C
 Libs
 LD
 Socket
 Pusher
 Pipes
 Encryption
 Plugin
 Inter-Process
 Errors
 Deep C Secrets
 C + UNIX
 Linked Lists / Trees
 Asm
 Perl
 Python
 Shell
 Erlang
 Go
 Rust
 Алгоритмы
NEWS
Последние статьи :
  Алгоритмы 12.04   
  Rust 07.11   
  Go 25.12   
  EXT4 10.11   
  FS benchmark 15.09   
  Сетунь 23.07   
  Trees 25.06   
  Apache 03.02   
  SQL 30.07   
  Python 10.06   
 
TOP 20
 Alg3...2143 
 Intel 386...782 
 Secure Programming for Li...682 
 Trees...661 
 Си за 21 день...577 
 2.0-> Linux IP Networking...575 
 Lists...568 
 Ethreal 1...568 
 Stein-MacEachern-> Час...562 
 Стивенс 1...554 
 Steve Pate 3...539 
 Ethreal 2...525 
 Rodriguez 6...500 
 Python...492 
 Стивенс 4...489 
 William Gropp...465 
 Advanced Bash Scripting G...456 
 Стивенс 5...427 
 Keogh 2...413 
 Комментарий...399 
 
  01.08.2020 : 2947670+ посещений 

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();
 
 
 
    
Оставьте свой комментарий !

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

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