[18366] in Perl-Users-Digest
Perl-Users Digest, Issue: 534 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 20 14:10:25 2001
Date: Tue, 20 Mar 2001 11:05:20 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <985115120-v10-i534@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 20 Mar 2001 Volume: 10 Number: 534
Today's topics:
Re: warnings.pm syntax error near lee_spam_this@yahoo.com
AUTHORIZATION <cernava@itexas.net>
Auto browsing kiosk <dmarvo@yahoo.com>
Re: Auto browsing kiosk <ubl@schaffhausen.de>
Re: CGI.pm question/problem & other question. <tinamue@zedat.fu-berlin.de>
Re: CGI.pm question/problem & other question. <tinamue@zedat.fu-berlin.de>
Re: change password script <yungp@netvigator.com>
Re: change password script <lmoran@wtsg.com>
Re: confused about my and scoping <godzilla@stomp.stomp.tokyo>
Re: Distributing Perl program ?? <peter.turcan@minerva-is.sk>
Re: Distributing Perl program ?? <ubl@schaffhausen.de>
Hash question <jason.baker@stdbev.com>
Re: Hash question <ciaran.mccreesh@useaddressbelow.please>
Re: Hash question (Greg Bacon)
IPC: where to start? <marc.beck@bigfoot.com>
mod_perl and file handles. <b_nospam_ill.kemp@wire2.com>
Re: mod_perl and file handles. nobull@mail.com
newlines in string in Win 32?? (cRYOFAN)
Re: Perl Illiteracy (humor) <lmoran@wtsg.com>
Re: print perldoc-pages nicely (Bernard El-Hagin)
Re: print perldoc-pages nicely (Rafael Garcia-Suarez)
Re: print perldoc-pages nicely <wessner@hps.fzk.de>
Q: usernames & passwords - how to ??? <richard@science.uottawa.ca>
Re: Q: usernames & passwords - how to ??? <brianasselin@spiderbite.org>
Re: Re: assigning to other then $_ from for loop <kimmfc@mydeja.com>
Re: recursive use re eval <rick.delaney@home.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 20 Mar 2001 18:44:28 GMT
From: lee_spam_this@yahoo.com
Subject: Re: warnings.pm syntax error near
Message-Id: <gyNt6.141291$47.2079395@news.bc.tac.net>
>
> Here is the error stream:
> Use of reserved word "our" is deprecated at /id/sw/Perl/lib/perl5/5.6.0/PA-RISC2.0/Socket.pm line 3.
> syntax error at /id/sw/Perl/lib/perl5/5.6.0/warnings.pm line 246, near "{^"
> BEGIN failed--compilation aborted at /id/sw/Perl/lib/perl5/5.6.0/PA-RISC2.0/Socket.pm line 163.
It would appear that we were somehow mixing 2 different
versions of perl. Problem resolved.
==================================
Posted via http://nodevice.com
Linux Programmer's Site
------------------------------
Date: Tue, 20 Mar 2001 12:12:33 -0600
From: "Itexas" <cernava@itexas.net>
Subject: AUTHORIZATION
Message-Id: <9986jb04em@enews3.newsguy.com>
In a CGI I send a 401 WWW-Authenticate: Basic header and when the browser
sends me back the user name and password its not in the ENV hash. How do I
make so Apache puts it in there? I do know you can do it on php. Where the
password and user name are in vars.
Thank you,
Richard Cernava
------------------------------
Date: Tue, 20 Mar 2001 09:24:27 -0600
From: "dmarvo" <dmarvo@yahoo.com>
Subject: Auto browsing kiosk
Message-Id: <9tKt6.89$WQ4.18000@elnws01>
I'm trying to put together a script that randomly selects from a list of
pages from an Internet website and then will automatically browses to the
next page after a set time interval.
I don't want to use meta tags to redirect the pages, because this
application is only to be used in one location. I could do this with pages
that are cached, but would rather keep the content current and pull them
directly off the webserver.
The purpose is to promote a church website within the facility on a kiost
type environment without the use of any interactive input devices that
people can get their hands on.
If anyone has done something like this or can point mi in the right
direction I would greatly appreciate it.
Blessing to all,
dmavo
------------------------------
Date: Tue, 20 Mar 2001 17:58:14 +0100
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: Auto browsing kiosk
Message-Id: <3AB78C25.16C718FB@schaffhausen.de>
dmarvo schrieb:
> If anyone has done something like this or can point mi in the right
> direction I would greatly appreciate it.
comp.infosystems.www.authoring.cgi might lie on your path to wisdom.
->malte
------------------------------
Date: 20 Mar 2001 17:24:11 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: CGI.pm question/problem & other question.
Message-Id: <9983nr$49l0$1@fu-berlin.de>
hi,
In comp.lang.perl.misc Philip Garrett <philipg@atl.mediaone.net> wrote:
> Jon DeCamp <jondecamp@home.com> wrote in message
> news:3AB6C3CE.A9D9C72B@home.com...
>> Greetings,
>>
>> Question #1: A CGI script that I am writing in perl could probably go for
> the
> [snip]
> my $q = CGI->new;
> my %params = map { $_ => $q->param($_) } $q->param;
06:21pm tina.mueller@lolland tina.mueller > perl -MData::Dumper -MCGI -e'
my $q = CGI->new;
my %params = map { $_ => $q->param($_) } $q->param;
print Dumper \%params
'
(offline mode: enter name=value pairs on standard input)
test=2
test=3
test=4
ttt=5
$VAR1 = {
'test' => 2,
3 => 4,
'ttt' => 5
};
hmmmmm.
I would do:
my %params = map { $_ => [$q->param($_)] } @list;
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: 20 Mar 2001 17:34:52 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: CGI.pm question/problem & other question.
Message-Id: <9984bs$49l0$2@fu-berlin.de>
In comp.lang.perl.misc Tina Mueller <tinamue@zedat.fu-berlin.de> wrote:
> my %params = map { $_ => [$q->param($_)] } @list;
^^^^^
of course that should read:
my %params = map { $_ => [$q->param($_)] } $q->param;
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: Tue, 20 Mar 2001 23:13:40 +0800
From: "Peter Yung" <yungp@netvigator.com>
Subject: Re: change password script
Message-Id: <997rh2$9q21@imsp212.netvigator.com>
Well, I know that and I am learning Perl. I was wondering what kind of
command Perl would use to perform such a task because normally a user would
telnet into the Linux account and type "passwd" to accomplish such a task.
But I have not heard about such a command for Perl.
--
-----------------------------------------------------
"Paul Boardman" <peb@bms.umist.ac.uk> wrote in message
news:3AB73CAC.E6509E0F@bms.umist.ac.uk...
> yungp wrote:
> > I am trying to develop a webpage interface, which will allow users to
change
> > there own password through my web page interface. I am running Redhat
Linux
> > 6.2. I was wondering does anyone have any idea of how to write this
kind of
> > script?
>
> I know it's not nice to be nasty to people but...
>
> how about learning perl? Then try writing a script & then if you have
> any problems make sure you have warnings 'turned on' and are 'USEing
> strict' then consult the FAQ and the documentation & then, after doing
> all this, if
> you still have trouble, come back here and ask for more specific help.
>
> If I'm reading this wrong & you have been learning perl then how about
> having a peruse of the CGI module?
>
> perldoc CGI
>
> should be a start.
>
> also here is an excerpt from the FAQ to get you started.
>
> =head2 Where can I learn about CGI or Web programming in Perl?
>
> For modules, get the CGI or LWP modules from CPAN. For textbooks,
> see the two especially dedicated to web stuff in the question on
> books. For problems and questions related to the web, like ``Why
> do I get 500 Errors'' or ``Why doesn't it run from the browser right
> when it runs fine on the command line'', see these sources:
>
> WWW Security FAQ
> http://www.w3.org/Security/Faq/
>
> Web FAQ
> http://www.boutell.com/faq/
>
> CGI FAQ
> http://www.webthing.com/tutorials/cgifaq.html
>
> HTTP Spec
> http://www.w3.org/pub/WWW/Protocols/HTTP/
>
> HTML Spec
> http://www.w3.org/TR/REC-html40/
> http://www.w3.org/pub/WWW/MarkUp/
>
> CGI Spec
> http://www.w3.org/CGI/
>
> CGI Security FAQ
> http://www.go2net.com/people/paulp/cgi-security/safe-cgi.txt
>
> HTH
>
> Paul
------------------------------
Date: Tue, 20 Mar 2001 10:51:20 -0500
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: change password script
Message-Id: <43vebt0pgvllilnr4o8m127fsi71hpgbso@4ax.com>
On Tue, 20 Mar 2001 20:49:37 +0930, "Wyzelli" <wyzelli@yahoo.com>
wrote wonderful things about sparkplugs:
>
>You realise that can be a major security risk?
OP does not realize this.
>
>Wyzelli
--
Member of the Nondeterministic Football League
------------------------------
Date: Tue, 20 Mar 2001 07:58:55 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: confused about my and scoping
Message-Id: <3AB77E3F.C590D9CD@stomp.stomp.tokyo>
nobull@mail.com wrote:
> rgarciasuarez@free.fr (Rafael Garcia-Suarez) writes like Godzilla:
My presumption is you are psychotically obsessed with me.
Godzilla!
------------------------------
Date: Tue, 20 Mar 2001 15:12:29 +0100
From: "Peter Turcan" <peter.turcan@minerva-is.sk>
Subject: Re: Distributing Perl program ??
Message-Id: <997ojb$2sc1$1@ID-66615.news.dfncis.de>
thank you to both, program is functioning.
Peter Turcan
"Wyzelli" <wyzelli@yahoo.com> wrote in message
news:vlIt6.8$dX.2242@vic.nntp.telstra.net...
> "Peter Turcan" <peter.turcan@minerva-is.sk> wrote in message
> news:997afs$f0r$1@ID-66615.news.dfncis.de...
> > Hi all!
> > What is necessary to distribute perl program to other PC machine? I want
> to
> > send some perl script to custom and he has not perl installed. It is
> > necessarry to install whole perl? Is there some free convertor to .exe
> file?
> >
>
> The Perl Development Kit from Activestate (www.activestate.com) includes
> PerlApp which will compile a standalone executeable. $125 USD (But they
> provide Active Perl free.. so they are Good guys). I have used this to
> compile some executeables and it seems to work well (needs NT or 2000 to
> make the executeables, but they work on 95/98/ME).
>
> Perl2exe from www.dynamicstate.com is another solution as well.
>
> Or you could install a minimal perl onstallation.. The zip for ActivePerl
> 5.6 is only 7.5 Mb
>
> I have also used perlcc on Linux, and that also worked OK, though it is
> provided with some caveats.
>
> Wyzelli
> --
> #Modified from the original by Jim Menard
> for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
> wall,\n";
> print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
> $_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
> wall\n\n";}print'*burp*';
>
>
------------------------------
Date: Tue, 20 Mar 2001 15:06:21 +0100
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: Distributing Perl program ??
Message-Id: <3AB763DD.755A292D@schaffhausen.de>
Christian Meisl schrieb:
>
> Malte Ubl <ubl@schaffhausen.de> writes:
> > > Is there some free convertor to .exe file?
> >
> > As far as I know there isnt, [...]
>
> There is! Have a look at
>
> http://www.indigostar.com/perl2exe.htm
> > > Is there some free convertor to .exe file?
...not free.
------------------------------
Date: Tue, 20 Mar 2001 12:38:08 -0600
From: "Jason" <jason.baker@stdbev.com>
Subject: Hash question
Message-Id: <tbf90mh8m69jb7@news.supernews.com>
Pardon the newbie question. Im trying to read a file into a hash, the file
is setup like
key = value
key1 = value1
etc...
and I would like that information placed into a hash. I have figured out a
way to do this, but it entails first reading everything into an array and
then putting it into the hash. Their must be a better way. ANy
suggestions?
Jason
www.cyborgworkshop.com
...and the geek shall inherit the earth...
------------------------------
Date: Tue, 20 Mar 2001 18:48:00 +0000
From: Ciaran McCreesh <ciaran.mccreesh@useaddressbelow.please>
Subject: Re: Hash question
Message-Id: <uJVxfAAgX6t6Iwlr@harlawroad.freeserve.co.uk>
In article <tbf90mh8m69jb7@news.supernews.com> (whatever that means),
Jason <jason.baker@stdbev.com> writes
>Pardon the newbie question. Im trying to read a file into a hash, the file
>is setup like
>key = value
>key1 = value1
>etc...
>and I would like that information placed into a hash. I have figured out a
>way to do this, but it entails first reading everything into an array and
>then putting it into the hash. Their must be a better way. ANy
>suggestions?
while (<FILE>) {
($key, $value) = split /=/;
$hash($key} = $value;
}
or something along those lines...
HTH,
Ciaran
--
Ciaran McCreesh
mail: keesh@users.sourceforge.net
web: http://www.opensourcepan.com/
------------------------------
Date: Tue, 20 Mar 2001 18:48:55 -0000
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: Hash question
Message-Id: <tbf9gniia715b6@corp.supernews.com>
In article <tbf90mh8m69jb7@news.supernews.com>,
Jason <jason.baker@stdbev.com> wrote:
: Pardon the newbie question. Im trying to read a file into a hash, the file
: is setup like
: key = value
: key1 = value1
: etc...
: and I would like that information placed into a hash. I have figured out a
: way to do this, but it entails first reading everything into an array and
: then putting it into the hash. Their must be a better way. ANy
: suggestions?
You can pluck the key and value from each line with
if (($key, $value) = /^(.+)\s*=\s*(.+)$/) { ... }
Greg
--
When a man is more right than his neighbor, that constitutes a majority
of one.
-- Thoreau
------------------------------
Date: Mon, 19 Mar 2001 17:21:55 +0100
From: "Marc Beck" <marc.beck@bigfoot.com>
Subject: IPC: where to start?
Message-Id: <997tre$3nlm$1@ID-23826.news.dfncis.de>
Hello,
I would like to write a daemon that can receive messages from other perl
programs. These messages are simple arrays. Are the IPC::? modules the
right place to look at ... and which of them is the one I need?
cu Marc
------------------------------
Date: Tue, 20 Mar 2001 17:33:11 -0000
From: "W K" <b_nospam_ill.kemp@wire2.com>
Subject: mod_perl and file handles.
Message-Id: <985109808.28665.0.nnrp-12.c3ad6974@news.demon.co.uk>
A quick look at some mod_perl documentation had:
use Symbol ();
my $fh = Symbol::gensym();
Am I right in thinking that all this is not needed now I have a shiny new
perl 5.6
that these three lines are not needed as $fh can be a file handle now?
------------------------------
Date: 20 Mar 2001 17:46:46 +0000
From: nobull@mail.com
Subject: Re: mod_perl and file handles.
Message-Id: <u9y9u0jptl.fsf@wcl-l.bham.ac.uk>
"W K" <b_nospam_ill.kemp@wire2.com> writes:
> use Symbol ();
> my $fh = Symbol::gensym();
> Am I right in thinking that all this is not needed now I have a
> shiny new perl 5.6 that these three lines are not needed
No. You are right in thinking they're not needed but not right in
thinking there's three lines there. :-)
> as $fh can be a file handle now?
Not quite if you use $fh in an open it auto-vivifies to a reference to
a GLOB (jut like what is returned by Symbol::gensym()).
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 20 Mar 2001 14:33:05 GMT
From: cryofan@mylinuxisp.com (cRYOFAN)
Subject: newlines in string in Win 32??
Message-Id: <3ab7687f.514245085@news3.mylinuxisp.com>
I am testing this program on win 32 before moving it to UNix.
What I am trying to do is search a web page that I have loaded into a
string for certain phrases. But I can't do it because somehow the
string has all these embedded newlines in it. I don't know how they
got there. And I can't get rid of them. I have tried all sorts of
substitution regexes to no effect. I cannot seem to get rid of all
these newlines. They come after each word, so that when I print the
string, it is a whole bunch of lines, instead of being on one line.
As it is, I cannot search for 2 word phrases.
Here is the code:
local( *URL_temp) = @_;
open file1, ">>file1.txt";
foreach $newpageURL (@URL_temp)
{
print file1 "\n **3 $newpageURL ";
sleep(2);
$page= $newpageURL;
$urlcontent = get($page);
I have tried to replace all instances of "\n" with a large string, to
no effect. I have to tried to sub a single space for a newline, to no
effect. I have tried using the s and m option, to no effect.
The output is shown at the bottom:
$urlcontent =~ s/\\n/fggggggggggggggggggggggggggggggggggggg/g;
print "\n **3 $urlcontent ";
print file1 "\n **3 $urlcontent ";
sleep 3;
$conf= "consumer confidence";$USeco="U.S. economy"; $theEco= "the
economy";
$consem = "consumer sentiment"; $oil = "oil prices"; $perbarrel
="per barrel";
$oureco="our economy";
if(((index($urlcontent,$conf))> -1)||((index($urlcontent,$USeco))>
-1)
||((index($urlcontent,$theEco))> -1)||((index($urlcontent,$consem))
> -1)
||((index($urlcontent,$oil))> -1)||((index($urlcontent,$perbarrel))>
-1)
||((index($urlcontent,$oureco))> -1))
{
print file1 "\n in **********************************
******\n";
print "\n in ********************************** ******\n";
sleep(4);
@negwords= ("slowing", "slowdown", "falling", "weakening", "weak",
"weaker",
"low", "lower", "poor", "drop", "dropping", "falling",
"uncertainty", "uncertain", "tumbles", "fell", "lowering",
"decline", "declining", "down","lowest", "lower","slower",
"pessimistic",
"pessimism", "less positive", "negative", "more
negative","bad"."poor",
"slipped","worsen", "worsening", "tumble",
"tumbling","plunge", "plunged",
"plunging","slipped","slip", "slipping", "deteriorated",
"deterioration",
"deteriorating","decreasing","decreased",
"decrease","loss", "losses");
@poswords= ("high", "higher", "highest", "rising", "strong",
"stronger", "strongest", "rose", "strengthening",
"jumped", "boost",
"increase", "increasing", "increased", "up", "rise",
"gain",
"gains", "gaining", "down","lowest", "lower","slower",
"pessimistic",
"pessimism", "less positive", "negative", "more
negative","bad"."poor",
"positive");
$poscount =0;$negcount=0;
$pos=0;
sleep(2);
foreach $posword (@poswords)
{
while (($pos=index($urlcontent,$posword,$pos)) != -1)
{
$poscount++; $pos++;
}#end while loop to count a word
The output is:
></nobr></td><td align=right valign=top width="30%"><nobr><small>9959.11<br>1951.18<br>1170.81<br>190.21<br>700.16<br></small></nobr></td><td align=right valign=top width="30%"><nobr><small>+0.00<br>+0.00<br>+0.00<br>+0.00<br>+0.00<br></small></nobr></td></tr><tr><td colspan=3><small>delayed 20 mins - <a href=http://my.yahoo.com/fin_disclaimer.html>disclaimer</a><br></small><nobr><input type=hidden name=d value=t><input size=10 name=s><input type=submit value="Get Quotes"></nobr></td></tr></table></td></tr></form></table><br></td></tr></table><b>Tuesday March 20, 8:56 am <small>Eastern Time</small></b><h2>Stocks Look Higher Ahead of Fed Meeting</h2><!--rb|985096560-->
<!-- TextStart -->
<p>By
Elizabeth
Lazarowitz<p>NEW
YORK
(Reuters)
-
Stocks
are
expected
to
open
higher
on
Tuesday
as
investors
pray
the
U.S.
Federal
Reserve
comes
to
the
rescue
of
both
the
slowing
U.S.
economy
and
the
stock
market
with
a
deep-interest
rate
cut.<p>The
Fed
is
widely
expected
to
lower
its
key
interest
rate
when
its
policy-setting
arm
wraps
up
its
latest
meeting
at
2:15
p.m.,
but
Wall
Street
has
been
rife
with
speculation
about
just
how
large
the
cut
will
be.<p>``The
markets
could
be
modestly
better
waiting
to
hear
what
happens
with
the
Federal
Reserve
at
2:15,
and
then
the
fireworks
will
------------------------------
Date: Tue, 20 Mar 2001 10:49:38 -0500
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: Perl Illiteracy (humor)
Message-Id: <2vuebtsq53ej6gcmcmo4mr7859ngmkjlet@4ax.com>
On 20 Mar 2001 01:48:17 GMT, revjack <revjack@revjack.net> wrote
wonderful things about sparkplugs:
This was posted on 03.15.01 and was moderately funny then, not so
funny now.
--
Member of the Nondeterministic Football League
------------------------------
Date: Tue, 20 Mar 2001 14:38:42 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: print perldoc-pages nicely
Message-Id: <slrn9beqoe.a4v.bernard.el-hagin@gdndev32.lido-tech>
On Tue, 20 Mar 2001 14:44:25 -0800, Dirk Wessner <wessner@hps.fzk.de> wrote:
>Hello to everyone.
>
>How can I print perldoc pages nicely
>formatted on a Postscript printer?
>
>The only thing that worked a bit
>was
>
>perldoc -t | groff >lpr
perldoc | col -b > lpr
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: Tue, 20 Mar 2001 14:38:56 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: print perldoc-pages nicely
Message-Id: <slrn9beqs4.u96.rgarciasuarez@rafael.kazibao.net>
Dirk Wessner wrote in comp.lang.perl.misc:
>
> How can I print perldoc pages nicely
> formatted on a Postscript printer?
The perldocs are written in POD format. The POD sources must have been
installed with your version of perl (on my machine, they're in
/usr/local/lib/perl5/5.6.0/pod). Perl comes with several POD translators
to format the raw docs in several popular formats (see the perlpod
manpage) : pod2man, pod2text, pod2latex, etc. And you can find other pod
translators on CPAN (I think there is a POD to Postscript translator).
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Tue, 20 Mar 2001 16:16:24 -0800
From: Dirk Wessner <wessner@hps.fzk.de>
Subject: Re: print perldoc-pages nicely
Message-Id: <3AB7F2D8.BF9E6DE7@hps.fzk.de>
Rafael Garcia-Suarez wrote:
>
> Dirk Wessner wrote in comp.lang.perl.misc:
> >
> > How can I print perldoc pages nicely
> > formatted on a Postscript printer?
>
> The perldocs are written in POD format. The POD sources must have been
> installed with your version of perl (on my machine, they're in
> /usr/local/lib/perl5/5.6.0/pod). Perl comes with several POD translators
> to format the raw docs in several popular formats (see the perlpod
> manpage) : pod2man, pod2text, pod2latex, etc. And you can find other pod
> translators on CPAN (I think there is a POD to Postscript translator).
>
> --
> Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
Thanks for that hint.
I did the following now:
pod2man Module.pm > man1/module.1
man -t module
The output is nicely formatted now.
------------------------------
Date: Tue, 20 Mar 2001 10:31:07 -0500
From: "Francois Richard" <richard@science.uottawa.ca>
Subject: Q: usernames & passwords - how to ???
Message-Id: <997t3t$99k3@mercury.cc.uottawa.ca>
(sorry for cross-posting, but I'm really shooting in the dark: I have no
idea where to start with this!)
Can someone please point me in the right direction (FAQ, web resources,
etc.)?
I want to create a simple web page that allows guests to the web site to
enter a userid and password, and store these with their names in a text
or database file on our server.
What is the best way to do this? Does it involve JavaScript alone, or a
combination with other tools (CGI, Perl, Java, etc.)?
I have looked for info on the internet, but so far this is proving to be
a very frustrating experience... I would greatly appreciate any
pointers/advice you may have.
Cheers,
_________________________________________________
François Richard - Earth Sciences
University of Ottawa (Canada)
------------------------------
Date: Tue, 20 Mar 2001 10:44:56 -0500
From: Brian Asselin <brianasselin@spiderbite.org>
Subject: Re: Q: usernames & passwords - how to ???
Message-Id: <7nuebto4ti7bfthm2j3rr5qbulgv3dn8f2@4ax.com>
On Tue, 20 Mar 2001 10:31:07 -0500, "Francois Richard"
<richard@science.uottawa.ca> wrote:
>Can someone please point me in the right direction (FAQ, web resources,
>etc.)?
this may help:
http://www.vortex-webdesign.com/help/pwprotect.htm
------------------------------
Date: Tue, 20 Mar 2001 17:39:39 GMT
From: Kim C <kimmfc@mydeja.com>
Subject: Re: Re: assigning to other then $_ from for loop
Message-Id: <id5fbt4ri4auda73qfv35tqmsjs41mak79@4ax.com>
>
>But it's NOT a global variable. It's a lexical. For what you want, you
>NEED a global variable. So either do:
>
> our $var;
>
That was it! Thank you
Kim
------------------------------
Date: Tue, 20 Mar 2001 14:21:12 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: recursive use re eval
Message-Id: <3AB76A9A.126975B9@home.com>
[posted & mailed]
Jerome Abela wrote:
>
> - But this code doesn't work:
>
> use re 'eval';
> $re='.(??{$re})';
> "aaa" =~ /$re/;
>
> Does anyone have any idea to make this code sample work ?
You can use qr// to get it to compile. But it could only ever work on
an infinite length string. You need something to break the recursion.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V10 Issue 534
**************************************
