From: Ahmet Tay (ahmettay@yahoo.com)
Date: Mon 05 Mar 2001 - 23:48:03 EET
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/