[9980] in Perl-Users-Digest
Perl-Users Digest, Issue: 3573 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 28 11:06:02 1998
Date: Fri, 28 Aug 98 08:00:25 -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 Fri, 28 Aug 1998 Volume: 8 Number: 3573
Today's topics:
@INC path and apache wwwadmin@berlin2.debis-sfi.de
[ANNOUNCE] GIFgraph 1.10 (Martien Verbruggen)
Re: A legal newbie question (I hope). (Bob Trieger)
Re: A legal newbie question (I hope). huntersean@hotmail.com
Announce: Msql-Mysql-modules 1.21_00 <joe@ispsoft.de>
Re: Bit of humor (John Moreno)
Re: Bit of humor (Maurice Aubrey)
Re: comp.lang.perl.windows.misc (I R A Aggie)
Re: Determining strlen (Mike Stok)
Re: Determining strlen (John Moreno)
Re: Help - Perl security problem! <jdw@dev.tivoli.com>
How do I take out tags? <poohba@io.com>
Re: How to convince others using perl instead bourne sc dzuy@my-dejanews.com
Modem::Vgetty 0.02 released (Jan "Yenya" Kasprzak)
Re: newbie question <jdw@dev.tivoli.com>
Re: newbie question <jdw@alder.dev.tivoli.com>
Re: Passowrds in scripts (was Re: Perl compiler) <rra@stanford.edu>
Re: pattern matching (Tad McClellan)
Re: Perl compiler <jll@skynet.be>
Re: Perl compiler <see.my.address.below@domain.com>
Re: Perl Cookbook, does anyone have it? <Scott.Boss@bridge.bellsouth.com>
Re: posting to a program, receiving results <carton.lao@shaw.wave.ca>
Re: posting to a program, receiving results (Patrick Timmins)
Problems to compile Perl 5.004.04 with GCC 2.8.1 <fh@lwscpm.de>
Problems with h2ph <jmalouf@imall.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 28 Aug 1998 15:30:34 +0200
From: wwwadmin@berlin2.debis-sfi.de
Subject: @INC path and apache
Message-Id: <35E6B0FA.EBD63711@berlin2.debis-sfi.de>
Hello,
I've read in this group (08/19/98 13:35) a question realy similiar to
my question, but the solution isn't useable for me. If I start apache
with mod_perl I get the errormessage that he could not find Apache.pm in
the
@INC Path, how could I change these Path ?
Please let me know.
Bye Christian
------------------------------
Date: 28 Aug 1998 14:52:43 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: [ANNOUNCE] GIFgraph 1.10
Message-Id: <6s6g7r$2fp$1@news.neta.com>
Hello,
I have just uploaded GIFgraph 1.10 to PAUSE; it should appear at
your local CPAN soon.
Extraxt from README:
MOST IMPORTANT CHANGES SINCE VERSION 1.04
- added bar_spacing option
- added limited support for numerical X axis for equidistant X values
(NOT for a real numerical graph!), thanks to Scott Prahl.
- routines to automatically 'guess' nice upper and lower values for
graphs have been replaced by one written by Scott Prahl
MOST IMPORTANT CHANGES SINCE VERSION 1.03
- Added mixed type graph.
GIFgraph::mixed
options types and default_type
- Added callback functionality to format y values
option y_number_format
- Added control over axis label placement
option [xy]_label_position
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Fri, 28 Aug 1998 13:05:06 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: A legal newbie question (I hope).
Message-Id: <6s6a4a$dtk$1@ligarius.ultra.net>
[ posted to usenet and courtesy e-mail sent to Hauk Langlo ]
Hauk Langlo <hauk@forumnett.no> wrote:
-> I see people in this group are pretty fed up by people who do not read
-> the faqs, use the perlman etc, and I do not blame you for it. I must
-> admitt that I'm extremely fresh when it comes to the PC in general (been
-> into narrow fields on the Amiga only (Low level coding)), so I only know
-> the absolute basic parts of Perl at the moment. The thing is that I have
-> never used Unix and really do not know how to read the man files that
-> should follow the Perl package. I do not either know where the good faqs
-> are. If anyone could give me a little tip about how to read the man
-> files (I'm using NT and Perl is installed on another netwrked PC so I
-> guess I have to use something like Telnet), and maybe let me know a good
-> starting URL for absolute beginners, then at least one newbie will stop
-> posting irritating "What is chomp?" posts. Hope this question is fair
-> enough even if I fully understand that you probably shake your head from
-> side to side by my obvious lack of knowledge.
Nobody is shaking their heads at you lack of knowledge but the method
you are going about to get it is questionable.
The best thing you could do if you want to learn perl is to:
1. Run, not walk to the book store and buy `Learning Perl' (The Llama
Book). If they don't carry it at your local bookstore, it is available
from many online bookstores or the publisher at http://www.ora.com .
2. Download perl 5.004_02 for win32 from http://langauge.perl.com/ and
install it.
3. Read the book cover to cover being sure to do every exercise until
you fully understand what every line of code in the exercise is doing.
4. Read `all' of the documentation that is included with perl. If you
install it correctly, you can read it using your browser and opening
file://c:/perl/lib/html/pod/
5. Then if there is something you still have a question about and can
not figure out, post here with a more descriptive subject line and a
snippet of the code you have tried and are having problems with.
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: Fri, 28 Aug 1998 13:42:01 GMT
From: huntersean@hotmail.com
Subject: Re: A legal newbie question (I hope).
Message-Id: <6s6c3a$b8j$1@nnrp1.dejanews.com>
Try typing "perldoc" and follow the usange message you get back. You could
also go to http://language.perl.com/faq/
As for man pages, you don't specifically need them, its just that people who
haven't done a lot of C coding use them to understand C system calls.
Because a lot of what perl does is return the results of C system calls, and
the docs just say "performs the 'foo' system call", you can imagine that this
would be usefull. Personally I learnt this stuff by having a copy of Plauger
and Brodie's "The standard C library reference" on my lap at all times (well,
actually not at _all_ times - just when programming). If you absolutely
_must_ have man pages, get them from the web. They're terse, they're
idiosyncratic, and your computer won't have "man", "nroff", or any of the
other things it needs to read them, but these aren't insuperable
difficulties.
Sean H
In article <35E68C6A.C360B4B7@forumnett.no>,
Hauk Langlo <hauk@forumnett.no> wrote:
> I see people in this group are pretty fed up by people who do not read
> the faqs, use the perlman etc, and I do not blame you for it. I must
> admitt that I'm extremely fresh when it comes to the PC in general (been
> into narrow fields on the Amiga only (Low level coding)), so I only know
> the absolute basic parts of Perl at the moment. The thing is that I have
> never used Unix and really do not know how to read the man files that
> should follow the Perl package. I do not either know where the good faqs
> are. If anyone could give me a little tip about how to read the man
> files (I'm using NT and Perl is installed on another netwrked PC so I
> guess I have to use something like Telnet), and maybe let me know a good
> starting URL for absolute beginners, then at least one newbie will stop
> posting irritating "What is chomp?" posts. Hope this question is fair
> enough even if I fully understand that you probably shake your head from
> side to side by my obvious lack of knowledge.
>
> Regards Hauk Langlo
>
> --
>
> ----------------------------------
> Hauk Langlo
>
> Hauk@forumnett.no
> http://www.forumnett.no/~hauk
> (+047) 93438940
> ----------------------------------
>
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 28 Aug 1998 14:53:57 GMT
From: Jochen Wiedmann <joe@ispsoft.de>
Subject: Announce: Msql-Mysql-modules 1.21_00
Message-Id: <6s6ga5$2vm$1@news.neta.com>
Hello,
I'd like to announce the
Msql-Mysql-modules 1.21_00
the first experimental version derived from the stable 1.20xx branch.
This experimental branch is dedicated to play with the new DBI
metadata methods, dbish already ought to work. The final goal is to
build completely on an internal, C-level representation of these
methods. Another goal is a new testsuite (not yet included, to follow
soon).
Changes against 1.19_22 (most of these already are in 1.20xx) are:
* INSTALL: Added a description of the missing-libgcc problem.
* INSTALL: Added a patch for the mSQL problem with ORDER BY.
* dbd/dbd.pm.in: Added a description of mSQL's problem with
ORDER BY.
* Fixed pointers to DBI home (was www.hermetica.com, now
www.arcana.co.uk)
* lib/DBD/mysql/Install.pm (Initialize): Added
$ENV{'MYSQL_HEADERDIR'} and $ENV{'MYSQL_LIBDIR'}.
* dbd/dbdimp.c: mysql_fetch_lengths() returns longs under
MySQL 3.22.04
* nodbd/nodbd.pm.in (errno): Fixed missing definition of
$self.
* Makefile.PL (InitializeMysql): Looking for libmysqlclient.a
and libmysqlclient.so now.
* dbd/dbdimp.c (dbd_st_internal_execute): Fixed memory leak,
*cdaPtr was not checked for <> NULL. My thanks to Marc
Lehmann <pcg@goof.com> for the report.
* dbd/dbd.pm.in: Added table_info() and type_info_all().
The new distribution is available on any CPAN mirror, in particular
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/JWIED
Thankfull about any feedback,
Jochen
--
Jochen Wiedmann joe@ispsoft.de
CPAN - world's best backup server :-) +49 7123 14887
------------------------------
Date: Fri, 28 Aug 1998 10:13:15 -0400
From: phenix@interpath.com (John Moreno)
Subject: Re: Bit of humor
Message-Id: <1degtga.1txehjo1fzgdq4N@roxboro0-009.dyn.interpath.net>
nobody <ac1@fspc.netsys.itg.telecom.com.au> wrote:
> Thought you bods might appreciate this bit of humor I found in
> one of our code reviews - the link to Perl is tenuous at best,
> but the reviewing crowd got a laugh out of it.
>
> # Get the current date/time and pid from the system. Note the sneaky
> # trick to decide which century we are in. If you're reading this
> # in 2069, my apologies: you think we would have learned from the
> # Y2K crisis - now you know better. If you're looking at this code
> # to ensure it passes the 32-bit-UNIX 2038 bug, please fix this as
> # well; we're far too busy on Y2K at the moment :-).
>
> ($Sec,$Min,$Hr,$MDay,$Mon,$Yr,$Junk,$Junk,$Junk) = localtime( time );
> $Yr += ($Yr < 70) ? 2000 : 1900;
but that doesn't work!
You need to contact them immediately and have that replaced with:
($Sec,$Min,$Hr,$MDay,$Mon,$Yr,$Junk,$Junk,$Junk) = localtime( time );
$Yr =$1 if $Yr =~ /(..)$/; # strip year down to 2 digits
$Yr += ($Yr < 70) ? 2000 : 1900;
Which of course does what they want (or at least what they meant).
--
John Moreno
------------------------------
Date: Fri, 28 Aug 1998 14:23:40 GMT
From: maurice@hevanet.com (Maurice Aubrey)
Subject: Re: Bit of humor
Message-Id: <slrn6udfbd.hs.maurice@we-24-130-48-83.we.mediaone.net>
On Fri, 28 Aug 1998 10:13:15 -0400, John Moreno <phenix@interpath.com> wrote:
>nobody <ac1@fspc.netsys.itg.telecom.com.au> wrote:
>
>> Thought you bods might appreciate this bit of humor I found in
>> one of our code reviews - the link to Perl is tenuous at best,
>> but the reviewing crowd got a laugh out of it.
>>
>> # Get the current date/time and pid from the system. Note the sneaky
>> # trick to decide which century we are in. If you're reading this
>> # in 2069, my apologies: you think we would have learned from the
>> # Y2K crisis - now you know better. If you're looking at this code
>> # to ensure it passes the 32-bit-UNIX 2038 bug, please fix this as
>> # well; we're far too busy on Y2K at the moment :-).
>>
>> ($Sec,$Min,$Hr,$MDay,$Mon,$Yr,$Junk,$Junk,$Junk) = localtime( time );
>> $Yr += ($Yr < 70) ? 2000 : 1900;
>
>but that doesn't work!
>
>You need to contact them immediately and have that replaced with:
>($Sec,$Min,$Hr,$MDay,$Mon,$Yr,$Junk,$Junk,$Junk) = localtime( time );
>$Yr =$1 if $Yr =~ /(..)$/; # strip year down to 2 digits
>$Yr += ($Yr < 70) ? 2000 : 1900;
But which should be written in the standard way:
($Sec,$Min,$Hr,$MDay,$Mon,$Yr,$Junk,$Junk,$Junk) = localtime;
$Yr += 1900;
--
Maurice Aubrey <maurice@hevanet.com>
You think you know when you learn, are more sure when you can write,
even more when you can teach, but certain when you can program.
- Alan Perlis
------------------------------
Date: Fri, 28 Aug 1998 09:49:41 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: comp.lang.perl.windows.misc
Message-Id: <fl_aggie-2808980949410001@aggie.coaps.fsu.edu>
In article <EyDJG1.EKD@world.std.com>, aml@world.std.com (Andrew M.
Langmead) wrote:
+ Its the VMS
How so? yes, I have sullied my hands and used that system. Thought it was
great. Then I got unix.
+ and MVS ports of perl that surprise me.
Ok, this one is odd.
James
------------------------------
Date: 28 Aug 1998 13:12:02 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Determining strlen
Message-Id: <6s6ab2$pv2@news-central.tiac.net>
In article <35E64408.69D15B6D@nic.com>, Dave Wreski <dave@nic.com> wrote:
>> Nooooooooo! Pleassssssse Donnnnnnnnn't
>>
>> If you're looking to parse html use the module.
>
>Which module?
http://www.perl.com/CPAN/modules/by-module/HTML/HTML-Parser-2.20.readme
might be a place to start...
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Fri, 28 Aug 1998 10:13:39 -0400
From: phenix@interpath.com (John Moreno)
Subject: Re: Determining strlen
Message-Id: <1deguvn.cytiqrm7324vN@roxboro0-009.dyn.interpath.net>
Dave Wreski <dave@nic.com> wrote:
-snip-
> Hmm.. That doesn't quite work either. That still gets the whole URL. How can
> I just get either the URL itself, or the data between the closing > and the
> </A>?
>
> Argh. Thanks again,
You need to show the data - maybe it's "<a href=" or a dozen other,
similar things. In any case the right way to do it is to go to cpan and
get HTML::Parser, unless you have a /very/ limited data set that you are
creating.
--
John Moreno
------------------------------
Date: 27 Aug 1998 22:56:42 -0500
From: "Jim Woodgate" <jdw@dev.tivoli.com>
Subject: Re: Help - Perl security problem!
Message-Id: <obr9y13gjp.fsf@alder.dev.tivoli.com>
ben@isolve.net (Ben Duncan) writes:
> I've fixed my problem by writing a c-wrapper which calls setuid/setgid
> & then exec's the perl script.
you might want to go ahead and fix the taint problem, consider that if
perl didn't like the $login, it probably came from an insecure place
(maybe an environment variable)
What would happen if someone were able to pass a value to $login,
maybe something like ../tmp/xxx In which case all they would have to
do is create a symbolic link from /tmp/xxx.conf to any file on your
system they'd like to write to...
--
Jim Woodgate
Tivoli Systems
E-Mail: jdw@dev.tivoli.com
------------------------------
Date: Fri, 28 Aug 1998 09:43:12 -0500
From: Chocolate <poohba@io.com>
Subject: How do I take out tags?
Message-Id: <Pine.BSF.4.02A.9808280941300.16874-100000@schultz.io.com>
How do I remove tags from a file? I want to remove all html tags from a
html doc that I have. How would I do this? Also, is there a program out
that will convert word docs to html?
_/_/_/ _/ _/
_/ _/ _/ _/
Web Page Designs _/_/_/ _/_/_/ _/_/_/ _/_/_/ _/_/_/ _/_/_/
Small Programs _/ _/ / _/ _/ _/ _/ _/ _/ _/ _/ poohba@io.com
www.io.com/~poohba _/ _/_/_/ _/_/_/ _/ _/ _/_/_/ _/_/\_ (919)506-5883
------------------------------
Date: Fri, 28 Aug 1998 14:03:03 GMT
From: dzuy@my-dejanews.com
Subject: Re: How to convince others using perl instead bourne scripts
Message-Id: <6s6dam$cjj$1@nnrp1.dejanews.com>
In article <6s2sdf$bgt$1@rand.dimensional.com>,
Daniel Grisinger <dgris@rand.dimensional.com> wrote:
> [posted to comp.lang.perl.misc and mailed to the cited author]
>
> In article <6s2jeo$1l1$1@nnrp1.dejanews.com>
> dzuy@my-dejanews.com wrote:
>
> > Challenge him/her to write an sh script or C program that reads in
> > a file, then re-arrange the lines randomly.
> ...
> > If stumped,
> > email me and I'll send a 20 line Perl script to solve this problem.
>
> Why use 20 lines where one will do?
>
> $ perl -i -al012n077 -F"\n" -e 'print splice(@F,int(rand(@F)),1) while $F[0]'
file
>
Not bad. But if you have a huge file of long lines, then you'd have a
huge array. I guess It's OK if you have enough memory for the duration
of the run. What I'd do is build an array of index of file pointers
at the beginning of each line, then select at random from the array
and seek to the line and write it. It may take longer, but it conserves
memory. 20 lines is a conservative estimate. I don't remember the
number of lines of code, but it wa probably less than 15.
Back to the point of the original subject, I didn't mean that this is
the mean of convincing other people to use Perl. When I faced this
problem, I estimated how long it would take to write a C program to
do the job, it demonstrated to me that perl helps me to find the
solution quickly. It's just one of many reasons.
> dgris
> --
> Daniel Grisinger dgris@perrin.dimensional.com
> "No kings, no presidents, just a rough consensus and
> running code."
> Dave Clark
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 28 Aug 1998 14:54:32 GMT
From: kas@fi.muni.cz (Jan "Yenya" Kasprzak)
Subject: Modem::Vgetty 0.02 released
Message-Id: <6s6gb8$2vn$1@news.neta.com>
Hello,
I have just released a new version of my Vgetty bindings to Perl,
the Modem::Vgetty module. The module itself is (will be shortly) available
from $CPAN/authors/id/Y/YE/YENYA/ as the following file:
9391e9b52c0a528d1ac7977c5edfa8b8 Modem-Vgetty-0.02.tar.gz
The complete ChangeLog is in the tar.gz file itself. A short
summary:
- - added a ::readnum() method for reading in a "#"-terminated sequence
of DTMF tones.
- - some fixes of the examples in the manpage.
- - new examples/ directory with a simple answering machine and a
callme.pl (dials a number and plays the message).
- - some spelling and other fixes in the module and its manpage.
The releases of Modem::Vgetty are available from CPAN. My personal
development CVS tree is visible via cvsweb at
http://www.fi.muni.cz/~kas/vgetty/. Feel free to send comments, bug-fixes
etc. to my personal e-mail (in my .sig) or to the public mgetty list
"mgetty" at muc.de.
- -Yenya
Version: 2.6.3i
Charset: noconv
iQCVAwUBNeF0sFC2u4XTSYg5AQGKnAP/RvozkCbr1XaqHJGq7mFWf2rib87mona4
1CAH7C5Pn2fR4UK0OEAZlvaSh2qLarA5IA/+0m8Y/h8s2/VvuwKxHgZCzQOqCT6T
ZtHjD/Y4179ADKC2SZBsuQb6ca/q8P8MJqx5d+DGQ7xrY9k4mNwQRP/fFPaifwrW
s0wUnA77vug=
=f8EC
-----END PGP SIGNATURE-----
--
\ Jan "Yenya" Kasprzak <kas at fi.muni.cz> http://www.fi.muni.cz/~kas/
\\ PGP: finger kas at aisa.fi.muni.cz 0D99A7FB206605D7 8B35FCDE05B18A5E //
\\\ Czech Linux Homepage: http://www.linux.cz/ ///
If there are race conditions in programs fix them. The "my programs suck fix
something else" mentality leads you to things like Java. -- Alan Cox
------------------------------
Date: 27 Aug 1998 22:43:55 -0500
From: "Jim Woodgate" <jdw@dev.tivoli.com>
Subject: Re: newbie question
Message-Id: <obsoih3h50.fsf@alder.dev.tivoli.com>
No.unsoiliciteds@dead.end (Norman UNsoliciteds) writes:
> In article <obg1eib8rz.fsf@alder.dev.tivoli.com>, "Jim Woodgate"
> <jdw@dev.tivoli.com> wrote:
>
> > I have perl5 running on an NT box, both perl -de 42 and perldoc -f
> > <your favorite command> work perfectly.
>
> great what do they mean? (remember I don't have unix man pages so advice
> like "grep man f(5)" isn't going to explain a lot :)
I don't know what you mean, by what do they mean... :)
When someone asks, "Where can I find some example code for sending
e-mail using perl." I say, run perldoc Net::SMTP, which spits out the
following: (Abbreviated for space)
Net::SMTP(3) User Contributed Perl Documentation Net::SMTP(3)
NAME
Net::SMTP - Simple Mail Transfer Protocol Client
SYNOPSIS
use Net::SMTP;
# Constructors
$smtp = Net::SMTP->new('mailhost');
$smtp = Net::SMTP->new('mailhost', Timeout => 60);
....
If someone asks about how to do xxx, if they easist way to do xxx is
to use command yyy, I say, try perldoc -f yyy, in which they'll get
something like this: (again abbreviated to save space)
$ perldoc -f map
=item map BLOCK LIST
=item map EXPR,LIST
Evaluates the BLOCK or EXPR for each element of LIST (locally setting
C<$_> to e
ach
element) and returns the list value composed of the results of each
such
evaluation. Evaluates BLOCK or EXPR in a list context, so each
element of LIST
may produce zero, one, or more elements in the returned value.
@chars = map(chr, @nums);
translates a list of numbers to the corresponding characters. And
...
this works on NT, Unix, and who knows what other OS... Instead of
wasting precious bytes explaining something that is already very well
explained on the user's own hard drive, why not give them the command
they can use to look it up themselves?
--
Jim Woodgate
Tivoli Systems
E-Mail: jdw@dev.tivoli.com
------------------------------
Date: 28 Aug 1998 07:55:41 -0500
From: Jim Woodgate <jdw@alder.dev.tivoli.com>
Subject: Re: newbie question
Message-Id: <ob90k95kqa.fsf@alder.dev.tivoli.com>
No.unsoiliciteds@dead.end (Norman UNsoliciteds) writes:
> In article <1deg0qd.16y1tinps9q66N@bay2-134.quincy.ziplink.net>,
> rjk@coos.dartmouth.edu (Ronald J Kimball) wrote:
>
> > What do they have to do with unix manpages? perl -de 42 means run the
> > script '42' in the debugger, as documented in perlrun. perldoc -f
> > <command> means look up the documentation for a function, as explained
> > in perldoc's usage function and builtin help.
> > No unix manpages needed.
>
> The perl -de I conceed (perldebug), but perldoc -f on the Mac port I'm
> using turns up a blank if I grep for it - something which doesn't occur
> for anything included in the contents of the docs which I do have which
> I've listed below. None of them explain perl docs usage. I still don't
> have a UN*x manual nor a Un*x Perl manual.
where does grep come into any of this? For a quick "how to use
perldoc", just type perldoc to get a usage:
Usage: perldoc [-h] [-r] [-i] [-v] [-t] [-u] [-m] [-l] [-F] [-X]
PageName|ModuleName|ProgramName
perldoc -f PerlFunc
perldoc -q FAQKeywords
The -h option prints more help. Also try "perldoc perldoc" to get
aquainted with the system.
For more details, try the last line of the usage, perldoc perldoc
No grep's needed!
If perldoc -f length returns a blank page on macperl, why not fix the
bug and submit a patch?
--
Jim Woodgate
Tivoli Systems
E-Mail: jdw@dev.tivoli.com
------------------------------
Date: 28 Aug 1998 05:57:49 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Passowrds in scripts (was Re: Perl compiler)
Message-Id: <m3yas9nu0i.fsf@windlord.Stanford.EDU>
? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au> writes:
> More a unix question then a perl one (but related to the current thread
> and perl as well). If a setuid script (or wrapper) dumps core will the
> user get a copy of the core file?
Depends on the system. Quite a few Unix varients disable core dumps for
setuid programs. But to be on the safe side, I think you have to make
sure to disable them yourself.
That's one reason why it's considered bad practice to keep the password in
memory any longer than is necessary.
--
#!/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: Fri, 28 Aug 1998 08:05:11 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: pattern matching
Message-Id: <7u96s6.ug7.ln@metronet.com>
James Stout (itxjcs@unix.ccc.nottingham.ac.uk) wrote:
: On 26 Aug 1998 18:37:20 GMT, gbacon@cs.uah.edu (Greg Bacon) wrote:
: >You probably want to do something like
: >
: > if ($variable =~ /@/) {
: > print qq{<A Href="MAILTO:$variable">$variable</A>};
: OK, I get it. Thanks.
: I've read the perlop man page, but can't figure out how to make it
: insert <a href mailto$variable_containing_just the
: word_with_the@_in:>$variable_containing_just the word_with_the@_in</a>
: in place of the word with the @ in only, but keep the rest of the text
: in the variable.
You do this by using "capturing parenthesis" in the regex that
matches the item of interest (email address in this case).
: So, before I do the operation the variable might contain:
: "My email address is itxjcs@nottingham.ac.uk, please email me with
: some help! I'd really appreciate it"
: And then after it would contain:
: "My email address is <a href
: mailto:itxjcs@nottingham.ac.uk>itxjcs@nottingham.ac.uk</a>, please
: email me with some help! I'd really appreciate it"
Writing a regex that matches (all valid) email addresses is Very Hard.
Can't help with that part.
Here is a simplistic one to get you started (though it doesn't do
the right thing for your example):
if ($variable =~ /(\S+@\S+)/) { # non-whitespace chars on each side
print qq{<A Href="MAILTO:$1">$1</A>\n};
}
This one works with your example, but is easily broken by many
real email addresses:
if ($variable =~ /([\w.-]+@[\w.-]+)/) { # "usual" chars on each side
print qq{<A Href="MAILTO:$1">$1</A>\n};
}
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 28 Aug 1998 15:33:15 +0200
From: Jean-Louis Leroy <jll@skynet.be>
Subject: Re: Perl compiler
Message-Id: <VA.000000ee.0148e140@jll>
In article <6s5mgc$83b$1@news.mint.se>, wrote:
> When the carpenter makes a table, he makes the world a litle richer.
Not at all. Until the table comes into possession of someone who has a need for
it, no wealth has been created. If the demand for tables is already satisfied,
the carpenter has actually *destroyed* wealth (i.e. he's depleted resources,
wood, energy, etc).
There is no such thing as 'intrinsic' value. Not even in marxism.
> But when he gives (or sells) it away he is just distributing this welth.
When the table gets in the hands of a customer, the 'potential' wealth is
actualized. Not before.
> When someone makes a program he also makes the world richer, but when i
> gives it away he doubles the welth because he still has the program.
Assuming that the programmer has a *need* for the program. Also, that 'twice
more, twice better' argument is oversimplistic. Indeed, the value of many goods
is inversely proportional to their availability.
The real issue is, what setup leads to optimal satisfaction? Libertarians would
have us believe that (totally) free market is optimal. Me Microsoft customer
has a hard time believing that <g> OTOH, we don't live in a communist society
either, and people willing to act like communist idealists in a capitalistic
world are more often than not making fools of themselves...
Jean-Louis Leroy
http://ourworld.compuserve.com/homepages/jl_leroy
------------------------------
Date: 28 Aug 1998 09:31:07 -0400
From: Bruce Barnett <see.my.address.below@domain.com>
Subject: Re: Perl compiler
Message-Id: <yeku32xqllw.fsf@grymoire.birch>
abigail@fnx.com (Abigail) writes:
> If prototyping means distributing and keeping it a secret, yes.
I guess that you also mean that PERL should not be used for the
development of a commercial software package, unlike serious software
systems.
--
Bruce <barnett at crd. ge. com> (speaking as myself, and not a GE employee)
------------------------------
Date: Fri, 28 Aug 1998 09:03:58 -0400
From: Scott Boss <Scott.Boss@bridge.bellsouth.com>
Subject: Re: Perl Cookbook, does anyone have it?
Message-Id: <35E6AABC.934D425B@bridge.bellsouth.com>
brian d foy wrote:
> In article <6s29q2$mag$1@nnrp1.dejanews.com>, dturley@pobox.com posted:
>
> >checking my amazon order status twice a day!
Barnes & Noble, Amazon.Com, Walden Books, Borders, etc... has not
received their shipment from Orielly yet. I have called all of them multiple
times. I *think* that it will be just days before they get them. Then it
will take a few days for them to send it out to all their stores (or Mail it
for Amazon..com).
>
>
> maybe i should put my second copy on one of those auction script sites ;)
If it (the cookbook) is like the other Orielly Perl Books, I would not
trade it for it's weight in gold (or silver).
> --
> 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 needs volunteers! <URL:http://www.pm.org/to-do.html>
Scott Boss
------------------------------
Date: Fri, 28 Aug 1998 14:03:13 GMT
From: Carton Lao <carton.lao@shaw.wave.ca>
Subject: Re: posting to a program, receiving results
Message-Id: <35E6B9B7.48206879@shaw.wave.ca>
Give this a try if you are running perl on unix.
$status = `program var1 var2`;
print $status;
You may have to do some redirecting for your program if your program doesn't
always write to stdout.
Carton
Dan Bassett wrote:
> I am trying to write a perl program which will post variables to a program
> and then
> read back in the response from that program. The program is a binary
> executable.
> I can run the program from the prompt, but I just can't seem to make it work
> within
> perl.. Is this the correct way to execute a program within perl?
>
> Here's what I have so far:
>
> open (RESULTS, "program variable1 variable2" |")
> or die "The program cannot be found.\n";
>
> $status=<RESULTS>;
>
> close RESULTS;
>
> print "Here is the status: $status";
>
> Any feedback would be apprecaited...
>
> Regards,
>
> Dan
> dan@bns.com
------------------------------
Date: Fri, 28 Aug 1998 14:36:48 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: posting to a program, receiving results
Message-Id: <6s6fa0$f67$1@nnrp1.dejanews.com>
In article <35e650ac.0@news1.starnetinc.com>,
"Dan Bassett" <dan@bns.com> wrote:
> I am trying to write a perl program which will post variables to a program
> and then read back in the response from that program. The program is a
> binary executable. I can run the program from the prompt, but I just can't
> seem to make it work within perl.. Is this the correct way to execute a
> program within perl?
>
> Here's what I have so far:
>
> open (RESULTS, "program variable1 variable2" |")
> or die "The program cannot be found.\n";
>
[snip]
'open', to Perl, is not like 'open' to the Win32 environment
Look in the Perl documentation under 'perlfunc':
system (most likely) or exec
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: Fri, 28 Aug 1998 12:25:25 +0200
From: Frank Haefemeier <fh@lwscpm.de>
Subject: Problems to compile Perl 5.004.04 with GCC 2.8.1
Message-Id: <35E68595.E59B213C@lwscpm.de>
Hi there,
I try currently to compile and install Perl 5.004.04 on a SUN/SPARC 4.1.3
with GCC compiler 2.8.1 (without glibc).
But I have the problem with "conflicting types for `malloc'" between
"stdlib.h" (from 'gcc-lib' directory) and 'sdbm.c', if I don't use
the Perl internal malloc function.
If I configure with the internal malloc function I get this message
in a earlier.
Does anybody know about this problem?
Bye
Frank
------------------------------
Date: Thu, 27 Aug 1998 16:43:20 -0600
From: John Malouf <jmalouf@imall.com>
Subject: Problems with h2ph
Message-Id: <35E5E108.6981B702@imall.com>
I've been racking my brain on this for a while now and wondered
if anyone has already solved this.
I have an Ultra 10 with Solaris 2.6 HW 5/98 on it and I am
attempting to install perl. I have tried multiple versions
including 5.00404, 5.00501 and 5.00502, and I get the same
results no matter what.
Perl compiles and appears to be happy, however after running h2ph
I find two problems:
1 - h2ph puts annoying extra "" in many of not all the die
statements in the .ph files. This, though annoying, is easily
fixable.
2 - The isa_defs.ph file doesn't seem to recognize what sort of
machine I am on. I think this problem must go a little further...
Basically, any file which include isa_defs.ph dies with the following
error:
**ISA not supported at isa_defs.ph line 95**
At the risk of looking stupid, I hope there is an easy answer here :)
Any help much appreciated. Please cc my email addr jmalouf@imall.com
Thanks,
John
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3573
**************************************
