perl IO

andox · 06-27-2003, 06:33 AM

#!/usr/bin/perl

use IO::Socket;

$local = IO::Socket::INET->new(proto=>"TCP", localport=>"23", Listen=>"1")
or die "error can't open socket\n";

# wait for connection and create a new handle

$remote = $local->accept;
$remote->autoflush(1);

while (<$remote>) { print }
close $local, $remote;

I got this code off a site but it doesn't work when i tried to connect.
there's no compile error.. but when it's running nothin happens. and when i do try to connect from my other computer via telnet.. it doesn't work.

andox · 06-27-2003, 06:38 AM

another question.. wat does "->" do? and wat about "my"?
same with "asomatos" the site i went i found this has no explanations.

lackluster · 06-27-2003, 08:11 AM

you're asking basic perl questions. go read an introductory tutorial.

andox · 06-27-2003, 01:40 PM

i did!!

coolman0stress · 06-28-2003, 11:50 AM

"my" is used to create lexically scoped variables, ie local variables that get destroyed as soon as you reach the closing braces of the block where they were created.
Normally without any modifier perl creates global variables, you can specifically create them using "our". There are also dynamic variables ("local"), which act like "my", but can be used by functions called within the block.

Correct me if i am wrong as i haven't done much perl lately...