[8869] in Perl-Users-Digest
Perl-Users Digest, Issue: 2486 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 3 21:06:21 1998
Date: Sun, 3 May 98 18:00:27 -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 Sun, 3 May 1998 Volume: 8 Number: 2486
Today's topics:
Re: "use strict" complains about GetOptions variables (Martien Verbruggen)
Re: ANNOUNCE: Perl Builder IDE Now Available <merlyn@stonehenge.com>
Complete Newbie - Where do I start? <brian.archer@mailexcite.com>
Re: Complete Newbie - Where do I start? <btate@primary.net>
Re: Complete Newbie - Where do I start? (Jonathan Stowe)
Re: date problem (Martien Verbruggen)
Re: How do I print an array in the format I want it? <merlyn@stonehenge.com>
Re: malformed header? <webmaster@fccjmail.fccj.org>
Re: matching problem (Martien Verbruggen)
Re: NEED HELP WITH SYNTAX (Martien Verbruggen)
Re: perl and Year 2000 (Martien Verbruggen)
Perl Error Free (Was Re: ANNOUNCE: Perl Builder IDE Now <webmaster@fccjmail.fccj.org>
perl win32 - newbie help <dcc1234@pacific.net.sg >
Re: regex help - Follow-up <webmaster@fccjmail.fccj.org>
Re: Strange problem. <webmaster@fccjmail.fccj.org>
Re: Strange problem. <btate@primary.net>
Re: Strange problem. <btate@primary.net>
Re: Thank you Solutionsoft (Martien Verbruggen)
Re: traverse a hash <jdf@pobox.com>
where is html file servred from <wshakle@idt.net>
Re: Win32 reading in passwords (Martien Verbruggen)
Re: Win32 reading in passwords (Michael Rubenstein)
Win32::EventLog : brother, can you spare a second? patrick.mannion@us.socgen.com
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 May 1998 23:38:01 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: "use strict" complains about GetOptions variables
Message-Id: <6iiv4p$n78$5@comdyn.comdyn.com.au>
In article <354978A4.D9829380@ibm.net>,
John Bossert <jbosser@ibm.net> writes:
> If I (per the Perl Bibles) specify "use strict;", perl complains about
> the "$opt_foo" variables I'm
> referencing within a GetOptions() call.
>
> How should I declare these variables so as to get past the "strict"
> enforcement? TIA.
Maybe you forgot to instantiate $opt_foo? Where is your code?
Doesn't the following work:
#!/usr/local/bin/perl -w
use strict;
use Getopt::Long;
my $opt_foo;
GetOptions("foo=s" => \$opt_foo);
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 04 May 1998 00:44:35 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: gb@hugo.westfalen.de (Georg Bauer)
Subject: Re: ANNOUNCE: Perl Builder IDE Now Available
Message-Id: <8cu376sw50.fsf@gadget.cscaper.com>
>>>>> "Georg" == Georg Bauer <gb@hugo.westfalen.de> writes:
>> Of course, there's no way to always get the colors correct unless you have
>> an error-proof way of parsing Perl - which no one has yet invented. :-)
Georg> Makes me wonder how Perl does it, then.
The things I'm pointing out about parsing Perl are *completely*
knowable to /bin/perl, because /bin/perl understands the semantics of
Perl as well as the syntax. They just aren't knowable to anything
that can't do a complete semantic emulation.
For example:
BEGIN { eval "sub foo ()" }
foo / 3 ; # / ; # This is function foo, divided by 3
That's correctly parsed by /bin/perl because /bin/perl can execute the
eval code to get the right prototype for foo when we get there, where
something that *cannot* eval Perl code will be stuck guessing that
it's a function with args, yielding a passing of / 3 ; # / to that
function. Not at all the same.
And while this is a trivial example, that BEGIN-eval combo is just an
open-coded form of what "use" does. And all non-trivial programs use
"use".
So, Perl syntax depends on prior-seen Perl semantics. And until you
get an "editor" that knows all of Perl semantics, any hope at a
completely accurate syntax-assist is gone.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 120 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Tue, 05 May 1998 00:15:11 +0100
From: Arch <brian.archer@mailexcite.com>
Subject: Complete Newbie - Where do I start?
Message-Id: <354E4BFF.F78BB084@mailexcite.com>
I hope someone can point me in the right direction....
I want to learn Perl primarily to use at work.The only person where I
work who knows Perl is leaving, but isn't replaced. A lot of Perl
programs will be left behind, and I've been given the job of taking
over.
My programming skills are a little rusty - I was a decent "hobbyist"
machine code programmer a few years ago, but the need and the interest
wore thin.
Can anyone please tell me a good book to buy, or offer me any other good
advice?
I need to be up to speed in about three weeks!
Many thanks in anticipation.
Brian Archer.
------------------------------
Date: Sun, 3 May 1998 18:25:20 -0500
From: "Bob Tate" <btate@primary.net>
Subject: Re: Complete Newbie - Where do I start?
Message-Id: <354cfd0b.0@news.primary.net>
Arch,
There are many good books, reference guides and FAQ's that it might be hard
to point you to one that is "good" for you and your needs. What platform
are you developing PERL in? That might narrow the list down some. As for
me, I program on a SUN UNIX machine using Solaris 2.5 with Perl 5. One of
the books that I use as a good reference tool is "The Perl 5 Programmer's
Reference" the ISBN # is "1-56604-750-1". As far as where to go and how to
start also depends on your programming style. If you are more of an
engineer, then you will most likely want to locate and read every tidbit of
info on Perl before you even attempt coding. If you are more like a
"Hacker", like myself, then you will most likely want to dive in as soon as
you can, making plenty of mistakes and learning by trial and error. Both
approaches to programming have there good and bad points of which I will not
go into at this time. If you are more the "Hacker" then I recommend that
first setup a test machine for which you can experiment on with out the fear
of destroying live info. If you do not have a machine that you can do this
on then you may wish to go the route that I took. Like you, many months ago
I took had the need to learn Perl in the shortest possible time. I took it
upon myself to subscribe to an ISP that provided me with a website and
allowed me access to Perl. This way you can set up a test area to learn on.
3 weeks is a short time to learn Perl in but not impossible.
Bob
Arch wrote in message <354E4BFF.F78BB084@mailexcite.com>...
>I hope someone can point me in the right direction....
>
>I want to learn Perl primarily to use at work.The only person where I
>work who knows Perl is leaving, but isn't replaced. A lot of Perl
>programs will be left behind, and I've been given the job of taking
>over.
>
>My programming skills are a little rusty - I was a decent "hobbyist"
>machine code programmer a few years ago, but the need and the interest
>wore thin.
>
>Can anyone please tell me a good book to buy, or offer me any other good
>advice?
>I need to be up to speed in about three weeks!
>
>
>Many thanks in anticipation.
>
>Brian Archer.
>
------------------------------
Date: Sun, 03 May 1998 23:48:15 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Complete Newbie - Where do I start?
Message-Id: <354d0119.773618@news.btinternet.com>
On Tue, 05 May 1998 00:15:11 +0100, Arch wrote :
>I hope someone can point me in the right direction....
>
>I want to learn Perl primarily to use at work.The only person where I
>work who knows Perl is leaving, but isn't replaced. A lot of Perl
>programs will be left behind, and I've been given the job of taking
>over.
>
<snip>
The most excellent and comprehensive documentation should be available
with every Perl distribution. Assuming you have access to a command
prompt on the system on which perl is installed you can type:
perldoc perldoc
To get the hang of things.
A table of contents of all available documentation on your system can
be had with:
perldoc perltoc
You might find the documents with names beginning "perlfaq" useful -
these are the FAQ (Frequently Asked Questions) about Perl and the
answers thereof
The documentation is also available in a variety of formats to suit
the majority of tastes.
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: 4 May 1998 00:37:13 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: date problem
Message-Id: <6ij2jp$nm8$2@comdyn.comdyn.com.au>
How exactly does this have anything to do with perl modules?
In article <354CFBD1.3FF7@swipnet.se>,
Nils-Roger Edvardsson <nr.edv@swipnet.se> writes:
> I have this string :
>
> $date_command = "/usr/bin/date";
>
> In my guestbook were the date shall show up, I get this instead :
>
> - $date_command +"%A, %B %d, %Y at %T (%Z)
>
> Hmm, what is wrong ?
How are we supposed to know? You probably alter your 'string'
somewhere else. Run the thing in the debugger or something. grep your
code for 'date_command'. Do the usual things one does when a problem
occurs: DEBUG.
I really don't need this on a monday morning.
Martien
PS. Followup set. I wanted to set it to alt.dev-null first, but oh
well..
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 04 May 1998 00:47:42 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: How do I print an array in the format I want it?
Message-Id: <8cpvhusvzt.fsf@gadget.cscaper.com>
>>>>> "Jonathan" == Jonathan Stowe <Gellyfish@btinternet.com> writes:
Jonathan> Or for that added piquancy (but no doubt far slower):
Jonathan> join ".",map sprintf ("%03d",$_), split '\.',$ip;
Nearly exactly what I had just before I hit send, and then decided
against it.
You get -1 point for using ' ' on the arg to split, however. It's
misleading to the newbies. The arg to split is *always* a regex.
*Always* (except when you have " " :).
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 120 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 03 May 1998 23:41:33 GMT
From: Bill 'Sneex' Jones <webmaster@fccjmail.fccj.org>
Subject: Re: malformed header?
Message-Id: <354CFEF2.7F5C7CDB@fccjmail.fccj.org>
~arthur wrote:
>
> Hi,
> Anyone know why I get the ole' malformed header message when i try and
> get the following program on the net. the problem is O"Reilly's llama
> book, Learning Perl page 190-----
> #!/usr/bin/perl -w
> #cgi-bin/ice_cream:program answer-generate icecream
> #order form (version 4)
> use strict;#enforce variable declarations and quoting
> use CGI qw(:standard);
>
> print header, start_html("Ice Cream Stand"), h1("Ice Cream Stand");
> if (param()) {
> } else {
> }
> print end_html
> } else {
> }
I would say you have too many elses or not enough ifs.
-Sneex-
____________________________________________________________________________
Bill Jones | FCCJ Webmaster | Voice 1-904-632-3089 | Fax 1-904-632-3007
Florida Community College at Jacksonville | 501 W. State St. | Jax, FL 32202
mailto:webmaster@fccjmail.fccj.org | http://webmaster.fccj.org/Webmaster
------------------------------
Date: 3 May 1998 23:45:25 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: matching problem
Message-Id: <6iivil$n78$6@comdyn.comdyn.com.au>
In article <1998050218434300.OAA18533@ladder01.news.aol.com>,
belg4mit@aol.com (Belg4mit) writes:
> just clarify I usually use [] for something like [bcfhmprsv]at
>
> which should match: bat, cat...,no?
> so that's where I slipped and was under the impression it denoted an optional
> clause/expression
That's not optional. It just means 'one of those characters'. In other
words: you create a character class. That character class will match
_one_ of the characters in it. You can make it 'optional' by using ?.
[abc] matches a or b or c
[abc]? matches a or b or c, 0 or 1 times (which is closer to
'optional')
It is important to use the right terminology when you try to convey
ideas to other programmers. It is already too easy to misunderstand
someone's meaning. You can find out more about correct terminology by
reading documentation.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 3 May 1998 23:22:35 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: NEED HELP WITH SYNTAX
Message-Id: <6iiu7r$n78$3@comdyn.comdyn.com.au>
Subject: Re: NEED HELP WITH SYNTAX
Don't shout.
Please read the following information on how to choose a good subject
line:
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
In article <35478DA2.EFB25FAD@niu.edu>,
Teodoro Cipresso <tcipress@niu.edu> writes:
> descrip1 and descrip2 are the input names for textboxes on my website
> I'm getting an error when I use the following if statements to check
> if the boxes are empty.
>
> Can anyone help me with the syntax? I got these if statments to work
> with
> list boxes but I get an error with text boxes.
If you get a syntax error, you should pay attemtion to what perl tells
you. Run the bloody thing from the command line. Use the -w and -c
flags.
And format your code, so you can actually read it. Don't put more than
one statement on a line.
> if ($in{'descrip1'} eq "" && $CHECK ==1) {
> $MIS8='You Forgot To Fill Out The Problem Description Box';
> $pderror='y'; error='y';}
^^^^^
perl tells me that this is where the error
originates.
Martien
PS. And please, please, read the following:
Perl CGI FAQ and (no offense) Idiot's guide:
http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.com/CPAN/doc/FAQs/cgi/perl-cgi-faq.html
Section 9 of the perl FAQ:
# perldoc perlfaq9
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 3 May 1998 23:14:19 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: perl and Year 2000
Message-Id: <6iitob$n78$1@comdyn.comdyn.com.au>
In article <Pine.GSO.3.96.980429131947.19984P-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@teleport.com> writes:
> In fact, I was also able to find the answer with a couple of other search
> engines. Then I looked in the perl docs for the word "2000" and found it
> even faster. Maybe we need to put the answer in even more obvious places,
> though - If your favorite search engine doesn't list it already, see if
> you can get it to index a URL leading to the Perl FAQ. Thanks!
More obvious?
Maybe perl should print out a list of documentation to read every time
it runs. Maybe it should do that horrible 'tip of the day' thing.
Naw. People will just have to learn to actually use the tools and
documentation available.
Martien
Tip of the day: perl comes with lots of documentation, and a tool to
read it. Try typing 'perldoc perl' or 'perldoc perldoc' from your
command line.
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Sun, 03 May 1998 23:36:25 GMT
From: Bill 'Sneex' Jones <webmaster@fccjmail.fccj.org>
Subject: Perl Error Free (Was Re: ANNOUNCE: Perl Builder IDE Now Available)
Message-Id: <354CFDBF.AF760A32@fccjmail.fccj.org>
Tom Phoenix wrote:
>
> On Fri, 1 May 1998, Georg Bauer wrote:
> > Makes me wonder how Perl does it, then.
>
> Perl isn't error-free! :-)
>
At least now their attention is directed away from the Perl Y2k issue;
automagically by slight of hand :-)
-Sneex-
____________________________________________________________________________
Bill Jones | FCCJ Webmaster | Voice 1-904-632-3089 | Fax 1-904-632-3007
Florida Community College at Jacksonville | 501 W. State St. | Jax, FL 32202
mailto:webmaster@fccjmail.fccj.org | http://webmaster.fccj.org/Webmaster
------------------------------
Date: 4 May 1998 00:11:56 GMT
From: "DAVID CHEW" <dcc1234@pacific.net.sg >
Subject: perl win32 - newbie help
Message-Id: <01bd76ee$fe4a0600$25bb15a5@default>
hi,
How do I call/run/execute the programs created
on perl win32 ?
Can I execute it from nescape itself
I mean, like as though I on the internet,
and my local computer acting as a server.
As I dont regularly visit this newsgroup
Would appreciate if replies goes direct to
my email dcc1234@pacific.net.sg
Thanks
DAVID
------------------------------
Date: Sun, 03 May 1998 23:49:45 GMT
From: Bill 'Sneex' Jones <webmaster@fccjmail.fccj.org>
Subject: Re: regex help - Follow-up
Message-Id: <354D00DE.4BCB3E8D@fccjmail.fccj.org>
Ronald J Kimball wrote:
> [That message hasn't shown up on my news server yet, so I'll reply to it here.]
That's cool :-)
> I'm not sure what you mean by "all matches return an extra character".
>
> If you just want the substring matched by (identifier), use $2. Or, if you're
> doing the match in a list context and only want to get the substring matched
> by (identfier), then change (^|[^.]) to (?:^|[^.]).
>
> > print $strTest =~ /(^|[^.][^.])(\.)/, "\n";
The (^| <---- This isn't an OR is it? and the
(^|[^.]) portion returns an extra character before matched
character as well as the matched character, right? So long
as the match wasn't at the beginning of the string?
So, (^|[^.][^.]) will return TWO characters before the
matched text as well as the matched text?
???
-Sneex- :-)
____________________________________________________________________________
Bill Jones | FCCJ Webmaster | Voice 1-904-632-3089 | Fax 1-904-632-3007
Florida Community College at Jacksonville | 501 W. State St. | Jax, FL 32202
mailto:webmaster@fccjmail.fccj.org | http://webmaster.fccj.org/Webmaster
------------------------------
Date: Sun, 03 May 1998 23:56:13 GMT
From: Bill 'Sneex' Jones <webmaster@fccjmail.fccj.org>
Subject: Re: Strange problem.
Message-Id: <354D0262.9D9A2A86@fccjmail.fccj.org>
[Please do not post MIME here]
> Bob Tate wrote:
>
> open(FILE,"FTR.TXT");
You should check your returns for errors...
> mkdir($filedate,777); # Make the director to store the info in
Shouldn't that be 0777 ???
> chmod (0777,"$filedate/$prn.dat");
Shouldn't that be 0755 ??? Maybe it was confused by your umask?
(Prolly set to 022...)
HTH,
-Sneex- :-)
____________________________________________________________________________
Bill Jones | FCCJ Webmaster | Voice 1-904-632-3089 | Fax 1-904-632-3007
Florida Community College at Jacksonville | 501 W. State St. | Jax, FL 32202
mailto:webmaster@fccjmail.fccj.org | http://webmaster.fccj.org/Webmaster
------------------------------
Date: Sun, 3 May 1998 19:00:56 -0500
From: "Bob Tate" <btate@primary.net>
Subject: Re: Strange problem.
Message-Id: <354d0563.0@news.primary.net>
Bill, have have done all that and I still get error # 550: no such file or
directory. This can not be as I see a valid directory list with all the
correct permissions and file sizes. Very strange.
Bob
------------------------------
Date: Sun, 3 May 1998 19:09:53 -0500
From: "Bob Tate" <btate@primary.net>
Subject: Re: Strange problem.
Message-Id: <354d077d.0@news.primary.net>
Bill,
I think I just discovered my error and as I suspected, it was operator error
<sheepish grin>. the file that I am getting the PRN from is a 7-digit
field. All my PRN's are 6 or less digits thereby making at least the first
field a blank, which Perl does not like as the leading character in a file
name.
Bob
------------------------------
Date: 3 May 1998 23:18:00 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Thank you Solutionsoft
Message-Id: <6iitv8$n78$2@comdyn.comdyn.com.au>
In article <6i85ae$6ku$1@rznews.rrze.uni-erlangen.de>,
dr.pc@t-online.de (Dr. Fridemar Pache) writes:
> To marty@solutionsoft.com
> Re: ANNOUNCE: Perl Builder IDE Now Available
If that is the person you want to send it to, why did you send it to
comp.lang.perl.misc? Doesn't email work for you?
> Thank you Marty,
> just got your email (attached with the Perl IDE I suppose),
> As I've never dared to open a binary {{un}secure} email-attachment, I
> hesitate to open this marvel. Do you or other readers know a save
> procedure to overcome this.
> Best wishes
> Fridemar
If you're afraid to open it, delete it. Otherwise it will just eat up
disk space.
If you want to have a play with it, save it, and see what it is. If
you're afraid of running it on your machine, run it on another one, or
make yours a dual boot one.
What's the problem anyway? Would you be less afraid if you got it off
the web? Then go and download it on the advertised place.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 03 May 1998 19:12:20 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: traverse a hash
Message-Id: <pvhudhcr.fsf@mailhost.panix.com>
ask@cs.nospam.netcetera.dk (Ask Bjoern Hansen) writes:
> Tom Phoenix <rootbeer@teleport.com> wrote:
>
> > foreach is not the best way to
> > traverse a hash - using each within a while loop is generally better.
>
> Why is that? (if it's not a faq)
I didn't see the top of this thread, so I'm not sure what Tom was
referring to (whether he means foreach (keys %hash) or foreach
(%hash)), but I've good answers for both:
foreach (%hash) is simply nonsensical, as you'd be examining a key,
then a value, then a key, then a value, without knowing which is
which.
foreach (keys %hash) is suboptimal because it first dumps all of the
keys of %hash into a list. If the hash is itself very large, or is
tied to a potentially huge disk file, you could create a memory
crisis. The each iterator does not create a temporary list, and is
thus safe for large and tied hashes.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Sun, 03 May 1998 19:08:46 -0400
From: Warren Shaklee <wshakle@idt.net>
Subject: where is html file servred from
Message-Id: <354CF8FD.9F99C12B@idt.net>
Hello,
I have a perl script that dynamically creates a page with an image
and two java applets, the page is served from my ISP correctly except
that the java applets can not be found. The html docs are in the /docs
directory and the perl script and the jhva .class files are in a bin
directory at the same level as the /docs directory. When the page is
served the .class file can not be found I've tried codebase = "./",
"/docs", "/docs/" and placed the .class file in the root directory the
bin directory and the docs directory but the html page output from the
script can never find the applet. If anyone has any suggestions I would
greatly appreciate it.
Thanks
------------------------------
Date: 3 May 1998 23:31:44 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Win32 reading in passwords
Message-Id: <6iiup0$n78$4@comdyn.comdyn.com.au>
In article <35537c4b.40221004@nntp.ix.netcom.com>,
miker3@ix.netcom.com (Michael Rubenstein) writes:
> On 1 May 1998 06:50:40 GMT, mgjv@comdyn.com.au (Martien Verbruggen)
> wrote:
>># perldoc perlfaq8
>>/How do I ask the user for a password?
>>[read, read, read]
>>
>>Martien
>>
>>PS. Which of the above steps weren't you able to do yourself?
>
> Perhaps it was a step he did do that you forgot: notice that the
> answer given in the FAQ will not work under WIN32.
BZZZZZT, you are wrong.
# perldoc perlfaq8
/password
[snip]
You can also do this for most systems using the Term::ReadKey
module from CPAN, which is easier to use and in theory more
portable.
[snip]
>From the README of Term::ReadKey:
This module, ReadKey, provides ioctl control for terminals and Win32
consoles so the input modes can be changed
This probably means that The FAQ DOES answer the question for Win32
platforms, doesn't it?
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 04 May 1998 00:28:35 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: Win32 reading in passwords
Message-Id: <355408c6.197757159@nntp.ix.netcom.com>
On 3 May 1998 23:31:44 GMT, mgjv@comdyn.com.au (Martien Verbruggen)
wrote:
>In article <35537c4b.40221004@nntp.ix.netcom.com>,
> miker3@ix.netcom.com (Michael Rubenstein) writes:
>> On 1 May 1998 06:50:40 GMT, mgjv@comdyn.com.au (Martien Verbruggen)
>> wrote:
>
>>># perldoc perlfaq8
>>>/How do I ask the user for a password?
>>>[read, read, read]
>>>
>>>Martien
>>>
>>>PS. Which of the above steps weren't you able to do yourself?
>>
>> Perhaps it was a step he did do that you forgot: notice that the
>> answer given in the FAQ will not work under WIN32.
>
>BZZZZZT, you are wrong.
>
># perldoc perlfaq8
>/password
>[snip]
> You can also do this for most systems using the Term::ReadKey
> module from CPAN, which is easier to use and in theory more
> portable.
>[snip]
>
>From the README of Term::ReadKey:
>
>This module, ReadKey, provides ioctl control for terminals and Win32
>consoles so the input modes can be changed
>
>This probably means that The FAQ DOES answer the question for Win32
>platforms, doesn't it?
You mean the Term::ReadKey that has not instructions for installing
under the Activestate Win32 port of perl? If there's a way to install
it under Activestate, I can't find it.
Please forgive my error in omitting that I was referring to the
Activestate port. ReadKey does work using native perl.
--
Michael M Rubenstein
------------------------------
Date: Sun, 03 May 1998 19:44:43 -0600
From: patrick.mannion@us.socgen.com
Subject: Win32::EventLog : brother, can you spare a second?
Message-Id: <6ij31r$524$1@nnrp1.dejanews.com>
I picked up the llama book for the first time two years ago, and only
recently has an opportunity to use perl appeared at work... we have a network
of approx 90 NT Servers, serving over 1500 users; i'd like to archive the
event logs of all these machines for posterity/tracking down stupidity/etc.
I'm sure this has been done before, but i wanted to turn this into a learning
exercise ( and boy, did i learn a thing or two...)
problem is, the loop from server to server doesn't work in real-time.
strangely enough, it works when i run it through the debugger... i'm using
build 315 from activestate, if it matters.
here's the code...
use Win32::EventLog;
my $EventLog;
@spec_server=<>;
$workdir="d:\\Audit\\EventLogsHistory";
Win32::SetCwd "$workdir";
open(STDOUT,">$workdir\stdout.log")||die "Oops! $!";
open(STDERR,">$workdir\stderr.log")||die "Oops! $!";
@event_log_obj=("System","Security","Application");
for ($x=0;$x<=$#spec_server;$x++)
{
chomp($name=$spec_server[$x]);
for ($w=0;$w<=$#event_log_obj;$w++)
{
chomp($curr_elo=$event_log_obj[$w]);
Win32::EventLog::Open($EventLog,$curr_elo,"\\\\$name")||die "Oops! $!";
$EventLog->Clear("temp.evt");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon+=1;
$filename2="$year.$mon.$mday.$curr_elo.evt";
rename ("temp.evt","$name/$filename2");
}
}
close(STDOUT);
close(STDERR);
## that's it.
Please cc: me with any responses, as i don;t have the luxury of checking
usenet on a daily basis... respond to the above address without the .trout
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
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 2486
**************************************
