On Tuesday, April 16, 2002, at 11:18 AM, Anthony Beaman wrote:
> I did this and I'm now getting the following error: > > IO::Socket::INET: Unknown error at 415b.pl line 2 > Can't connect to daytime port at localhost at 415b.pl line 2. > > That's what I was getting last night (I changed various things and > compiled but got various errors each time). The problem, to me, lies with > the IO::Socket::INET statement (correct?). Any ideas? Thanks! > the daytime service has to be enabled. usually means uncommenting it in inetd.conf file. usually find it in /etc directory. > -----Original Message----- > From: bob ackerman [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, April 16, 2002 1:13 PM > To: [EMAIL PROTECTED] > Subject: Re: Errors Running Learning Perl in Win32 Scripts > > > On Tuesday, April 16, 2002, at 09:05 AM, Anthony Beaman wrote: > > > Thanks! I think your advice may apply to the following code > that I'm > > having trouble with: > > > > use Win32::NetAdmin; > > $username = Win32::LoginName; > > Win32::NetAdmin::UserGetAttributes("", $username, $password, > > $passwordage, $privilege, $homedir, $comment, $flags, > > $scriptpath); > > print "The homedir for $username is $homedir\n"; > > > > I tried this but got similar errors but I played with it and > tried to add > > the other "$"'s to the print statement but the only thing that > will print > > is the username (I'm logged onto NT Server 4 as Admin). > > > > Here's the other code that I'm having trouble with and it's > indicative of > > the problems that I'm having with the "IO::Socket::INET->new" > statement: > > > > use IO::Socket; > > $remote = IO::Socket::INET->new( > > Proto => "tcp"; > > PeerAddr => "localhost"; > > PeerPort => "daytime(13)", > > ) > > or die "Can't connect to daytime port at localhost"; > > while (<$remote>) {print} > > > > Now, I'm getting syntax errors: > > > > syntax error at 415b.pl line 3, near ""tcp";" > > syntax error at 415b.pl line 7, near ") > > " > > > > Any ideas? Remember, I'm a beginner. :-) (no flaming!) > > > > > > you want commas to separate list elements, not semicolons. > use IO::Socket; > $remote = IO::Socket::INET->new( > Proto => "tcp", > PeerAddr => "localhost", > PeerPort => "daytime(13)" > ) > > > Thanks! > > -----Original Message----- > > From: David Gray [mailto:[EMAIL PROTECTED]] > > Sent: Tuesday, April 16, 2002 11:38 AM > > To: [EMAIL PROTECTED]; Anthony Beaman > > Subject: RE: Errors Running Learning Perl in >Win32 Scripts > > > > > Hi! I have version 5.005_03 and I'm using the Win32 >version > > > of the Learning Perl book. I'm having trouble >running a few > > > scripts. For example, when I run the following: > > > > > > Exercise 16.1 > > > > > > foreach $host (@ARGV) { > > > ($name, $aliases, $addrtype, $length, @addrs) = > > > gethostbyname($host); > > > print "$host:\n"; > > > > > > foreach $a (@addrs) { > > > print join(".", unpack("C4", $a)), "\n"; > > > } > > > } > > > > > > ....I get the following errors: > > > > > > Name "main::name" used only once: possible typo at >415.pl > > > line 5. Name "main::length" used only once: possible >typo at > > > 415.pl line 5. Name "main::aliases" used only once: >possible > > > typo at 415.pl line 5. Name "main::addrtype" used >only once: > > > possible typo at 415.pl line 5. > > > > Those aren't errors, they're warnings which get >generated because > > you're > > (wisely) asking for them by either having a -w at the >end of the > > first > > line of your program or including the 'use warnings;' >pragma > > somewhere. > > Your program should run correctly if those are the >only > messages it > > generates. > > > > > What am I doing wrong? The scripts in the book are >supposedly > > > for this version but I'm having trouble with this >and similar > > > scripts. > > > > You shouldn't be declaring those variables as global >if > you're only > > going to be using them in that one specific block. You >don't even > > really > > need to get the values if you're not going to use >them. > Use instead: > > > > my @addrs = (gethostbyname($host))[4]; > > > > Hope that helps some, and please ask more specific >questions with > > relevant code attatched if I haven't answered what you > were wondering > > about. > > > > -dave > > > > > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
