[8233] in Perl-Users-Digest
Perl-Users Digest, Issue: 1850 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Feb 10 18:15:34 1998
Date: Tue, 10 Feb 98 15:00:25 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 10 Feb 1998 Volume: 8 Number: 1850
Today's topics:
Re: *Web PERL Function Ref.* (I R A Aggie)
? Regular Expressions ? <fp@pmpcs.com>
Child processes <Doug.Brown@abbott.com>
Re: Child processes <tchrist@mox.perl.com>
Re: debugging perl script <rootbeer@teleport.com>
Re: defined() bug? (or feature? :) <morganm@qualcomm.com>
Re: From another wingeing newbie (Martien Verbruggen)
Re: Happy with Perl? (Steve Linberg)
Hashes Usage <SNIPhsommer@micro.ti.comSNIP>
HELP ODBC sql stmt failing when using WHERE LIKE mashton@4all.com
Re: Help! Simple question needs simple solution. (Kelly Hirano)
Re: Help! Simple question needs simple solution. (Craig Berry)
HTTP::Request -- Using POST to cgi forms <y-pisan@nwu.edu>
Huge arrays: 'Out of Memory' <shermo@sb.grci.com>
Re: Huge arrays: 'Out of Memory' <tchrist@mox.perl.com>
I have a glob prob <steve@undergroundshopper.com>
Re: Killfile Triage (Tom Grydeland)
Learning Perl (James L. Taylor)
Re: Learning Perl (Steve Linberg)
Re: Location-variable <rootbeer@teleport.com>
Matt's Script Archive (James L. Taylor)
Password script needed desperately. (Robert Nedelcu)
Re: RFC about ``Matt's Script Archive'' <tchrist@mox.perl.com>
Re: RFC about ``Matt's Script Archive'' <joneil@cks.ssd.k12.wa.us>
Re: RFC about ``Matt's Script Archive'' (Steve Linberg)
Re: RFC about ``Matt's Script Archive'' (Craig Berry)
Re: RFC about ``Matt's Script Archive'' <tchrist@mox.perl.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 10 Feb 1998 16:17:13 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: *Web PERL Function Ref.*
Message-Id: <fl_aggie-1002981617130001@aggie.coaps.fsu.edu>
In article <6bqbi5$q94$1@murdoch.acc.Virginia.EDU>, Hungwen Lin
<hl5a@Virginia.EDU> wrote:
+ Hi,
+ Can anyone point me to a good website with good reference for
+ PERL Builtin Functions?
How about this? From a unix command line:
% perldoc -f function_name
?? There should also be a program in the source distribution to regenerate
all the .pod files into hypertext documents. Someone even went to the
trouble of creating a PDF version, which I imagine is searchable.
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Tue, 10 Feb 1998 17:33:42 -0500
From: "Peter Perchansky" <fp@pmpcs.com>
Subject: ? Regular Expressions ?
Message-Id: <34e0d5e4.0@news1.ibm.net>
Greetings:
Problem statement:
I have a string that may contain one or more comma delimited email
addresses. I only want to add an email address to this list if the alias
portion of the email address is not already within the list.
What I've tried:
$_ = $receiverlist;
if (!(/($singlereceiver)/)) ## if receiver isn't already in list
{
$receiverlist . "," . $singlereceiver;
}
Problem with what I've tried.... It matches the host (example: @pmpcs.com)
name and excludes all aliases because the host is the same even though the
prefix (alias portion) is different.
Any advice? Thoughts? Please email response as well as post to group if
convenient. Thank you.
--
===========================================================
Peter Perchansky, Computer Consultant & Microsoft FrontPage MVP
Dynamic Net, Inc. DBA PMP Computer Solutions
Internet Programming, Web Site Promotion, and more
FrontPage Web Hosting at http://www.pmpcs.com/services/fpwebhosting.htm
FrontPage Support http://www.pmpcs.com/support/frontpage.htm
------------------------------
Date: Tue, 10 Feb 1998 14:59:44 -0600
From: Doug Brown <Doug.Brown@abbott.com>
Subject: Child processes
Message-Id: <34E0BFBF.55A2737B@abbott.com>
I need some expert Perl advice for the following problem.
I need to determine the availability of devices on the network.
Availability being at the least able to ping, no snmp gets, etc;. I can
scroll thru a list of devices to ping and if one doesn't answer, run
another script that will try to contact the identified device at least 4
more times in the span of say 45 minutes. How can I call the second
script while still trying to ping the other devices? I have found the
fork command with exec but I may need to spawn several ( more than 1 or
two ) additional calls to the other script. Is this possible? How can
I at the end of the list check if I still have "children" pinging?
Thanks
Doug Brown
------------------------------
Date: 10 Feb 1998 21:53:10 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Child processes
Message-Id: <6bqi86$23v$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, Doug.Brown@abbott.com writes:
:How can I at the end of the list check if I still have "children" pinging?
When you fork, save the pid in a hash. When you reap, delete whoever
just died. keys of that hash will be the outstanding kids.
See my recent posting about "multithreaded servers".
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"If you think Emacs is such a great editor, just look what it did for
Richard Stallman's typing skills!"
------------------------------
Date: Tue, 10 Feb 1998 12:52:39 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Ian Samson <IDSamson@Beauty.HSRC.ac.za>
Subject: Re: debugging perl script
Message-Id: <Pine.GSO.3.96.980210125223.26052Q-100000@user2.teleport.com>
On Tue, 10 Feb 1998, Ian Samson wrote:
> Each time I test it in the browser, I get a message that says "The server
> returned an invalid or unrecognized response". How do I find out which line
> is causing the error?
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 10 Feb 1998 14:06:10 -0800
From: Mark Morgan <morganm@qualcomm.com>
To: Kingpin <mthurn@irnet.rest.tasc.com>
Subject: Re: defined() bug? (or feature? :)
Message-Id: <Pine.GSO.3.95.980210140129.23649G-100000@dragon.qualcomm.com>
On 10 Feb 1998, Kingpin wrote:
> Mark Morgan <morganm@qualcomm.com> writes:
> >
> > I have a module named CONFIG.pm, who's job is to read in a configfile and
> > load the entries of that file into global variables. So the line:
> >
> > FOO = somevalue
>
> Is it unacceptable to add some dollar signs, quotes, and semicolons
> to your config file, so you can just require it?
>
> $FOO = 'somevalue';
>
Unfortunately, I can't do that, as we use a combination of both C-shell
scripts and Perl scripts, and I want to be able to source the C-shell
config files and use the variables from there, also. So the CONFIG.pm was
written to be able to source C-shell files without choking on them, and is
a necessity, since I can't change the C-shell config files to look like
perl.. :P (I don't think csh would appreciate that too much :)
- Mark
------------------------------
Date: 10 Feb 1998 21:37:39 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: From another wingeing newbie
Message-Id: <6bqhb3$pg4$2@comdyn.comdyn.com.au>
Please read the following article on how to choose a good subject line:
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
Please make sure that the text you send out is properly wrapped. I
won't reformat what you sent, so you can see how it looks to most
people.
In article <34DFDDC2.899A8760@dial.pipex.com>,
Matthew Pryor <matt.pryor@dial.pipex.com> writes:
> I'm brand new to Perl. Found some excellent resources on the www and in
> the
> documents accompanying the binary, however I'm still a little stumped on
> one
> issue and wonder if anyone can point me in the right direction to find
> the answer.
See what I mean?
> I'd like to know if there's any way for the output to be sent to the
> browser instead of spawning a new command line. Any info or pointers
> would be much appreciated. I'm
This really has nothing to do with perl at all, but with a
configuration of whatever web server you are using on your system to
test the stuff. If you use CGI.pm you can just test from the command
line.
Please read the following useful information:
http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.com/CPAN/doc/FAQs/cgi/perl-cgi-faq.html
http://www.perl.com/CPAN/doc/FAQs/win32/Perl_for_Win32_FAQ.html
You can also ask this question on a group that is specific to the web
server and operating system you're using.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | A Freudian slip is when you say one
Commercial Dynamics Pty. Ltd. | thing but mean your mother.
NSW, Australia |
------------------------------
Date: Tue, 10 Feb 1998 17:40:56 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Happy with Perl?
Message-Id: <linberg-1002981740560001@projdirc.literacy.upenn.edu>
In article <01bd3613$2e469ca0$ea3670c2@lwnvf>, "nwi-tech"
<nwi-tech@dircon.net> wrote:
> i just thought i'd let you know comments like
>
> > > Unsupported ? UNSUPPORTED ??? What the @##@!% do you think the
> people in
> > > this newsgroup are doing ? Sheesh, the nerve of some people... :-)
>
> are unwelcome on the whole. it was only a simple question. net bods bite
> too many peoples heads off about simple things.
Oh, &@#^*!. Did you not notice the :-)? Some -- forgive the term --
clueless newbies are far too sensitive. The world is a big place.
Consider thanking people for their answers instead of complaining about
one you didn't like.
--
Steve Linberg | National Center on Adult Literacy
Systems Programmer etc. | University of Pennsylvania
linberg@literacy.upenn.edu | http://www.literacyonline.org
------------------------------
Date: Tue, 10 Feb 1998 16:15:15 -0600
From: Holly Sommer <SNIPhsommer@micro.ti.comSNIP>
Subject: Hashes Usage
Message-Id: <34E0D173.B1BB054C@micro.ti.comSNIP>
Let me preface by saying I have primarily a C background, so I'm still
in the process of learning to deal with common programming elements in
the correct vernacular.
I've got a text file which will be altered by numerous people -
essentially, I have a flatfile dB file, with entries which consist of
a fixed number of fields (key-value pairs).
It makes sense to reference the information in this dB file (and search
across it) by using hashes. Now, I know how to do this with structs in
C, but am at a bit of a loss figuring out how to dynamically (or, "on-
the-fly") generate/read/initialize hashes.
In looking through the blue camel book, pages 270 - 271 seem to delve
into this matter. However, the examples given operate in examples where
the data being stuck into the hashes is known ahead of time, and I'm
dealing with a dynamically-changing dB, so it's a little bit different.
The setup, then, looks like this (to simplify):
+--------- dB file -------+
| Field1: Value1 |
| Field2: Value2 |
| Field3: Value3 |
| Field4: Value4 |
| Field5: Value5 |
| End |
~ repeats, with second ~
~ entry in the dB file ~
+-------------------------+
For each entry, "Value1" is unique, so I figured that would make a good
key for referencing elements of this hash. However, I am uncertain
of how to access the elements for each entry. In C, it would look
like:
Value1.Field2 = Value2;
(assigning Value2 to Field2 in the Value1 instance of this struct -
where Value1 is being used as the name of this instance).
How would I initialize and reference this with hashes in perl?
If anyone can shed some light, I'm sure an epiphany isn't far off. (Heh,
going on Murphy's Laws of Usenet Posting, I'll probably realize exactly
how to do this, immediately after sending off this post ;)
TIA,
Holly
------------------------------
Date: Tue, 10 Feb 1998 15:13:05 -0600
From: mashton@4all.com
Subject: HELP ODBC sql stmt failing when using WHERE LIKE
Message-Id: <887141789.1308229634@dejanews.com>
would appreciate any help on figuring out why this SQL statement fails.
Env is NT4.0, Perl 5.003, using Win32::ODBC, and Access 97.
Here is the statement: SELECT access_date, Count(*) AS Hits,
Sum(Elapsed_time)/1000 AS [Total Elapsed Time], Sum(Bytes_in) AS [Total
In], Sum(Bytes_out) AS [Total Out FROM access_log WHERE (Target like
"*4all*") GROUP BY access_date;
And here is the Error code:
[-3100] [1] [0] "[Microsoft][ODBC Microsoft Access 97 Driver] Expression
cannot be used with the LIKE predicate. in query expression '(Target
alike `*4all*`)'."
target is a defined field. If I remove the WHERE clause it runs fine. If
I run it as a query within Access it runs fine.
Any help or input would be appreciated.
Thx, Mike
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 10 Feb 1998 13:27:23 -0800
From: hirano@Xenon.Stanford.EDU (Kelly Hirano)
Subject: Re: Help! Simple question needs simple solution.
Message-Id: <6bqgnr$cti@Xenon.Stanford.EDU>
In article <Pine.ULT.3.94.980210140001.20103B-100000@bit.csc.lsu.edu>,
GREGORY GILLELAND <gregory@bit.csc.lsu.edu> wrote:
>$authriz = "cow"; [declared at beginning of program]
>
>[following is inside a get variable procedure]
> if ($FORM{'pw'}) {
> $pw = "$FORM{'pw'}";
> $pw =~ s/"//g;
> $pw =~ s/<//g;
> $pw =~ s/>//g;
> $pw =~ s/\&//g;
> }
> else {
> &error(no_pw);
> }
>
> if ($pw != $authrz) { [* this is the problem]
> &error(wrong_pw);
> }
>
you should really get your hands on a perl book.
try using
if ($pw ne $authrz)
ne is "not equals" and is used for string comparison.
kelly
--
Kelly William Hirano Stanford Athletics:
hirano@cs.stanford.edu http://www.gostanford.com/
hirano@alumni.stanford.org (WE) BEAT CAL (AGAIN)! 100th BIG GAME: 21-20
--
Kelly William Hirano Stanford Athletics:
hirano@cs.stanford.edu http://www.gostanford.com/
hirano@alumni.stanford.org (WE) BEAT CAL (AGAIN)! 100th BIG GAME: 21-20
------------------------------
Date: 10 Feb 1998 21:37:58 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Help! Simple question needs simple solution.
Message-Id: <6bqhbm$he5$4@marina.cinenet.net>
GREGORY GILLELAND (gregory@bit.csc.lsu.edu) wrote:
: I am working on a PERL program and I am having a little trouble
: with a string compare. I have narrowed it down to the * line below
: and I am assuming that it is just that there is a special way to
: do string compares.
Why assume when you can read the manual? The online doc, as well as both
the Llama and Camel books, cover this exhaustively. Grepping on
"string.*equal" through the pod found it for me in two seconds. Why
bother thousands of people with a question you can answer in the comfort
and privacy of your own office?
: I hope you forgive me for my lack of knowledge
Lack of knowledge requires no apology. Lack of due diligence does.
: but this is in haste
By my estimate, you could have had the answer approximately 100 times
faster by looking it up yourself.
: $authriz = "cow"; [declared at beginning of program]
:
: [following is inside a get variable procedure]
: if ($FORM{'pw'}) {
: $pw = "$FORM{'pw'}";
Why go to all that quoting when $FORM{pw} means the same thing
(practically always, and true for your code).
: $pw =~ s/"//g;
: $pw =~ s/<//g;
: $pw =~ s/>//g;
: $pw =~ s/\&//g;
Might I suggest the somewhat briefer
$pw =~ tr/"<>&//d;
: }
: else {
: &error(no_pw);
Not running with -w? Why torture yourself?
: if ($pw != $authrz) { [* this is the problem]
Go forth and read the doc. Achieve enlightenment. Amaze your friends.
---------------------------------------------------------------------
| 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: 10 Feb 1998 15:38:46 -0600
From: Yusuf Pisan <y-pisan@nwu.edu>
Subject: HTTP::Request -- Using POST to cgi forms
Message-Id: <wkiuqnywbd.fsf@nwu.edu>
[I asked this question on comp.lang.perl.modules, but did not get any
responses. Maybe this newsgroup will be more fruitful!]
I am trying to use the program below to 'POST' a message-id to
dehanews pages and read the response. I get the following error when
I try to run the program
Can't call method "clone" on unblessed reference at
/usr/local/lib/perl5/site_perl/HTTP/Message.pm line 50.
I am using perl version 5.004_04 built for aix.
Any suggestions on what I might be doing wrong??
Yusuf
Ps: Please email your response or post and email your response.
--------------------------------------------------
#!/usr/local/bin/perl5
# Dejanews message-id search form is at http://www.dejanews.com/forms/mid.shtml
# The form gets posted to http://search.dejanews.com/msgid.xp
$post = 'http://search.dejanews.com/msgid.xp';
$message_id = '<199801302242.QAA04201@relay.acns.nwu.edu>';
# Variables in the form are
# <input type="text" name="MID" size="42">
# <input type="hidden" name="ST" size="QS">
# <input type="hidden" name="AH" value="1">
require HTTP::Request;
require LWP::UserAgent;
$ua = new LWP::UserAgent;
$request = new HTTP::Request 'POST', $post,
[ MID => $message_id,
ST => '',
AH => '1'
];
$response = $ua->request($request);
print $response->content;
# Using the following verions
# $Id: Message.pm,v 1.22 1998/01/06 09:54:51 aas Exp $
# $Id: Headers.pm,v 1.31 1998/01/06 09:54:14 aas Exp $
# $Id: Request.pm,v 1.22 1998/01/06 09:57:15 aas Exp $
------------------------------
Date: Tue, 10 Feb 1998 13:21:23 -0800
From: "Howard S. Ostrowsky" <shermo@sb.grci.com>
Subject: Huge arrays: 'Out of Memory'
Message-Id: <34E0C4D2.E61D7F@sb.grci.com>
Hi:
I have been using Perl to process sometimes-very-large data files.
It is a great advantage when the entire file can be slurped into
memory all at onec. But sometimes the files are too long. Then
I get a crash (or a hang -- same thing) with the 'Out of Memory'
message. The problem is, I have no idea which files will cause this
error until I try them.
Is there some way I could intercept the error message before the crash
and try to recover from the problem (possibly by subdividing the
input file)? Although I have been using Perl pretty successfully for
about a year now, I have no idea what might be the best way to
attack this problem.
Help and advice very welcome. TIA.
Sherm Ostrowsky
------------------------------
Date: 10 Feb 1998 21:56:21 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Huge arrays: 'Out of Memory'
Message-Id: <6bqie5$23v$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, "Howard S. Ostrowsky" <shermo@sb.grci.com> writes:
:I have been using Perl to process sometimes-very-large data files.
:It is a great advantage when the entire file can be slurped into
:memory all at onec. But sometimes the files are too long. Then
:I get a crash (or a hang -- same thing) with the 'Out of Memory'
:message. The problem is, I have no idea which files will cause this
:error until I try them.
:
:Is there some way I could intercept the error message before the crash
:and try to recover from the problem (possibly by subdividing the
:input file)?
You might investigate the $^M variable in recent releases, but I really
would not count on it. Better that you should find a scalable solution.
Reading everything at once is seldom necessary. For example,
this doesn't require it to print out all the block between THIS
and THAT:
while (<>) {
print if /THIS/ ... /THAT/;
}
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
""Lurking" is one metaphor that the Omniscience has allowed us to borrow."
--Larry Wall
------------------------------
Date: Tue, 10 Feb 1998 16:01:16 -0600
From: Steve Walker <steve@undergroundshopper.com>
Subject: I have a glob prob
Message-Id: <34E0CE2C.CA8B2135@undergroundshopper.com>
Hi all...
I have never used glob before, but need to generate a web page based on
the existence of certain files in a certain directory.
Here is basically what I have (removing the gory details) in my cgi:
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print qq!<HTML><HEAD></HEAD><BODY>!;
$counter_dir = "./Counter";
while (glob ("$counter_dir/count_*"))
{
print $_;
}
print qq!</BODY></HTML>!;
# End of cgi
Here is the source of the page generated by this cgi:
<HTML>
<HEAD>
</HEAD>
<BODY>
</BODY>
</HTML>
# End of page
There *are* files of the form count_* in the directory. If I run this
program from the shell, it outputs as expected, giving the file names
that match in that directory.
I can't figure out what is going on here....any suggestions?
------------------------------
Date: 10 Feb 1998 21:35:09 GMT
From: Tom.Grydeland@phys.uit.no (Tom Grydeland)
Subject: Re: Killfile Triage
Message-Id: <slrn6e1i0d.hio.Tom.Grydeland@mitra.phys.uit.no>
On 9 Feb 1998 22:16:24 GMT,
Tom Christiansen <tchrist@mox.perl.com> wrote:
> Happy newsreading! If anyone has other good killfile lines,
> please share them with others.
Since you ask: Here are some of mine - for a slightly doctored slrn
The regexes should work equally well with other killfile synaxes.
(As you'll surely notice, these are case insensitive, and the (^|[^a-z])
and ([^a-z]|$) are simply poor man's \< and \>, or \b/\B if you like.)
Score:: -100
Subject: beginner
Subject: newbie
Subject: novice
Subject: stupid
Subject: help!
Subject: (^|[^a-z])win(dows)?.*(3\.1|32|95)
Subject: (^|[^a-z])(win(dows)?)?nt( *[0-5.]+)?([^a-z]|$)
Subject: (^|[^a-z])os/2
Subject: (^|[^a-z])m(icro)?[s$](oft)(access|word)?([^a-z]|$)
Subject: (^|[^a-z])pc([^a-z]|$)
Subject: (^|ms[- /]?|[^a-z])dos([^a-z]|$)
(Since NT often is used by itself, it is in fact necessary to use two
lines for you-know-what)
These lines come in addition to global patterns like
Score:: -500
Subject: ^(re: )?(just)? *test(ing)?[ ,]*(please)? *(ignore)?[,.!?]*$
Subject: ^(re: )?(please)? *help[ ,]*(please)? *[ ,.!?]*$
Score:: -10
Subject: !!
Subject: \$\$
Subject: \?\?
Score:: -90
Subject: !!!
Subject: \$\$\$
Subject: \?\?\?
Score:: -900
Subject: !!!!
Subject: \$\$\$\$
Subject: \?\?\?\?
> Tom Christiansen tchrist@jhereg.perl.com
--
//Tom Grydeland <Tom.Grydeland@phys.uit.no>
------------------------------
Date: Tue, 10 Feb 1998 22:02:08 GMT
From: cowboy@cnnw.net (James L. Taylor)
Subject: Learning Perl
Message-Id: <34e0cc46.164964939@news.cnnw.net>
Hi All,
Ok I'm getting confused here as to where I should start. I am a total
Rookie to all of this and I know nothing..I dont know C, C++, Unix or
any of it....where do I start? I have several books that I purchased
and not sure what one to start with, I have Learning Perl, Programming
Perl, CGI Progamming, and Teach yourself CGI Programming with Perl 5,
I'm reading Programming Perl at the moment and I am understanding some
but not all of it, I do the excercises in the book and they eventually
work when I figure out what I have done wrong, but the symbols, codes,
syntax's whatever they are called, I don't understand what they mean
or how they are used, some of it is explained and what they mean, but
this old dog isn't grasping alot of it...is this the book I need to
BEGIN with or am I to far ahead of myself??
James L. Taylor
------------------------------
Date: Tue, 10 Feb 1998 17:45:27 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Learning Perl
Message-Id: <linberg-1002981745270001@projdirc.literacy.upenn.edu>
In article <34e0cc46.164964939@news.cnnw.net>, cowboy@cnnw.net (James L.
Taylor) wrote:
> Ok I'm getting confused here as to where I should start.
Start with Learning Perl. Then Programming Perl. Then Advanced Perl
Programming.
--
Steve Linberg | National Center on Adult Literacy
Systems Programmer etc. | University of Pennsylvania
linberg@literacy.upenn.edu | http://www.literacyonline.org
------------------------------
Date: Tue, 10 Feb 1998 12:50:16 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Rene Hertell <t1812@nospam.net>
Subject: Re: Location-variable
Message-Id: <Pine.GSO.3.96.980210124928.26052P-100000@user2.teleport.com>
On 10 Feb 1998, Rene Hertell wrote:
> Is there any other variable instad of the location: variable available.
All of the variables are other than the location: variable in Perl, since
there isn't a location: variable. Perhaps you want a different newsgroup.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 10 Feb 1998 21:46:53 GMT
From: cowboy@cnnw.net (James L. Taylor)
Subject: Matt's Script Archive
Message-Id: <34e0c93e.164189402@news.cnnw.net>
I have used Matt's "FREE" script's, and I use his guest book on one of
my web pages and I have never had a problem with it, as a matter of
fact that script is what has made me want to learn perl, I have also
check out and played with other scripts that he has written and
haven't found any problems with them, I don't know much about perl at
all but just looking at how he has written tham has taught me some
good things...I think what Matt is doing is great and I hope he keeps
up what he is doing.
Just my point of view about all the posts here about Matt's scripts :)
James L.Taylor
------------------------------
Date: Tue, 10 Feb 1998 22:42:58 GMT
From: nedelcu@algonet.se (Robert Nedelcu)
Subject: Password script needed desperately.
Message-Id: <34e0d7e3.20042213@news.algonet.se>
Hi. My first post here. I need a password script badly, a simple
user/pasword entry script that can protect html as well as
administration scripts in perl. My system works with cgi-wrap and
makes a little fuzz about it. No email confirmations, no extras, just
a simple plain password script.
Is there anyone out there who could help on this one? Please do...I
can't get any sleep right now.
/Rob
------------------------------
Date: 10 Feb 1998 21:00:18 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: RFC about ``Matt's Script Archive''
Message-Id: <6bqf52$on7$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
linberg@literacy.upenn.edu (Steve Linberg) writes:
:I'm not trying to be pedantic, here, just wondering about the larger goal
:of this thread. Are you planning some kind of recommendation for or
:against Matt's scripts?
Yes: I'm recommmending that he bother to fix them, and that they not be
held up in exemplary fashion until such time as this should occur.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
There's going to be no serious problem after this. --Ken Thompson
------------------------------
Date: Tue, 10 Feb 1998 13:20:30 -0800
From: Jerome O'Neil <joneil@cks.ssd.k12.wa.us>
To: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: RFC about ``Matt's Script Archive''
Message-Id: <34E0C49E.B08D6012@cks.ssd.k12.wa.us>
Tom Christiansen wrote:
> In comp.lang.perl.misc, linberg@literacy.upenn.edu (Steve Linberg) writes:
> :However, in Matt's defense, I would point out that the scripts there are
> :(a) free and (b) fairly stable -
>
> Free stuff isn't by its very nature automatically good stuff.
> And something that's stable can also be dead.
I think the biggest problem with M.S.A. is that the scripts work for Matt, but
the majority of people trying to use them are from the
"Wintel/AOL/FrontPage/push-a-button/HTML-is-programming/no-programming-required"
school of non-learning. It isn't a problem with the code, per se, but with those
trying to use it.
Jerome "I'm not stable, either" O'Neil
------------------------------
Date: Tue, 10 Feb 1998 16:33:06 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: RFC about ``Matt's Script Archive''
Message-Id: <linberg-1002981633060001@projdirc.literacy.upenn.edu>
In article <6bqf52$on7$1@csnews.cs.colorado.edu>, tchrist@mox.perl.com
(Tom Christiansen) wrote:
> In comp.lang.perl.misc,
> linberg@literacy.upenn.edu (Steve Linberg) writes:
> :I'm not trying to be pedantic, here, just wondering about the larger goal
> :of this thread. Are you planning some kind of recommendation for or
> :against Matt's scripts?
>
> Yes: I'm recommmending that he bother to fix them, and that they not be
> held up in exemplary fashion until such time as this should occur.
This made me think that what would be really cool is a Perl Style Guide,
to use as a sort of checklist when examining (and maybe fixing) code.
Then I felt a warm, wet muzzle behind my ear, and remembered my Camel.
And lo and behold, in Programming Perl, 2nd edition, pp. 537-550, are
scads of tips about Perl style and efficiency. Am I correct, Tom, in
guessing that you are the author of this section?
Eric Friedman, earlier in this thread, wrote:
> I was curious, so I took a look. It's vintage perl4, in spite of the
> last updated in May 1997 notice. Global variables defined deep inside
> of subroutines, no -w, and no 'use strict' of course. local() abounds
> in places where my() could have easily been substituted during that May
> 1997 update. He doesn't check the return status on open()....
A quick check through the above pages shows that all of these things,
except the declaration of globals in subroutines, are addressed, and lots
more besides. So, I'd say we've got our checklist on-hand. (And for
those of you who don't consider the Good Book a worthwhile investment,
search for "perlstyle.pod", print it out, and hang it on your bathroom
mirror.)
--
Steve Linberg | National Center on Adult Literacy
Systems Programmer etc. | University of Pennsylvania
linberg@literacy.upenn.edu | http://www.literacyonline.org
------------------------------
Date: 10 Feb 1998 22:06:47 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: RFC about ``Matt's Script Archive''
Message-Id: <6bqj1n$he5$6@marina.cinenet.net>
Steve Linberg (linberg@literacy.upenn.edu) wrote:
: In article <6bqdk0$j6t$3@csnews.cs.colorado.edu>, tchrist@mox.perl.com
: (Tom Christiansen) wrote:
:
: > In comp.lang.perl.misc, linberg@literacy.upenn.edu (Steve Linberg) writes:
: > :However, in Matt's defense, I would point out that the scripts there are
: > :(a) free and (b) fairly stable -
: >
: > Free stuff isn't by its very nature automatically good stuff.
: > And something that's stable can also be dead.
:
: Yes, this is true, but I think the most important tests are: Is it
: useful? Does it help people? Are people learning from it?
I've been a MSA FormMail user for quite a while. When I started using
it, my Perl skills weren't up to the level that I could see how crufty
the code is. Now I can, but the thing is...it still works just as well.
In the limited range of uses I've put it to, FormMail has acted like a
good software component...does what the doc claims, every time. However
bad it looks inside, I keep using it because it works. Why reinvent the
wheel?
I *do* hope nobody's trying to learn from it, though!
---------------------------------------------------------------------
| 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: 10 Feb 1998 22:11:24 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: RFC about ``Matt's Script Archive''
Message-Id: <6bqjac$23v$4@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, linberg@literacy.upenn.edu (Steve Linberg) writes:
:Am I correct, Tom, in guessing that you are the author of this section?
Pretty much, although Larry editted it severely. :-)
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"Lisp has all the visual appeal of oatmeal with fingernail clippings mixed in."
--Larry Wall in <1994Jul21.173737.16853@netlabs.com>
------------------------------
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 1850
**************************************
