Thanks for all of the help. Is the book I'm using (Learning Perl on Win32) a decent book or should I find another? I mean, these scripts were implied to be NT friendly. Also, Should I drop off this list and find a Win32 Beginners list instead since I'm using NT exclusively? Anyone recommend one that's beginner friendly? Thanks for all the help! :-)
-----Original Message-----
From: bob ackerman [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 16, 2002 4:01 PM
To: [EMAIL PROTECTED]
Subject: Re: Errors Running Learning Perl in Win32 Scripts
On Tuesday, April 16, 2002, at 12:13 PM, Anthony Beaman wrote:
> Thanks!
> I can't find the file anywhere and I'm on NT. What would the name of
this
> be (or equivalent) be on NT? Plus, as a "FYI", what does this file
do?
> Thanks!
>
daytime service reports the date on port 13 on unix boxes.
no, you won't find it on NT.
i don't think there is a port setup on NT, so, that code won't work.
i guess i suggest trying to run two separate scripts with one as
server
and one as client and test sending text back and forth. there is a
thread
now on this list about bidirectional sockets.
> -----Original Message-----
> From: bob ackerman [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, April 16, 2002 3:02 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Errors Running Learning Perl in
Win32 Scripts
>
>
> 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]
>
>
--
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]
