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
 Python...99 
 Trees...95 
 Intel 386...87 
 Secure Programming for Li...87 
 CPAN-> FAQ...83 
 Part 4...82 
 Linux Inline Assembly...69 
 Perl 4...55 
 Rust...53 
 String...52 
 Go...51 
 Intel 386 Manuals...50 
 MySQL & PosgreSQL...48 
 Httpd-> История Ap...46 
 Ext4 FS...46 
 2.0-> Linux IP Networking...46 
 B-trees...44 
 Part 2...41 
 C++ and STL...40 
 C++ Templates 2...39 
 
  01.11.2019 : 2806956 посещений 

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

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

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