On Tuesday, April 16, 2002, at 04:15 , David Gray wrote:
Another INSANE, but actually useful, illustration from Jenda:
{ how does he pop them out? }
>> Example:
>>
>> sub foo { (0,1,2,3,4,5,6,6,8,9) };
>>
>> (undef,undef,undef,undef,@a1) = foo();
>> @a2 = (foo())[4];
>>
>> pr
> > > Change this line
> > >
> > >($name, $aliases, $addrtype, $length, @addrs) =
> > > gethostbyname($host);
> > >
> > > To
> > >
> > >(undef, undef, undef, undef, @addrs) = gethostbyname($host);
> >
> > I think mine is prettier, at least (see below)... Is there a reason
> > why this
From: "David Gray" <[EMAIL PROTECTED]>
> > Change this line
> >
> >($name, $aliases, $addrtype, $length, @addrs) =
> > gethostbyname($host);
> >
> > To
> >
> >(undef, undef, undef, undef, @addrs) = gethostbyname($host);
>
> I think mine is prettier, at least (see below)... Is there a
> Change this line
>
>($name, $aliases, $addrtype, $length, @addrs) =
> gethostbyname($host);
>
> To
>
>(undef, undef, undef, undef, @addrs) = gethostbyname($host);
I think mine is prettier, at least (see below)... Is there a reason why
this might be considered "Better" than doing:
@
Anthony Beaman wrote:
>
> 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) = g
From:bob ackerman <[EMAIL PROTECTED]>
> daytime service reports the date on port 13 on unix boxes.
> no, you won't find it on NT.
I don't have NTs by hand by on Win2k Pro :
c:\> telnet localhost 13
11:08:28 PM 4/16/2002
Connection to host lost.
But you have to enable/ins
ject: 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
>
read
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]
>
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'
nf 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 Runn
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
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:[E
> 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 "
ember, I'm a beginner. :-) (no flaming!)
Thanks!
-Original Message-
From: David Gray [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 16, 2002 11:38 AM
To: [EMAIL PROTECTED]; Anthony Beaman
Subject:
> 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
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
16 matches
Mail list logo
