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
Последние статьи :
  Rust 07.11   
  Go 25.12   
  EXT4 10.11   
  FS benchmark 15.09   
  Сетунь 23.07   
  Trees 25.06   
  Apache 03.02   
  SQL 30.07   
  JFS 10.06   
  B-trees 01.06   
 
TOP 20
 Trees...564 
 Go Web ...356 
 Python...179 
 Rubni-Corbet -> Глав...167 
 2.0-> Linux IP Networking...158 
 Steve Pate 3...148 
 Stein-MacEachern-> Час...143 
 Стивенс 9...133 
 Mike Perry...127 
 Daniel Bovet 2...127 
 Secure Programming for Li...124 
 Advanced Bash Scripting G...123 
 Rubni-Corbet -> Глав...122 
 Stevens-> Глава 4...121 
 Rubni-Corbet -> Глав...119 
 Stewens -> IPC 7...118 
 Ethreal 4...115 
 Stewens -> IPC 9...115 
 Rodriguez 6...111 
 Rubni-Corbet -> Глав...110 
 
  01.12.2017 : 2356398 посещений 

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

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

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