From: A. Gurcan Ozturk (aozturk@basamak.net)
Date: Tue 06 Mar 2001 - 00:30:13 EET
$remote degiskeninizde typo hatasi var sadece :)
$remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>$server,
PeerPort=>"80", Reuse=>1) or die "Can not connect \"$server\"\n";
Kolay gelsin.
On Mon, 5 Mar 2001, Ahmet Tay wrote:
> Merhaba arkadaslar,
> Perl ile ugrasirken soyle bir hata aliyorum...
>
> Can't modify constant item in scalar assignment at ./x.pl line 10, near
> ""tcp","
> Execution of ./x.pl aborted due to compilation errors.
>
> Hata ne olabilir.?
> Aynen site'de verilen ornegi kullanmistim.?
>
> **************************
> ******* PROGRAM *******
> **************************
>
> #!/usr/bin/perl
> use IO::Socket;
> if ($#ARGV <1) { die "perl x.pl <server> <document>\n" }
> $server = $ARGV[0];
> $document = $ARGV[1];
> $remote = IO::Socket::INET->new(Proto="tcp",
> PeerAddr=>$server, PeerPort=>"80", Reuse=>1)
> or die "Can not connect \"$server\"\n";
> $remote->autoflush(1);
> print $remote "Get $document HTTP/1.0\n\n";
> while (<$remote>) { print }
> close $remote;
>
>
>
>
> Listeden cikmak icin:
> unsub linux
> mesajini listeci@bilkent.edu.tr adresine gonderiniz.
> Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin.
> Listeci arayuzu: http://listweb.bilkent.edu.tr/yardim/bilkent/linux.html
> Liste arsivinin adresi: http://listweb.bilkent.edu.tr/
>
Listeden cikmak icin:
unsub linux
mesajini listeci@bilkent.edu.tr adresine gonderiniz.
Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin.
Listeci arayuzu: http://listweb.bilkent.edu.tr/yardim/bilkent/linux.html
Liste arsivinin adresi: http://listweb.bilkent.edu.tr/