[12460] in Perl-Users-Digest
Perl-Users Digest, Issue: 6060 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 19 19:07:34 1999
Date: Sat, 19 Jun 99 16:01:30 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 19 Jun 1999 Volume: 8 Number: 6060
Today's topics:
Re: Parsing bug in Perl? (Abigail)
Password protecting scripts. . . (Jonathan Chum)
Re: pattern match by column (Abigail)
Re: Perl and artificial intelligence. <gellyfish@gellyfish.com>
Re: Perl and artificial intelligence. dwolfe5272@my-deja.com
Re: perlcc in Unix <jukka.juslin@cern.ch>
Re: Personal Rant (was Re: Does Perl have a future?) (Kai Henningsen)
Re: Printing compound variables (?) <cassell@mail.cor.epa.gov>
Re: Printing compound variables (?) <gellyfish@gellyfish.com>
Re: Recommend a simple Online database? <cassell@mail.cor.epa.gov>
Re: replacing part of a tab-delimited string <cassell@mail.cor.epa.gov>
Re: simple question about array <gellyfish@gellyfish.com>
Re: Simple question <revjack@radix.net>
Re: Simple question <gellyfish@gellyfish.com>
Sort <splinter@monmouth.com>
Re: Sort <rick.delaney@home.com>
Re: Sorting a text file. <gellyfish@gellyfish.com>
Using Boulderio in CGI.pm syurman@spatialfocus.com
Re: What is functional difference between .pm and .pl? (Abigail)
Re: Win32::NetAdmin::UserChangePassword <cassell@mail.cor.epa.gov>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Jun 1999 11:38:51 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Parsing bug in Perl?
Message-Id: <slrn7mnhsh.lri.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXVIII September MCMXCIII
in <URL:news:376d59d1.2015253@news.skynet.be>:
!! Sean McAfee wrote:
!!
!! >NNTP-Posting-Date: Sat, 19 Jun 1999 04:05:47 EDT
!!
!! I don't believe this. Are you guys really posting in the middle of the
!! night? Tom Phoenix's reply dates from 2 AM local time. Jesus. Over here,
!! it's almost 11 AM, so for me, it's, er, "natural".
The Perl Community never sleeps.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 19 Jun 1999 20:42:52 GMT
From: jchum@jps.net (Jonathan Chum)
Subject: Password protecting scripts. . .
Message-Id: <376c0031.8864958@news.jps.net>
I have a NT server which I need to password protect the cgi admin
scripts. What i use is the method and program found at:
http://www.getscript.com/logon.shtml
Is there a way so that the script can handle users who are logged on
with different IP addresses at the same time? It seems, it rewrites
over the file eveytime a successful password is entered.
------------------------------
Date: 19 Jun 1999 11:26:34 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: pattern match by column
Message-Id: <slrn7mnh5l.lri.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXVIII September MCMXCIII
in <URL:news:377045d4.3446378@news.skynet.be>:
~~ Abigail wrote:
~~
~~ >s/^(.{79})0101/${1}9999/;
~~
~~ Doesn't work if one of the first 79 characters is a newline. Er... I
~~ *think* that's the only exception.
That's the *ENTIRE POINT* of not using /s. He wanted to change something
in the 80th - 83rd column. Now, if there would be a newline in column 52,
the next character would be in column 1, not column 53, wouldn't it?
Besides, we are looping over single lines anyway....
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 19 Jun 1999 21:19:58 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl and artificial intelligence.
Message-Id: <7kh1hu$4i5$1@gellyfish.btinternet.com>
On Sat, 19 Jun 1999 12:30:14 -0700 David Cassell wrote:
>
> If it's so artificial, then why does it keep asking us how
> to use a variable name to call another variable name?
>
I can't remember HAL9000 saying "I'm sorry Dave, I dont think you want
to use a symbolic reference", but of course I might be wrong.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 19 Jun 1999 21:35:36 GMT
From: dwolfe5272@my-deja.com
Subject: Re: Perl and artificial intelligence.
Message-Id: <7kh2f8$2t6$1@nnrp1.deja.com>
In article <376AFCA9.A4EE3ECD@inetnebr.com>,
ktb <xyf@inetnebr.com> wrote:
> Hi, I've been searching for something on the net about artificial
> intelligence using the Perl language. Most of the programs seem to be
> in 'C' and other languages I haven't heard of. I'm new to programming
> but I thought it would be fun to mess around with this.
Kent,
I don't know about perl AI tools, but perhaps you've heard of SOAR, an
agent-based system that uses Tcl? In case you haven't, the home page
is:
http://bigfoot.eecs.umich.edu/~soar/
I wouldn't be surprised if someone, somewhere, has ported this to work
with perl. (If they haven't yet, it's almost certain to be in the
works...)
Hope this helps.
--
*-*-*-*-*-*-*-*-*-*-*-*-*
Dave Wolfe
gForce Technologies Inc.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Sat, 19 Jun 1999 23:43:38 +0200
From: Jukka Juslin <jukka.juslin@cern.ch>
Subject: Re: perlcc in Unix
Message-Id: <376C0F0A.C7E71F9C@cern.ch>
> I found perlcc in Win32 but didn't find it in my Linux,
> is it available?
>
> if not, is there any command to translate perl script to c source
> file????
Perl to C compiler is bundled with the Perl 5.005 UNIX release. Your
scripts won't be
any faster after compilation and you will lose the Open Source idea.
Anyway if you edit the C code you can get it work e times faster than
pure Perl code (according to Tom Christiansen) =). Please correct that
e-coefficient if it was wrong.
This does what you want:
$ perl -MO=CC,-ofoo.c foo.pl
++Jukka
http://www.hut.fi/~jtjuslin
------------------------------
Date: 19 Jun 1999 16:47:00 +0200
From: kaih=7JA-b2pHw-B@khms.westfalen.de (Kai Henningsen)
Subject: Re: Personal Rant (was Re: Does Perl have a future?)
Message-Id: <7JA-b2pHw-B@khms.westfalen.de>
cassell@mail.cor.epa.gov (David Cassell) wrote on 17.06.99 in <3769662B.E2D7F515@mail.cor.epa.gov>:
> Daniel Grisinger wrote:
> > Watcher <watcher_q@my-deja.com> writes:
> > > Of course, Sun would say that they are the best. Which company won't?
> > > Sun is course worried. If Java slips on the server side, its
> > > importance will greatly diminished in the enterprise space. Then, the
> > > only place that Java would exist would be in the device space (eg Jini,
> > > etc).
> >
> > It should be pointed out that the device space is larger than all
> > other application spaces combined.
>
> Which is why they're making a grab for it. As is IBM, and...
... Cygnus (gcc for various exotic processors), and Linux (various
embedded versions), and ...
Kai
--
http://www.westfalen.de/private/khms/
"... by God I *KNOW* what this network is for, and you can't have it."
- Russ Allbery (rra@stanford.edu)
------------------------------
Date: Sat, 19 Jun 1999 13:09:53 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Printing compound variables (?)
Message-Id: <376BF911.16AF42CE@mail.cor.epa.gov>
Abigail wrote:
>
> vectorcalculus@my-deja.com (vectorcalculus@my-deja.com) wrote on MMCXVII
> [all that junk snipped]
>
> Is there a reason to ask a question that gets asked 27 times a week
> in this group, and that's answered in the FAQ *TWICE*?
I'm afraid so. I have heard from some people who were
thanking me for answering their questions without roasting
their posteriors off, and I learned that:
[0] many of these posters don't have the docs;
[1] many of them don't have their own copy of Perl, just
inadequate access to that of their ISP/webhost;
[2] many of them don't know that there *is* a FAQ;
[3] many of them don't know how to behave on Usenet, or even
that Usenet is some sort of separate entity;
[4] many of them don't know what deja.com is, much less how
to use it;
[5] many of them have never programmed before, and hence have
no idea that there might be a better way than
$$fred = 23;
...
To quote a movie teaser: "Be afraid. Be very afraid."
> Or are you just plain stupid?
Clue-challenged. These people are programming neonates,
and so they don't get it when we insist that they walk before
they run. They just think, "Walk? What's that? Can someone
show me how to do that?"
I think we need to point more people toward the beginner
tutorials on the web. Errm, I mean the *correct* beginner
tutorials on the web.
TomC's FMTEYEWTK tutorials are great, but they're *way*
beyond the programming levels of these newbies. I've been
pointing newbies at www.netcat.co.uk/rob/perl/win32perltut.html
but if you know of better ones...
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 19 Jun 1999 22:35:25 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Printing compound variables (?)
Message-Id: <7kh5vd$4ju$1@gellyfish.btinternet.com>
On Sat, 19 Jun 1999 13:09:53 -0700 David Cassell wrote:
> Abigail wrote:
>>
>> vectorcalculus@my-deja.com (vectorcalculus@my-deja.com) wrote on MMCXVII
>> [all that junk snipped]
>>
>> Is there a reason to ask a question that gets asked 27 times a week
>> in this group, and that's answered in the FAQ *TWICE*?
>
> I'm afraid so. I have heard from some people who were
> thanking me for answering their questions without roasting
> their posteriors off, and I learned that:
> [0] many of these posters don't have the docs;
But if they are using Perl then they should have access to the docs but ..
> [1] many of them don't have their own copy of Perl, just
> inadequate access to that of their ISP/webhost;
But it has to be assumed that they have a computer that will run Perl
thus they can install it and thus they will have the documentation.
They shouldnt be trying to create programs without having any way to test
them.
> [2] many of them don't know that there *is* a FAQ;
So how did they find their way to this group then ...
> [3] many of them don't know how to behave on Usenet, or even
> that Usenet is some sort of separate entity;
But there is news.announce.newusers - of course they have never heard of it.
Then the system administrator of whatever system they are on is negligent
in not ensuring they are subscribed to that group - or perhaps the
authors of their newsreader is negligent in not pointing them toward that.
> [4] many of them don't know what deja.com is, much less how
> to use it;
But half these lusers are actually posting from there - and the other half
would have seen the URL in the <ahem> sig of the first half. Theres no
excuse for that I'm afraid.
> [5] many of them have never programmed before, and hence have
> no idea that there might be a better way than
> $$fred = 23;
I first started programming twenty years ago and admittedly the hurdles
where a little higher then - none of this stuff would have come up then
I guess - but I learnt the virtues of design, of paper testing (yes it
was actually *expensive* to debug online). I spent six months learning
a paper machine language before I went near putting it on a computer.
Then came BASIC and everything slipped ...
>
> To quote a movie teaser: "Be afraid. Be very afraid."
>
Yes if these are the future of computing. (But of course they arent)
>> Or are you just plain stupid?
>
> Clue-challenged. These people are programming neonates,
> and so they don't get it when we insist that they walk before
> they run. They just think, "Walk? What's that? Can someone
> show me how to do that?"
>
Then they need to learn to *program* not 'Program in Perl', they need
to know what the enterprise is about not just how to make the right moves
so they'll get away with it, they need to be able to break down a problem
into its constituent parts - I guess they dont have flowchart stencils in
school stationers anymore. I'm not suggesting that they should all read
'The Art of Computer Programming' (hey - I got to it fairly late ...)
but there should be some basic level of understanding before they start.
I dont know of any basic resource at this level that they can be pointed
at.
As someone pointed out in a thread a while back we are beset with a breed
of people who are essentially designers who believe that 'Perl Scripting'
is simply another facet of that design thing - there are no rules: if you
are able to express it then you can do it - meanwhile (to quote a dead
rock star) 'the whole shithouse goes up in flames'.
Bear in mind also that in less than six months we will be beset by hordes
of these punks saying 'I think this is a bug in PERL - my guestbook is
showing a date of 03/01/19100' ...
Just my 2p worth
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 19 Jun 1999 13:14:55 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Recommend a simple Online database?
Message-Id: <376BFA3F.B66581D9@mail.cor.epa.gov>
Abigail wrote:
> [snippage]
> AFAIK, there's no way to bring a database offline in a graceful way.
I like to kick the network connection loose with my back foot
while executing a perfect tour jete. Very graceful, IIDSSM.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sat, 19 Jun 1999 13:56:20 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: replacing part of a tab-delimited string
Message-Id: <376C03F4.AF9BE542@mail.cor.epa.gov>
JQ wrote:
> [snip of first question, which has been answered]
>
> I have gone through perlre, perlop and FAQ without success.
Well, that's far more than many posters. Good for you.
> Also, is there a good online source that covers regular expressions?
You've already been directed to TomC's missive
http://language.perl.com/all_about/regexps.html
but if that's a denser exposition than you wanted, you can
check out the regex part of this Perl tutorial:
http://www.netcat.co.uk/rob/perl/win32perltut.html
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 19 Jun 1999 21:38:13 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: simple question about array
Message-Id: <7kh2k5$4je$1@gellyfish.btinternet.com>
On Sat, 19 Jun 1999 19:44:20 GMT Rick Delaney wrote:
> [posted & mailed]
>
> Jonathan Stowe wrote:
>>
>> I dont believe that 'Learning Perl' says that the range operator work
>> on anything but integers - of course I might be wrong in that. Nonetheless
>> the range operator dont work on anything but integers.
>
> Of course, _Learning Perl_ and Jonathan are not always right. When in
> doubt, consult the docs that come with perl. From perlop:
>
Of course I should have qualified that with 'in a numerical context' - I
meant that it didnt work in any meaningful way on non integer numbers.
But yes I'm not always right, but I am pretty sure that Learning Perl
doesnt say that (6.1 .. 99.3) will produce anything but a bunch of integers.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 19 Jun 1999 20:53:15 GMT
From: Serpens Mayo <revjack@radix.net>
Subject: Re: Simple question
Message-Id: <7kgvvr$bt$3@news1.Radix.Net>
Keywords: Hexapodia as the key insight
David Efflandt explains it all:
:This subroutine will set REMOTE_HOST if it is not set or equals
:REMOTE_ADDR. However, some IP's will not resolve (they have no name):
:sub remhost {
: return if ($ENV{REMOTE_HOST}
: && $ENV{REMOTE_ADDR} ne $ENV{REMOTE_HOST});
: my $ip_num = pack("C4", split(/\./, $ENV{REMOTE_ADDR}));
: $ENV{REMOTE_HOST} = scalar gethostbyaddr($ip_num, 2);
:}
I'll be danged. I thought you had to 'use Socket' for gethostbyaddr() to
work. Thank you for posting this code.
------------------------------
Date: 19 Jun 1999 23:00:33 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Simple question
Message-Id: <7kh7eh$4tp$1@gellyfish.btinternet.com>
On 19 Jun 1999 20:53:15 GMT Serpens Mayo wrote:
> David Efflandt explains it all:
>
> :This subroutine will set REMOTE_HOST if it is not set or equals
> :REMOTE_ADDR. However, some IP's will not resolve (they have no name):
>
> :sub remhost {
> : return if ($ENV{REMOTE_HOST}
> : && $ENV{REMOTE_ADDR} ne $ENV{REMOTE_HOST});
> : my $ip_num = pack("C4", split(/\./, $ENV{REMOTE_ADDR}));
> : $ENV{REMOTE_HOST} = scalar gethostbyaddr($ip_num, 2);
> :}
>
> I'll be danged. I thought you had to 'use Socket' for gethostbyaddr() to
> work. Thank you for posting this code.
No gethostbyaddr is a Perl builtin - however if you want to avoid using
a hard coded constant or wish to use a helper function such as inetaton
that will ensure that the translation between a character representation
of an IP address is done properly in face of a change in the underlying
representation (I'm thing IPv6 here ) you should use Socket.pm. Socket.pm
is part of the standard Perl distribution - if you are unable to use then
the perl that you are using is simply broken and should be reinstalled.
I dont understand why there should be any resistance against using Socket.pm
- would you similarly rail against including 'sys/socket.h' in a C
program that was doing the same thing ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 19 Jun 1999 18:17:05 -0400
From: "Matt" <splinter@monmouth.com>
Subject: Sort
Message-Id: <7kh50g$7ac$1@news.monmouth.com>
Hi,
I ran a sort on a series of numbers...specifcally
100, 101, 123, and 55
They were in the order 101, 100, 123, 55
After they were sorted: 100, 101, 123, 55
Why didn't the 55 come first?
I did look in the perldoc and the perlfaq but I couldn't find it...sorry if
it may still be in there.
-Matt
------------------------------
Date: Sat, 19 Jun 1999 22:53:10 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Sort
Message-Id: <376C1F19.2475EB1D@home.com>
[posted & mailed]
Matt wrote:
>
> After they were sorted: 100, 101, 123, 55
>
> Why didn't the 55 come first?
>
> I did look in the perldoc and the perlfaq but I couldn't find it...sorry if
> it may still be in there.
Which perldoc? If you need to know how to use the sort function, you
need to look it up in the document where it is, er, documented. The
sort function is documented where all functions are, perlfunc.pod.
A quick way to get at it is
perldoc -f sort
The answer is right there.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 19 Jun 1999 21:28:48 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Sorting a text file.
Message-Id: <7kh22g$4jb$1@gellyfish.btinternet.com>
On Thu, 17 Jun 1999 17:51:02 GMT news.boeing.com wrote:
> I am using ActiveState PERL on NT under IIS4. My text file has 7 fields
> separated by ' ; ' . I use to use the command
> open(CONFG, "sort -k5 '-t;' $dataname |"); under UNIX PERL, but under
> ActiveState it does not.
>
> Is this handled another way? If so, how can I sort my text file?
>
NT does have a sort command of sorts but it is nowhere as effective as the
Unix one. You might want to read the page on sorting at :
<http://language.perl.com>
You can of course obtain a Windows port of GNU sort from a variety of places.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 19 Jun 1999 21:45:12 GMT
From: syurman@spatialfocus.com
Subject: Using Boulderio in CGI.pm
Message-Id: <7kh316$32f$1@nnrp1.deja.com>
I'd like to use Boulder.pm with input from CGI.pm. Each works fine
separately, but a call to new Boulder::Store gets ignored every time.
My error_log file returns the following message:
Can't call method "write_record" on an undefined value at
/home/httpd/cgi-bin/form_test3.cgi line [whereever I tried to write
the record].
I'm hoping someone will have experience with this, or will know a better
place to post. Sample code below.
TIA,
Sara
*********************This works!******************************
#!/usr/bin/perl
use Stone;
use Boulder::Store;
my $stone = new Stone;
$stone->insert(name=>'Sara');
print br;
my $store=new Boulder::Store("boulder",true);
print "\$store=".$store."\n";
$store->write_record($stone);
exit(0);
It prints the results nicely, and obediently writes out boulder.data and
boulder.index.
**************This gives the hated error message*******************
#!/usr/bin/perl
use CGI qw(:standard);
use Stone;
use Boulder::Store;
print header;
print start_html('A Simple Example'),
h1('A Simple Example'),
start_form,
"What's your name? ",textfield('name'),
submit,
end_form,
hr;
if (param()) {
my $stone=new Stone;
$stone->insert(name=>(param('name')));
print $stone->asTable;
my $store=new Boulder::Store("boulder",true);
print br;
print "\$store=".$store."\n";
$store->write_record($stone);
}
print end_html;
$stone prints nicely, but the attempt to print $store gives only
"$store =". I was expecting something like HASH0x.....
No boulder.data or boulder.index. And the httpd log complains
as noted above.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 19 Jun 1999 11:17:41 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: What is functional difference between .pm and .pl?
Message-Id: <slrn7mngl1.lri.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXVIII September MCMXCIII
in <URL:news:376b7ead.274679@news.skynet.be>:
[] Abigail wrote:
[]
[] >Where did I say my editor does syntax highlighting? I don't need that.
[] >I know what I type.
[]
[] So what does "editor mode" mean, if it's not syntax highlighting?
[] Keyword completion?
Simple. Autoindent. Shiftwidth setting to 4 spaces. Extra level of indent
on next line if current line ends with {. Auto alignment if new line starts
with }.
It just makes typing code easier. I don't need syntax highlighting, I
already know Perl.
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 19 Jun 1999 13:40:25 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Win32::NetAdmin::UserChangePassword
Message-Id: <376C0039.E6FADCA3@mail.cor.epa.gov>
Mike Stone wrote:
>
> Hi,
> I am having problems getting an error message out of the following copule
> lines of code:
>
> use Win32::NetAdmin;
> Win32::NetAdmin::UserChangePassword("domain","user","oldpwd","newpwd");
> print Win32::FormatMessage Win32::GetLastError;
>
> My problem is that it always returns "The command Completed Successfully".
> It doesn't matter if I enter an invalid username, invalid domain, a wrong
> old password.
I believe I read about some sort of glitch with this, but the
text was in the Perl-Win32-users listserv I think. You can
subscribe to it by going to
http://www.activestate.com/support/mailing-lists.htm .
> Perl Verison 5.005_02, my NetAdmin module is version 0.06.
> Is there a more recent version of the NetAdmin?
If there is, it ought to be at Dave Roth's website.
http://www.roth.net/
And even if it isn't the answer to your initial question
may be there.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 6060
**************************************
