[9447] in Perl-Users-Digest
Perl-Users Digest, Issue: 3042 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 1 22:07:15 1998
Date: Wed, 1 Jul 98 19:00:32 -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 Wed, 1 Jul 1998 Volume: 8 Number: 3042
Today's topics:
Re: ! Free For All Links Page --HELP! <josh@wolrich.com>
[Q] mod_perl <ryan@steelplan.com.au>
Re: [Q] mod_perl (brian d foy)
Re: \d versus [0-9] <dhabersetzer@micron.com>
Debug ? <darrensw@pacbell.net>
Re: Dejanews/closed lists/moderated groups/lists [Was: <rra@stanford.edu>
Re: Flames.... (Firebeard)
Re: i've got a forking problem (Mike Wescott)
jpl on digital unix brianlbaker@my-dejanews.com
Re: matching second word in a line (Patrick Timmins)
Re: matching second word in a line (Patrick Timmins)
Re: passing a ref to a subroutine, problem with use str <zenin@bawdycaste.org>
Re: passing a ref to a subroutine, problem with use str (Allan M. Due)
Re: passing a ref to a subroutine, problem with use str <zenin@bawdycaste.org>
Re: perl and secured payment online? (Josh Kortbein)
Re: Perl At Work (Josh Kortbein)
Re: Perl At Work <zenin@bawdycaste.org>
Re: perl cgi and Java <cw@dwc.ch>
Perl scripts with setuid... <sjhill@plutonium.net>
perl.exe - Entry Point Not Found <russ_conway@NOSPAMgm.cytec.com>
Re: problem with system and ftp (Charles DeRykus)
Re: problems: compiling module with nmake <rpsavage@ozemail.com.au>
Re: Regular expression matech for ( non-fixed number of <rpsavage@ozemail.com.au>
Re: Regular expression matech for ( non-fixed number of (Ilya Zakharevich)
require $redir.'setup.pl'; ?? <pwhite@nospamsurfsouth.com>
Re: require $redir.'setup.pl'; ?? (Craig Berry)
Re: require $redir.'setup.pl'; ?? <zenin@bawdycaste.org>
Re: Testing perl knowledge <dontspamme@dontspam.com>
Re: timelocal function in 2000 (Paul Eggert)
Re: Vertical Perl <scribble@pobox.com>
Re: Vertical Perl (Craig Berry)
Re: Wait Command in Perl <cw@dwc.ch>
Re: What is wrong with this script? <cw@dwc.ch>
while (<CSV_FILE>) doesn't work with NT (Stephen L. Vinson)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 02 Jul 1998 01:35:08 GMT
From: Joshua Wolrich <josh@wolrich.com>
Subject: Re: ! Free For All Links Page --HELP!
Message-Id: <359AE3A6.21358B64@wolrich.com>
rpearce@my-dejanews.com wrote:
> In article <35981FDD.97123B2B@wolrich.com>,
> Colin Wolrich <colin@wolrich.com> wrote:
>
> > foreach $tag ( keys %sections) { # For every tag
> > if ( ($FORM{'section'} eq $sections{$tag}) &&
> > ($line =~ /<!--$tag-->/) ) {
> >
> > print FILE "<li><a
> > href=\"$FORM{'url'}\">$FORM{'title'}\">$FORM{'desc'}</a>\n";
> ^
> This tag does not belong.
>
> If you actually want a > symbol, use '>'
Thank for trying to help but in the line
\">$FORM{'desc'}
... I have tried every option I can think of. I've alternatively
removed the ", the > and the \, to no avail.
The > symbol btw is in the original script from Matt's Script Archives -
shouldn't it be there at all?
I am not a programmer at all (that much should be obvious by now!), but
surely what I'm trying to do can't be all that tricky? Please, somebody
put me out of my misery. There must be someone out there who uses a
links page that has a description field.
A guy called Uri Foox runs a site at <http://www.cgiforme.com > that has
such a script but for some reason he refuses to let me look at a copy of
the .pl file or help in any way.
Any mercy from the rest of you guys would be much appreciated.
Colin Wolrich
http://wolrich.com/links/links.htm
------------------------------
Date: Thu, 2 Jul 1998 08:07:14 +0800
From: "Ryan Snowden" <ryan@steelplan.com.au>
Subject: [Q] mod_perl
Message-Id: <6nej4c$rq$1@news.iinet.net.au>
My understanding of mod_perl is to be the (G)ateway in CGI.
When I write an HTML/JAVA/JavaScript form and the user presses submit, a
Perl/CGI script is called up. Now, if mod_perl is enabled in the Apache
server, then the Perl script runs through the mod_perl module and 'compiled'
by one Perl interpreter. This interpreter is only loaded once, and handles
all perl scripts run.
Some FAQ's and documentation give examples on how to use the
Apache::modules. These are fairly good. Do I, however, include lines like:
#!/usr/bin/perl -w
if my mod_perl module will be handling requests?
To check if mod_perl is loaded, something like:
if (%ENV{MOD_PERL} {
.. use mod_perl
}
else {
... use Perl
}
can be written (excuse the errors).
My HTML form can naturally point to a simple filename.cgi script like
normal, right?
What modifications do I have to make to my CGI script in order to use the
mod_perl part of the Apache server?
Can I call more Apache modules simply by:
use Apache::modulename;
?
Ryan.
------------------------------
Date: Wed, 01 Jul 1998 21:50:08 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: [Q] mod_perl
Message-Id: <comdog-ya02408000R0107982150080001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6nej4c$rq$1@news.iinet.net.au>, "Ryan Snowden" <ryan@steelplan.com.au> posted:
>When I write an HTML/JAVA/JavaScript form and the user presses submit, a
>Perl/CGI script is called up. Now, if mod_perl is enabled in the Apache
>server, then the Perl script runs through the mod_perl module and 'compiled'
>by one Perl interpreter. This interpreter is only loaded once, and handles
>all perl scripts run.
the script doesn't necessarily use the Apache::* stuff or the embedded
interpreter. you can specify a section of the URL-space to be
handled by mod_perl:
#http://www.dead-horse.com/mod_perl/foo handled by mod_perl
<Location /mod_perl>
SetHandler perl-script
PerlHandler Apache::Registry
Options ExecCGI
</Location>
while others can be handled via the traditional mechanism:
#http://www.chat2.pl/cgi-bin/foo handled by external perl
ScriptAlias /cgi-bin/ /web/cgi-bin/
i've never investigated which directive wins if one uses both
for the same mapping.
as such, based on the URL accessed, you should already know
what is handling it, unless you have wierdness like the same
script showing up in both locations, although i'm not sure why
that would ever be a Good Thing.
additionally, CGI.pm does some rudimentary checking to determine
if mod_perl is handling the script, and sets certain variables
if it is (although the same variables may be set if one isn't
using mod_perl and particular operating systems). take a look
at the CGI.pm code (perldoc -m CGI.pm) and search for $MOD_PERL.
you might have to adjust the results for whatever your server
puts in $ENV{'GATEWAY_INTERFACE'}.
does that answer your question?
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers T-shirts! <URL:http://www.pm.org/tshirts.html>
emigration from cgi-bin to mod_perl is rampant
------------------------------
Date: Wed, 01 Jul 1998 16:06:24 -0600
From: Daryl Habersetzer <dhabersetzer@micron.com>
Subject: Re: \d versus [0-9]
Message-Id: <359AB2E0.7E0A5DEF@micron.com>
howard@wdsec.com wrote:
> In pattern matching checking against a variable
>
> $SOURCE =~ /$CHECK/
>
> works for $CHECK="[0-9]"
> but fails for $CHECK="\d"
> but works for
>
> $SOURCE =~ /\d/
>
> Does anyone have an explanation?
You need to learn the difference between:
$CHECK = "\d";
and
$CHECK= '\d';
------------------------------
Date: Wed, 1 Jul 1998 18:40:34 -0700
From: "Darren Sweeney" <darrensw@pacbell.net>
Subject: Debug ?
Message-Id: <6neodv$8lr$1@nnrp4.snfc21.pbi.net>
Hi
I have a script which returns the '500 Internal error' message.
What is the best way to debug...I have tried telnet perl -c/w but they both
tell me the script is OK.
All help appreciated.
Regards,
Darren
------------------------------
Date: 01 Jul 1998 17:35:37 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Dejanews/closed lists/moderated groups/lists [Was: Re: Is perl5-porters closed to subscription?
Message-Id: <m3ra05rsx1.fsf@windlord.Stanford.EDU>
I R A Aggie <fl_aggie@thepentagon.com> writes:
> Yes, and no. In general, it is devilishly hard to convert an unmoderated
> newsgroup into a moderated one.
Socially, maybe. Technically, it's fairly trivial. Some sites will lag
(AOL most notably), but after a year it's generally not a problem.
> I fear you may be under the impression that clp.misc will become
> moderated if the current proposal passes. That is not true, the current
> proposal will merely create a new newsgroup, clp.moderated. clp.misc
> will still exist in all its unadulterated glory.
This is certainly true.
> No. AFAIK, dejanews archives only those messages that they receive,
> which is in no way, shape, or form guaranteed to be ALL. Further, they
> boast of having removed spam from their archive. I looked for a policy
> statement about what they keep, but I couldn't find it on their web
> site. I suspect they keep everything -- but that's not the same as
> stated policy.
They run the Hippo, I believe, to filter out spam. Beyond that, they've
dropped certain hierarchies at the request of those who run them, but
generally carry everything else.
> dejanews only archives newsgroups, not mailing lists, except in cases
> where there is a usenet<->mailing list gateway.
Which is often the case for large lists, but usually isn't the case for
smaller ones.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 01 Jul 1998 18:45:09 -0500
From: stend+c.l.perl.misc@sten.tivoli.com (Firebeard)
Subject: Re: Flames....
Message-Id: <vpd8bpp24a.fsf@dogbert.support.tivoli.com>
>>>>> Scratchie writes:
S> The point -- which most people would catch -- is that many of the
S> docs are so comprehensive that (a) they're hard for beginners to
S> wade through (whether they're programmers or not)
"Hard" does not justify "lazy". That one does not like the
degree of difficulty of free resources does not justify an expectation
of additional free resources at your desired degree of difficulty.
S> and (b) oftentimes they assume a large amount of knowledge (of
S> other utilities or whatnot) that a beginner won't always have.
Then that "beginner" shouldn't be using Perl. Look at the
cover of _Learning Perl_. What are the first words on the cover?
"Unix Programming". Before learning Perl, you should have some
knowledge of Unix, and some knowledge of programming. If you lack
either, you're not properly prepared to start.
Not every tool is usable by a "beginner". You wouldn't expect
to be able to walk into a commercial kitchen and expect to be able to
prepare a gourmet meal for 500 people when you just learned to make a
hard boiled egg.
--
#include <disclaimer.h> /* Sten Drescher */
Unsolicited bulk email will be stored and handled for a US$500/KB fee.
"ThisemailhasbeenbroughttoyoubyJOLTCola,favoredbyssysadmins,netadminsand
programmerseverywhere.JOLTCola--forallthesugarandtwicethecaffeine(R)."-
bofh@visi.com
------------------------------
Date: 01 Jul 1998 21:28:19 -0400
From: wescott@cygnus.ColumbiaSC.NCR.COM (Mike Wescott)
To: dperez@blue.seas.upenn.edu (Dan Perez)
Subject: Re: i've got a forking problem
Message-Id: <x4btr9rqh9.fsf@cygnus.ColumbiaSC.NCR.COM>
[ cc email sent ]
In article <6ndbeo$q32$1@netnews.upenn.edu> dperez@blue.seas.upenn.edu
(Dan Perez) writes:
> My question is not so much how to get around this problem, but what
> the problem is and how/why it occurs.
The problem, at least on my system, is that the children rewind the
input file a bit when they close it. This makes some sense if the
the file descriptor is shared and the child has done an exec. Arguably
it is a bug in the stdio implementation but not in perl.
> The fix that is being used is to read the file into an array and then
> do a foreach loop on that array, with the fork'ing occuring in that
> foreach loop. That circumvents the unsolved problem.
A more reasonble workaround, perhaps, is:
#! /usr/bin/perl
require 'sys/syscall.ph';
open(FH, "./test");
while(<FH>) {
fork && next;
syscall(&SYS_close, fileno(FH)+0);
print;
exit;
}
Works for me. The low level close (see perlfaq5) prevents stdio's fclose
from doing the damaging lseek.
--
-Mike Wescott
mike.wescott@ColumbiaSC.NCR.COM
------------------------------
Date: Wed, 01 Jul 1998 23:05:47 GMT
From: brianlbaker@my-dejanews.com
Subject: jpl on digital unix
Message-Id: <6nefca$hfa$1@nnrp1.dejanews.com>
I would like to use jpl on a digital unix platform. I am running into
problems installing it. If any one has any experience with this platform I'd
love some input; especially if your input is DON'T TRY IT, ITS IMPOSSIBLE.
That would save me a headache!
Thanks
B2
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Thu, 02 Jul 1998 00:53:36 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: matching second word in a line
Message-Id: <6nelmg$q49$1@nnrp1.dejanews.com>
In article <359A34B4.F3E6978@iris.nyit.edu>,
William Lemke <wlemke@iris.nyit.edu> wrote:
>
> I'm trying to match the second word in a line, I
> can't figure out how.
>
>
Try using a regular expression. Check out your Perl documentation (perldoc
perlre from your commans line). O'Reilly and Assoc has an excellent book
written by Jeffrey Friedl called "Mastering Regular Expressions". Buy this
book and you'll quickly learn what this means:
while (<>) {
(/^\s*\S+?\s+(\S+)/) && print "The second word is $1\n";
}
Hope this helps.
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Thu, 02 Jul 1998 01:29:42 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: matching second word in a line
Message-Id: <6nenq5$sju$1@nnrp1.dejanews.com>
In article <359AAA7B.B242F2FC@dial.pipex.com>,
Jason Holland <jason.holland@dial.pipex.com> wrote:
>
> William Lemke wrote:
> >
> > I'm trying to match the second word in a line, I
> > can't figure out how.
>
> Hello,
>
> Try a quick hack like this:
>
> $string = "Hello World!";
> $string =~ m/^[^ ]+ ([\w]+)/;
> print "$1\n";
>
This won't work for
$string = "Hello World!";
or
$string = " Hello World!";
or
$string = "Hello #World!";
etc.
May or may not be important, depending on the original poster's input data.
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 1 Jul 1998 23:54:45 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: passing a ref to a subroutine, problem with use strict
Message-Id: <899337840.173891@thrush.omix.com>
Allan M. Due <due@murray.fordham.edu> wrote:
>snip<
Just to start off, the entire thing can also be done as:
@data = grep {
(split /,/, $_)[1] =~ /bl/i
} @data;
But lets look at it closer.
: Can't use string ("color") as a SCALAR ref while "strict refs" in use
You'll get this if you try to deref a value that isn't a hard
ref but does contain a value (string) already. -If it's undef
Perl would just magically create the hard ref for you, but
if there is a value there it will think you wanted to use that
as a soft ref. Basically, you've got a bug and strict just
caught it (where the non-use of strict would have likely missed
it). This is what you want when you use strict. Although
this script might work correctly, it can easily do things
in ways you probably didn't intend (like modifiy random global
values by mistake).
: PS I sometimes get weird spacing when I cut and paste from my text
: editor to the newsgroup software. My apologies in advance if this post
: illustrates the weirdness.
"Insert file" on most editors works better, normally.
: #!/usr/local/bin/perl
No -w??? Personally I think use strict should turn -w on by
default (actually, I think one should be required to "use
no_warnings" to turn off what should be the default of having
-w on, but until then). Turn -w on, you'll be much happier
in the long run (it's even more important then use strict).
: #use strict;
: my @data = ('dog,black,sparky',
: 'cat,black,socks',
: 'dog,white,fido');
: my $search_on = "color";
Note how your error message mentioned trying to use this string
as a soft ref? This is where you need to start looking for your
problem. Something is thinking that this is to be used as a
reference, not a search string. In this case that's what you
where trying to do, but there are better ways to go about this.
: my $search_for = "bl";
: &search (\$search_on,\$search_for,\@data);
Try to get out of the habbit of using & at the start of function
calls. If your function has a prototype, using & removes perl's
ability to check it, which can cause funky things to happen...
If you get "bare word" errors under strict, put a "use subs
qw(search);" statement at the top of your script.
BTW, most Perl code tends to favor assigning the return value
of a function to something instead of requiring a reference to
place the new values in. Basically, this would change your
above call syntax to something like:
@data = search ($search_on, $search_for, @data);
This would also let the next statement to be done differently:
: foreach (@data) {
: print "$_\n";
: }
If search() returns it's data instead of modifying its passed
array, this could be:
foreach ( search ($search_on, $search_for, @data) ) {
print "$_\n";
}
This also keeps @data intact unless the caller explicitly asks
(@data = search(...)) for it to be changed.
: sub search {
: my $i;
: my $ref;
: my @keep_array;
: my($key_ref,$search_ref,$search_array_ref)= @_;
: my(@search_array) = @$search_array_ref;
Why refs? Could this not work as well:
my ($key, $search, @search_array) = @_;
: foreach $i (@search_array) {
: ($animal,$color,$name) = split(/\,/,$i);
You'll need a my() here. What are you using these values
for, btw?
: if ($$$key_ref =~ /$$search_ref/i) {
This meens ${ ${ $key_ref } } =~
That is, $key_ref is a scalar ref to a ref to a scalar value.
The problem is that ${ $key_ref } is "color", so the next deref
level will be the same as ${"color"}. This isn't what you want,
even though you think it is (I'll explain).
Since the last level is a soft ref (dereferencing a value by its
variable name), strict won't like it. More importantly, it requires
that $animal, $color, and $name be global (or at least local(),
which is almost as bad) variables. I think what you want is a
lookup table via a hash. I'd recode the entire thing as:
sub search {
my ($key, $search_field, @data) = @_;
my (@found, %fields);
foreach my $i (@data) {
@fields{'animal', 'color', 'name'} = split (/\,/,$i);
if ($fields{$search_field} =~ /$key/i) {
push @found, $i;
}
}
return @found;
}
But like I said, this can all be rolled into:
@found = grep { (split /,/, $_)[1] =~ /bl/i } @data;
Or, if you want to wrap it up into a function:
use enum qw(ANIMAL COLOR NAME);
## enum module found at CPAN, or use 3 calls to the constant
## module.
sub search ($$@) {
my ($search, $field, @data) = @_;
return grep {
(split /,/, $_)[$field] =~ /$search/i
} @data;
}
@found = search ('bl', COLOR, @data);
Hope this helps!
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 2 Jul 1998 01:07:50 GMT
From: due@murray.fordham.edu (Allan M. Due)
Subject: Re: passing a ref to a subroutine, problem with use strict
Message-Id: <6nemh6$r2i$0@206.165.146.67>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
Zenin,
Holly cats, thank you very much for you post. That was very helpful
and *very* informative. Frankly, I am not sure the quality of the
question deserved the quality of the response but I really appreciate it
none the less. It helps me to see both where and more importantly why I
was going astray.
Just as a tiny aside, I do use -w. I only removed it for this
example it causes an additional error due to the fact that the code
never uses the $animal etc. variables after
($animal,$color,$name) = split(/\,/,$I);
so -w warns, as it should. I was just trying to remove extra error
messages.
Thanks again.
AmD
--
Allan M. Due
Due@Murray.Fordham.edu
The beginning of wisdom is the definitions of terms.
- Socrates
In article <899337840.173891@thrush.omix.com>, Zenin
(zenin@bawdycaste.org) posted...
|Allan M. Due <due@murray.fordham.edu> wrote:
| >snip<
|
| Just to start off, the entire thing can also be done as:
|
| @data = grep {
| (split /,/, $_)[1] =~ /bl/i
| } @data;
|
| But lets look at it closer.
|
|: Can't use string ("color") as a SCALAR ref while "strict refs" in use
|
| You'll get this if you try to deref a value that isn't a hard
| ref but does contain a value (string) already. -If it's undef
| Perl would just magically create the hard ref for you, but
| if there is a value there it will think you wanted to use that
| as a soft ref. Basically, you've got a bug and strict just
| caught it (where the non-use of strict would have likely missed
| it). This is what you want when you use strict. Although
| this script might work correctly, it can easily do things
| in ways you probably didn't intend (like modifiy random global
| values by mistake).
|
|: PS I sometimes get weird spacing when I cut and paste from my text
|: editor to the newsgroup software. My apologies in advance if this post
|: illustrates the weirdness.
|
| "Insert file" on most editors works better, normally.
|
|: #!/usr/local/bin/perl
|
| No -w??? Personally I think use strict should turn -w on by
| default (actually, I think one should be required to "use
| no_warnings" to turn off what should be the default of having
| -w on, but until then). Turn -w on, you'll be much happier
| in the long run (it's even more important then use strict).
|
|: #use strict;
|: my @data = ('dog,black,sparky',
|: 'cat,black,socks',
|: 'dog,white,fido');
|: my $search_on = "color";
|
| Note how your error message mentioned trying to use this string
| as a soft ref? This is where you need to start looking for your
| problem. Something is thinking that this is to be used as a
| reference, not a search string. In this case that's what you
| where trying to do, but there are better ways to go about this.
|
------------------------------
Date: 2 Jul 1998 01:26:40 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: passing a ref to a subroutine, problem with use strict
Message-Id: <899343355.573640@thrush.omix.com>
[posted & mailed]
Allan M. Due <due@murray.fordham.edu> wrote:
: Zenin,
: Holly cats, thank you very much for you post. That was very helpful
: and *very* informative.
NP. Perl isn't small by any extent, and so answers can't always
be small either to actually be helpful in the long run.
: Frankly, I am not sure the quality of the
: question deserved the quality of the response but I really appreciate it
: none the less. It helps me to see both where and more importantly why I
: was going astray.
Which is why I spent the time, instead of my typical read if RTFM =~ /hash/.
:-)
You had a simple problem, but with complex reasons that would just
bite you later in other ways if no "why" was shown. We all started
there once, and we need to remember that. This group pretty much
single handedly replaced any need for me to waste my time on a CS
degree, so I owe a lot to it.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 1 Jul 1998 23:12:05 GMT
From: kortbein@iastate.edu (Josh Kortbein)
Subject: Re: perl and secured payment online?
Message-Id: <6nefo5$69r$4@news.iastate.edu>
DUTOIT (abcdm@wanadoo.fr) wrote:
: Hello,
: I'ld want to use an https protocol in a form.
: I know it's necessary to put , after the Content-type of this HTML page a
: command wich permits to secure the payment (not broken blue left key of
: the screen).
: What is the command to do that in Perl?
: Thank you
: Mr DUTOIT
It sounds like you would do much better to research web servers
capable of maintaining secure connections, as trying to do it in your
CGI script is not the way to go.
Josh
--
_________________________________________________________
I do not trust your bitch.
- Frederich Nietzche, in _Also Sprach Zarathustra_
------------------------------
Date: 1 Jul 1998 23:19:03 GMT
From: kortbein@iastate.edu (Josh Kortbein)
Subject: Re: Perl At Work
Message-Id: <6neg57$69r$5@news.iastate.edu>
Jason Holland (jason.holland@dial.pipex.com) wrote:
: Hello All,
: Is this a sensitive subject, but how many people here actually use Perl
: as part of their daily work? If this is the wrong place to ask, then
: could someone point me (and probably others too!) in the right
: direction.
I would guess that an overwhelming majority of the posters (even the
ones with ill-phrased questions) to this group use perl for work.
: Is there some way of gauging one's skills in Perl against others, to
: determine one's level of expertise? I've been using Perl seriously for
: over a year now, for both web projects and one off utilities.
There was a recent thread which discussed this - somebody had been
appointed the resident perl expert and was expected to interview
applicants, and determine their perl knowledge. The thread was named
"Testing perl knowledge".
: Is there some kind of Perl 'exam' on the Internet at all?
Tom C. posted a delightful quiz in the aforementioned thread.
Josh
--
_________________________________________________________
I do not trust your bitch.
- Frederich Nietzche, in _Also Sprach Zarathustra_
------------------------------
Date: 2 Jul 1998 00:06:37 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Perl At Work
Message-Id: <899338552.275616@thrush.omix.com>
Jason Holland <jason.holland@dial.pipex.com> wrote:
: Is this a sensitive subject, but how many people here actually use Perl
: as part of their daily work?
It's basically all I do.
: with a couple of sizable online applications (is a 9000+ line Perl
: script large?).
Yes, but that's not a problem normally. If you use the rule
of thumb of 1 line of perl being about equal to 10 lines of
C, that's 90000 lines of code. :-)
: Unfortunately my company does not have much of an Internet 'culture',
: the various managers love to discuss Java but are not prepared to pay
: those kind of wages,
The programmer and the work to be done, not the language used
should deside the wage. Most seasoned Perl programmers I know
have rates at least equal to seasoned Java programmers, if not
more.
: The bottom line is, what is the going rate for Perl programmers,
: including satellite functions such as webmastering, maintenance etc? In
: the UK!
This really, really depends on what kind of work (simple form
handling CGI vs full application server design, etc) is being
done, and the person that is to do the work.
: Is there some way of gauging one's skills in Perl against others, to
: determine one's level of expertise? I've been using Perl seriously for
: over a year now, for both web projects and one off utilities.
:
: Is there some kind of Perl 'exam' on the Internet at all?
A few days ago Tom C. posted a pretty interesting "exam". Check
DejaNews.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Wed, 01 Jul 1998 23:51:04 +0200
From: Christoph Wernli <cw@dwc.ch>
To: Mike Schnorr <mschnorr@eeyore.stcloudstate.nospam.edu>
Subject: Re: perl cgi and Java
Message-Id: <359AAF48.1C6F638E@dwc.ch>
Mike Schnorr wrote:
>
>
> output from command line execution
>
> .../WWW/cgi-bin> new.pl
> Content-Type: text/html
>
> here in perl
> got HERE in Java program!!!
> here in perl again
> .../WWW/cgi-bin>
Are you running this as the user under which the webserver runs ? If
not: Are there any classpath issues ?
> Any suggestions or comments would be appreciated sorry to be so long
> winded, I hope
> this all makes sense (I am working way past my bedtime).
It does make sense :)
You could give
$retval = `java.app`;
a try and inspect $retval.
HTH, -werns
------------------------------
Date: Wed, 01 Jul 1998 18:47:45 -0500
From: "Steven J. Hill" <sjhill@plutonium.net>
Subject: Perl scripts with setuid...
Message-Id: <359ACAA1.254F40F9@plutonium.net>
This is a multi-part message in MIME format.
--------------83D6F6E97DC24E1074234533
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
--------------83D6F6E97DC24E1074234533
Content-Type: text/plain; charset=us-ascii; name="post.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="post.txt"
Pardon my ignorance, but I wish to have a Perl script run
as setuid because I get the following the message for the
following Perl script:
***************
SCRIPT
***************
#!/usr/bin/perl
use Net::Ping;
@host_array = qw (192.168.10.1 192.168.10.2);
$p = Net::Ping->new("icmp");
foreach $host (@host_array)
{
print "$host is ";
print "NOT " unless $p->ping($host, 2);
print "reachable.\n";
sleep(1);
}
$p->close();
***************
MESSAGE
***************
icmp ping requires root privilege at line 6
*********************************************************
Why am I getting this message? I am running Perl 5.00403
and I made root the owner of the file with chmod 4755. Help
appreciated. And yes, I did check DejaNews and the FAQ.
Steve
--------------83D6F6E97DC24E1074234533--
------------------------------
Date: Wed, 01 Jul 1998 13:09:53 -0400
From: Russ Conway <russ_conway@NOSPAMgm.cytec.com>
Subject: perl.exe - Entry Point Not Found
Message-Id: <359A6D60.8C372391@NOSPAMgm.cytec.com>
We recently had to add a partition to an NT box that was running Perl
scripts. Everything was supposed to be restored as it was on the new
partition. However, the Perl scripts stopped running. Does anyone
recognize this error?
perl.exe - Entry Point Not Found
The procedure entry point InternetCombineUrlA could not be located in
the dynamic link library WININET.dll
Can't load 'D:\Perl\lib/auto/Win32/Internet/Internet.pll' for module
Win32::Internet: 127 at D:\Perl\lib/DynaLoader.pm line 450.
Obviously, something is not the same. Do I need to associate .pll with
perl.exe?
TIA
------------------------------
Date: Thu, 2 Jul 1998 00:40:03 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: problem with system and ftp
Message-Id: <EvFz6r.EEA@news.boeing.com>
In article <6neeep$l33@titan.imsi.com>, Larry Martell <larrym@imsi.com> wrote:
>I have a file, call it ftp.in, with some ftp commands:
>
>open remote_host
>user user passwd
>ascii
>cd /some/dir
>put testFile
>get testFile /tmp/GetItBack
>bye
>
>And from perl I want to: system("/usr/ucb/ftp -in < ftp.in")
>
>Should work, right? If I invoke that same command from the shell it works.
>Well, from perl it hangs - ftp is prompting for a passwd.
>
>I've found that perl invokes "sh -c /usr/ucb/ftp -in < ftp.in", and if I run
>that it indeed hangs:
>
># sh -c /usr/ucb/ftp -in < ftp.in
>Password:
>
>I found that if I quote it thusly: sh -c "/usr/ucb/ftp -in < ftp.in" it does
>work from the shell, but if I change the system command to:
>
>system("'/usr/ucb/ftp -in < ftp.in'")
>
>It complains:
>
>sh: /usr/ucb/ftp -in < ftp.ftp: not found
>
>How can I system this from perl?
What happens if you say:
system("exec /bin/sh -c '/usr/ucb/ftp -in < ftp.in'");
HTH,
--
Charles DeRykus
------------------------------
Date: 1 Jul 1998 23:31:18 GMT
From: "Ron Savage" <rpsavage@ozemail.com.au>
Subject: Re: problems: compiling module with nmake
Message-Id: <01bda548$df5a3020$43ea1286@steelres-pcm657.resmel.bhp.com.au>
As a wild and baseless guess, try the preferred dmake, which comes with
Perl.
------------------------------
Date: 1 Jul 1998 23:45:00 GMT
From: "Ron Savage" <rpsavage@ozemail.com.au>
Subject: Re: Regular expression matech for ( non-fixed number of () pairs )?
Message-Id: <01bda54a$c9de6480$43ea1286@steelres-pcm657.resmel.bhp.com.au>
Hmm. If you're prepared to expend the effort, you just _might_ be able to
apply a state machine (Discrete Finite Automata) solution to this problem.
See my sig for my web site. Look for DFA::Command.
[snip]
> from the following text. Can perl/shell/sed/awk do this? Or I need to
> resort to lex/yacc? Thanks.
[snip]
------------------------------
Date: 1 Jul 1998 23:54:02 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Regular expression matech for ( non-fixed number of () pairs )?
Message-Id: <6nei6q$n8n$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Michael Wang
<mwang@tech.cicg.ml.com>],
who wrote in article <6ne4rv$d2q$1@news.ml.com>:
> I want to take out
> SID_LIST_listener_name=( ...
> )
> from the following text. Can perl/shell/sed/awk do this? Or I need to
> resort to lex/yacc? Thanks.
>
> What I want to do is to find SID_NAME=SID, but I do not want to find
> it from wrong place. Please note the following text is of free format
> following some rules.
>
> other similar stuff in listener.ora
> SID_LIST_listener_name=[(SID_LIST=]
> (SID_DESC=
> (GLOBAL_DBNAME=global_database_name)
> (SID_NAME=SID)
> (operating_system_specific_
> string=db_location)
> )
> [(SID_DESC=
> (GLOBAL_DBNAME=global_database_name)
> (SID_NAME=SID)
> (operating_system_specific_
> string=db_location)
> )]
> [)]
> other similar stuff in listener.ora
Yes, but you need a bleeding-edge perl (or wait a couple of weeks),
and it is still hard.
Ilya
------------------------------
Date: Wed, 1 Jul 1998 21:21:40 -0400
From: "Penn White" <pwhite@nospamsurfsouth.com>
Subject: require $redir.'setup.pl'; ??
Message-Id: <359ae0d2.0@news.surfsouth.com>
Can anyone explain this line to me? I found it in a perl program I am
trying to adapt for my application and it isn't anything I recognize or have
been able to find in my books.
TIA,
Penn White
------------------------------
Date: 2 Jul 1998 01:35:29 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: require $redir.'setup.pl'; ??
Message-Id: <6neo51$2qi$2@marina.cinenet.net>
Penn White (pwhite@nospamsurfsouth.com) wrote:
: Can anyone explain this line to me? I found it in a perl program I am
: trying to adapt for my application and it isn't anything I recognize or have
: been able to find in my books.
It's usually a good idea to put your whole question in the body of your
message; I stared at yours thinking "What line?" for a while before I
noticed the subject, which I'll copy here for convenience:
require $redir.'setup.pl'; ??
See 'perldoc -f require' if you don't know what that means. The rest is
just building require's argument by string-concatenating a variable (a dir
path, presumably) and a literal string.
Does that help?
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 2 Jul 1998 01:57:15 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: require $redir.'setup.pl'; ??
Message-Id: <899345190.293270@thrush.omix.com>
Penn White <pwhite@nospamsurfsouth.com> wrote:
: Can anyone explain this line to me? I found it in a perl program I am
: trying to adapt for my application and it isn't anything I recognize or have
: been able to find in my books.
perldoc -f require
perldoc perlop (look for the "." operator)
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Wed, 01 Jul 1998 17:58:16 -0700
From: Jessie Indracusin <dontspamme@dontspam.com>
Subject: Re: Testing perl knowledge
Message-Id: <359ADB28.956270B3@dontspam.com>
--------------81CBE50ED55539BDCADE54FE
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
As a person who has three CNEs (Certified NetWare Engineer), I've kept up pretty good on this issue.
California was such a state that had such an issue, however, Novell fought fairly hard on this issue and
won. The Law allows the use of the word Engineer, since it is not the intent of the Certified to imply any
malice in their use of Engineer. If you were to call yourself a "Perl Engineer" and not a "Certified Perl
Engineer" the legal issues would bind to you. Novell also pointed out the concept of the "Sanitation
Engineer" and everyone knows a garbage man does not go to an Ivy League school
Snowhare wrote:
>
>
> Nothing above this line is part of the signed message.
>
> In article <6n1g9m$jb2$1@news.NERO.NET>,
> John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
> >In article <eli$9806251708@qz.little-neck.ny.us>,
> >Eli the Bearded <*@qz.to> wrote:
> >
> >>It is well within my rights to state (after
> >>being certified whatever by Chris) that I am a Chris Nandor Certified
> >>Whatever.
> >
> >Yes, you may certainly call yourself a Certified Whatever. I'm simply
> >pointing out that in some places, if you call yourself an Engineer you
> >might be violating the law. Not that I care, I'm just pointing it out
> >in case there are people here who care about not violating laws and
> >such. If you aren't one of them, that's nice. Do what you will.
> >
>
> You both might find the following URLs interesting reading.
>
> <URL:http://www.prnewswire.com/cgi-bin/stories.pl?ACCT=105&STORY=/www/story/04-14-1998/0000631351&EDATE=>
>
> <URL:http://www.prnewswire.com/cgi-bin/stories.pl?ACCT=105&STORY=/www/story/7-14-97/275622&EDATE=>
>
> They are regarding attempts by some states to prevent Novell from using
> the word 'Engineer' as part of their 'Certified NetWare/Novell Engineer'
> title.
>
> About all that is clear to me is that some degree of confusion exists in
> the area and that people without the monetary resources to fight a legal
> battle would be wise to steer clear of the whole thing.
>
> Benjamin Franz
>
>
> Version: 2.6.2
>
> iQCVAwUBNZV2EOjpikN3V52xAQF4WQP+PwNsURWz28o+/cUWnDSJNKbTqNZU70CJ
> Fme7cpAIwjnWYRAUqqw0ufybSegRJKF/uUQ/OoTdW3mm7FBLtSebRbKCh3UJyRYw
> aTUmjQs3CLLPAKKjrzU+7mZr6FZLyOLshRXSeaizBD3PlkPfB5tLLo5WXnyotn9c
> DwTaneOBp8I=
> =h9A1
> -----END PGP SIGNATURE-----
--------------81CBE50ED55539BDCADE54FE
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
As a person who has three CNEs (Certified NetWare Engineer), I've kept
up pretty good on this issue. California was such a state that had
such an issue, however, Novell fought fairly hard on this issue and won.
The Law allows the use of the word Engineer, since it is not the intent
of the Certified to imply any malice in their use of Engineer. If
you were to call yourself a "Perl Engineer" and not a "Certified Perl Engineer"
the legal issues would bind to you. Novell also pointed out the concept
of the "Sanitation Engineer" and everyone knows a garbage man does not
go to an Ivy League school
<P>Snowhare wrote:
<BLOCKQUOTE TYPE=CITE>
<P>Nothing above this line is part of the signed message.
<P>In article <6n1g9m$jb2$1@news.NERO.NET>,
<BR>John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
<BR>>In article <eli$9806251708@qz.little-neck.ny.us>,
<BR>>Eli the Bearded <*@qz.to> wrote:
<BR>>
<BR>>>It is well within my rights to state (after
<BR>>>being certified whatever by Chris) that I am a Chris Nandor Certified
<BR>>>Whatever.
<BR>>
<BR>>Yes, you may certainly call yourself a Certified Whatever. I'm simply
<BR>>pointing out that in some places, if you call yourself an Engineer
you
<BR>>might be violating the law. Not that I care, I'm just pointing it
out
<BR>>in case there are people here who care about not violating laws and
<BR>>such. If you aren't one of them, that's nice. Do what you will.
<BR>>
<P>You both might find the following URLs interesting reading.
<P><URL:<A HREF="http://www.prnewswire.com/cgi-bin/stories.pl?ACCT=105&STORY=/www/story/04-14-1998/0000631351&EDATE=">http://www.prnewswire.com/cgi-bin/stories.pl?ACCT=105&STORY=/www/story/04-14-1998/0000631351&EDATE=</A>>
<P><URL:<A HREF="http://www.prnewswire.com/cgi-bin/stories.pl?ACCT=105&STORY=/www/story/7-14-97/275622&EDATE=">http://www.prnewswire.com/cgi-bin/stories.pl?ACCT=105&STORY=/www/story/7-14-97/275622&EDATE=</A>>
<P>They are regarding attempts by some states to prevent Novell from using
<BR>the word 'Engineer' as part of their 'Certified NetWare/Novell Engineer'
<BR>title.
<P>About all that is clear to me is that some degree of confusion exists
in
<BR>the area and that people without the monetary resources to fight a
legal
<BR>battle would be wise to steer clear of the whole thing.
<P>Benjamin Franz
<P>
<BR>Version: 2.6.2
<P>iQCVAwUBNZV2EOjpikN3V52xAQF4WQP+PwNsURWz28o+/cUWnDSJNKbTqNZU70CJ
<BR>Fme7cpAIwjnWYRAUqqw0ufybSegRJKF/uUQ/OoTdW3mm7FBLtSebRbKCh3UJyRYw
<BR>aTUmjQs3CLLPAKKjrzU+7mZr6FZLyOLshRXSeaizBD3PlkPfB5tLLo5WXnyotn9c
<BR>DwTaneOBp8I=
<BR>=h9A1
<BR>-----END PGP SIGNATURE-----</BLOCKQUOTE>
</HTML>
--------------81CBE50ED55539BDCADE54FE--
------------------------------
Date: 1 Jul 1998 12:08:20 -0700
From: eggert@twinsun.com (Paul Eggert)
Subject: Re: timelocal function in 2000
Message-Id: <6ne1f4$evq$1@tattoo.twinsun.com>
"Darren A. Blair" <darren.blair@csfb.com> writes:
>I use the timelocal in a bunch of scripts that are making calculations
>on dates using the timelocal function. Does anyone know what will
>happen using this function with dates in the year 2000 and beyond?
I'd avoid timelocal entirely; it's buggy and nobody's maintaining it.
Use Perl's mktime function (in the POSIX module) instead.
------------------------------
Date: 1 Jul 1998 18:30:39 -0500
From: Tushar Samant <scribble@pobox.com>
Subject: Re: Vertical Perl
Message-Id: <6negqv$2er@tekka.wwa.com>
Or if you are a lowlife who lives for coarse buffoonery alone ...
for (@lines = map {chomp; $max = length if $max < length; $_} <>)
{undef substr $_.=' 'x$max,$max}
print map "$_\n", reverse map {join '', map chop, @lines} 1..$max
------------------------------
Date: 2 Jul 1998 00:01:24 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Vertical Perl
Message-Id: <6neikk$2qi$1@marina.cinenet.net>
Zenin (zenin@bawdycaste.org) wrote:
: : Questions:
: : Is there a way to access string elements like
: : $string[2] = "t" for aboce example
:
: Split the string on null, the things that don't exist between
: chars.
:
: @string = split //, "string";
: print $string[2]; # prints 'r'
Or use substr:
print substr('string', 2, 1); # prints 'r';
: : Is there a such thing as character arrays like:
: : $character_array = (80,24) where $character_array[0,0] gives you the top
: : row, left column character of the array.
:
: # build it
: while (<>) {
: my @chars = split //, $_;
: push @character_array, \@chars; # Note the \
: }
Or:
push @character_array, [ split // ] while <>;
Or:
@character_array = map { [ split // ] } <>;
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 02 Jul 1998 00:01:51 +0200
From: Christoph Wernli <cw@dwc.ch>
Subject: Re: Wait Command in Perl
Message-Id: <359AB1CF.7D21FFE3@dwc.ch>
Michael Harrison wrote:
>
> I need to get a script to wait about 10-12 seconds while a file is produced.
> The script writes a request file for ICVerify and the needs to stall for
> 10-12 secs while the answer file is produced. My questions is, is there any
> easy way to do this.
sleep 12;
> Second after I read in the .answer file I need to read only the first char
> of the file to see if it is an "A" or "N" and the give the result back to
> the client. What is and easy way to strip all char from a Filehandler but
> the first. chop() gets the last char, is there away to reverse that.
$char = substr(<FH>, 0, 1);
> send answers to admin@hosttech.com
Ask here, get the solution here.
-werns
------------------------------
Date: Wed, 01 Jul 1998 23:17:54 +0200
From: Christoph Wernli <cw@dwc.ch>
Subject: Re: What is wrong with this script?
Message-Id: <359AA782.EF162D8C@dwc.ch>
sprigen687@pop.dnvr.uswest.net wrote:
>
> I'm trying to run a script through Perl and send a HTML document back,
> only Netscape thinks the document contians no data. When I check it
> with Perl, it says they're are no syntax errors, so I don't know what's
> going on. I'll show it to you and maybe you can see what's wrong with
> it.
>
> use CGI; # Uses CGI.pm module
> $query = new CGI('value=hello');
> $outcome = $query->param('value');
> print "Content-type: text/html\n\n";
> print "<HTML><HEAD>\n";
> print "<TITLE>See what you typed</TITLE>\n";
> print "</HEAD><BODY BGCOLOR=#FFFFFF>\n";
> print "<P>You typed $outcome</P>\n";
> print "</BODY></HTML>\n";
>
> I thought printing the Content-type would work, but it doesn't seem to
> do so.
In any case replace
print "Content-type: text/html\n\n";
with
print $query->header;
to be on the safe side.
Cheers, -werns
------------------------------
Date: 2 Jul 1998 01:32:52 GMT
From: insider@comet.connix.com (Stephen L. Vinson)
Subject: while (<CSV_FILE>) doesn't work with NT
Message-Id: <6neo04$b75@beast.connix.com>
I'm new to Perl, but have successfully written a Perl 5 script that reads
a CSV file and queries its contents. The script works fine on a
Unix-based server, but fails to do the same thing on an NT-based server
(called "Site Stack" if this helps). Here's the pertinent code. Assume I
log in as IADM_STEVE, so my base directory is "/~steve":
$basedir = "/~steve";
$datafile = "phonelist.csv";
open(PHONE_LIST,"$basedir/$datafile");
...code up this point works fine...
while (<PHONE_LIST>)
{
...this code NEVER gets executed...
}
...code down here also works fine...
It appears my script is failing to locate (or acknowledge) the CSV file.
But my script also displays image files, and those are being displayed
properly (i.e., by $basedir reference seems to be correct).
So where am I going wrong?
I've ordered the "Learning Perl 5 on NT" book, but won't get it for
several days... any help on this matter in the mean time would be GREATLY
appreciated!
Thanks,
Steve
------------------------------
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 3042
**************************************
