🚀 go-pugleaf

Bogumila Zawistowska <zawistow@ibm.uci.agh.edu.pl> wrote:
: Pisze programik
: exec "nazwa hosta 80|tee nazwa_pliku";
: #aby zapisac wszelkie komunikaty programu do nazwa_pliku
: print"GET/index.html"

: wsszystko to dziala recznie , ale sesja telneta nie  nie czyta tego 
: co napisane po print

Ech... Przede wszystkim exec powoduje zastąpienie aktualnego procesu 
tym uruchomionym. Więc nic co jest po exec nie ma prawa się wykonać 
(chyba że exec się nie powiódł).

Po drugie - jeżeli chcesz pisać do procesu, to trzeba jakoś skierować
dane do jego STDIN. Najprościej zrobić to funkcją open, np. tak:

open( TELNET, "|telnet host 80" ) or die "$!";
print TELNET "GET /index.html";

ale to i tak niewiele da - po pierwsze trudno jest odczytać proces 
jednocześnie do pisania i czytania (ale da się - perldoc open2), a po
drugie to zupełnie bez sensu używać do tego telneta.

Najprościej będzie tak:

use IO::Socket;

my $sock = new IO::Socket::INET ( PeerAddr => "www:80",
                                  Proto => "tcp" );

die "$!" if ! defined $sock;

$sock->autoflush( 1 );

$sock->print( "GET / HTTP/1.0\n\n");

while(<$sock>) {
  print "->$_;
}

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND