2009/10/22 Anant Gupta <anantgupta...@gmail.com>: > Nopes, > It is the same > > The '-' minus sign was my mistake. > > I am using this on Red Hat Linux, but I am not the root user. > Will not being the root user make any difference?
No, it won't make any difference. This is probably quite frustrating for you, but I'm not sure what I can do if the code works on my machine. I suggest you try the following: * use warnings and use strict * make the code simpler and simpler while still exhibiting the error * post the *simplest* *complete* program which demonstrates your problem * also post, verbatim, your command-line session demonstrating you running the program on your system. For example, here is a command-line session from my machine, where I first show a complete program (using 'cat foo.pl') and then run the program, listing all errors. p...@teach:~/tmp$ cat foo.pl use strict; use warnings; $foo = 34; print "$foo\n"; p...@teach:~/tmp$ perl foo.pl Global symbol "$foo" requires explicit package name at foo.pl line 4. Global symbol "$foo" requires explicit package name at foo.pl line 5. Execution of foo.pl aborted due to compilation errors. p...@teach:~/tmp$ Doing it this way means we know: * EXACTLY what you are running, because you have shown us a complete program and not a snippet from the middle --- Note that if you post a snippet rather than a complete program, you run the risk that the error is not contained within the snippet. * What perl itself thinks of your program, because you have used strict and warnings * The EXACT wording of the error message on your system * What your program does on our systems, because we can copy and paste it onto our own machine If you do this, we will have a much better chance of helping you. Unfortunately, there are still no guarantees :( Philip > Thanks > > On Thu, Oct 22, 2009 at 4:33 PM, Philip Potter <philip.g.pot...@gmail.com> > wrote: >> >> 2009/10/22 Anant Gupta <anantgupta...@gmail.com>: >> > I wrote >> > >> > #!usr/bin/perl >> > use Socket; >> > use constant ADDR => 'www.google.com'; >> > my $name=shift || ADDR; >> > $packed=gethostbyname($name); >> > $dotted-inet_ntoa($packed); >> > print "DOtted Address is $packed"; >> > >> > but it is showing an error >> > "Bad argument length for Socket length in inet_ntoa" ??? >> > Help >> >> When I run your code, I don't get any such error. Are you sure that >> this is the code that produced the error? >> >> Further: >> > $dotted-inet_ntoa($packed); >> >> did you mean >> $dotted = inet_ntoa($packed); >> (you used a - minus sign instead of a = assignment operator) >> >> > print "DOtted Address is $packed"; >> >> did you mean >> print "Dotted Address is $dotted\n"; >> you were printing the wrong variable. >> >> With these changes, I get a dotted ip address which matches the output >> of "host www.google.com" >> >> Philip > > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/