Solved

Sockets

Posted on 1998-12-05
4
671 Views
Last Modified: 2010-05-18
Hello,
I've found this in a book, but can't get it to work.

Code:
open_SOCKET($server, 80);
sub open_SOCKET {
  my ($server, $port) = @_;
  $port = getservbyname($port, 'tcp') if $port !~ /^[0-9]/;
  socket SOCKET, AF_INET, SOCK_STREAM, 0 or die "open socket: $!";
  connect(SOCKET, sockaddr_in($port, inet_aton($server)));
}

Error:
Argument "SOCK_STREAM" isn't numeric in socket
Argument "AF_INET" isn't numeric in socket

Output:
open socket: Unknown Error: 0x0000273c

Martin
0
Comment
Question by:martinag
  • 2
  • 2
4 Comments
 
LVL 84

Expert Comment

by:ozo
ID: 1206765
Did you
 use Socket;
to get the proper definitions imported?

0
 
LVL 4

Author Comment

by:martinag
ID: 1206766
No I didn't...Claim you points, ozo.

But why weren't AF_INET and SOCK_STREAM undefined?

Martin
0
 
LVL 84

Accepted Solution

by:
ozo earned 50 total points
ID: 1206767
With
  no strict 'subs';
an undefiled bareword is treated as if it were a quoted string
(the -w switch will warn you about these)
0
 
LVL 4

Author Comment

by:martinag
ID: 1206768
Ok, thanks.

Martin
0

Featured Post

Does Powershell have you tied up in knots?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Perl efficient DB Call 8 87
perl script to check whether folder contains any files 5 83
create a gui in perl 3 88
read an xml file in perl 2 32
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
There are many situations when we need to display the data in sorted order. For example: Student details by name or by rank or by total marks etc. If you are working on data driven based projects then you will use sorting techniques very frequently.…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question