Perl socket

I cant find mistake in following code:

re: Perl socket

First, you don't have the "use strict" and "use warnings" pragmas at the beginning of your code. Without those there to do away with the little errors, most people won't look at your code.

Second, you haven't exactly told us what error you are receiving.

Third, you may want to also chomp() the input for the $port variable.

Lastly, please place any and all code that you put in your post into code tags. Doing so takes some of the work off of our friendly neighborhood moderators that have to clean up posts. (If you don't know how to use code tags, simply look at the "Reply Guidelines" next to your posting message window.)

Regards,

Jeff

re: Perl socket

Sorry, I am new on this forum.

and about program: it just print "0".

re: Perl socket

Now mind you, I have zero experience working with sockets, but I notice in your code that you are doing the 'connect' and then using the same connect statement in an if as a test. Are you trying to see if its connected?

I don't think that that will work the way you have it because I doubt that the connect statement returns anything beyond the connection. I think a better way to do this would be to say:

That will do the connection for you, but if it doesn't work, it will run the die statement and the "$!" will print the error that was produced.

Regards,

Jeff

re: Perl socket

No errors. So... I made it?

re: Perl socket

I would say.

Jeff

re: Perl socket

I would also chomp() $port to be safe:

$port=<STDIN>;
chomp($port);

re: Perl socket

Yeah, that was the third thing I suggested. Hopefully he did it.

re: Perl socket

Ahh.... I missed that.