Ja mam "problem" z Perlem. Próbowałem się dziś nauczyć podstaw i nie jest źle, bo już umiem uruchamiać programy
Przymusiło mnie zadanko z technologii sieciowych.
Kod:
use HTTP::Daemon;
use HTTP::Status;
#use IO::File;
my $d = HTTP::Daemon->new(
LocalAddr => 'lukim',
LocalPort => 4321,
)|| die;
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
while (my $r = $c->get_request) {
if ($r->method eq 'GET') {
$file_s= "./index.html"; # index.html - jakis istniejacy plik
$c->send_file_response($file_s);
}
else {
$c->send_error(RC_FORBIDDEN)
}
}
$c->close;
undef($c);
}
Pytanie, jak to działa i dlaczego przy uruchomieniu wyskakuje błąd:
(nie, żebym nie rozumiał po angielsku, ale jaki powinien być ten adres?)
Jeśli Ktoś chciałby wytłumaczyć, jak mam zacząć i jak nawiązać połączenie za pomocą klientów i co powinien zawierać plik index.html... Byłbym bardzo wdzięczny 
Jeszcze klienci:
Kod:
use LWP::Simple;
$content = get("http://www.chip.pl/");
die "Couldn't get it!" unless defined $content;
print $content;
Kod:
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
#$ua->agent("$0/0.1 " . $ua->agent);
$ua->agent("Mozilla/8.0"); # pretend we are very capable browser
$req = HTTP::Request->new(GET => 'http://www.chip.pl');
$req->header('Accept' => 'text/html');
# send request
$res = $ua->request($req);
# check the outcome
if ($res->is_success) {
print $res->content;
}
else {
print "Error: " . $res->status_line . "\n";
}
Kod:
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
#$ua->agent("$0/0.1 " . $ua->agent);
$ua->agent("Mozilla/8.0"); # pretend we are very capable browser
$req = HTTP::Request->new(GET => 'http://www.google.pl/search?q=doom');
$req->header('Accept' => 'text/html');
# send request
$res = $ua->request($req);
# check the outcome
if ($res->is_success) {
print $res->content;
}
else {
print "Error: " . $res->status_line . "\n";
}
Z góry dziękuję za wszelkie wskazówki.