[6558] in Perl-Users-Digest
Perl-Users Digest, Issue: 184 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 26 15:17:21 1997
Date: Wed, 26 Mar 97 12:01:40 -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 Wed, 26 Mar 1997 Volume: 8 Number: 184
Today's topics:
PSCOPE - fast searching techniques (Mark A. Lehmann)
Qestion about Exporter!! Please Help!! <vipul@xcaliber.com>
Re: QUESTION: rewriting a single line as several shorte <rootbeer@teleport.com>
Re: Regular Expresion question. (Jay Flaherty)
Re: regular expression for check lower case (Simon Hyde (aka Jeckyll))
Re: regular expression for check lower case <danboo@ixl.com>
Re: Rename Comand Programming Project - Will Pay Money (Jan Schipmolder)
Small Database <wfowlkes@sios.com>
Re: suid perl script <rootbeer@teleport.com>
Suid set - System calls <poltera@bluewin.ch>
Re: term 'regular expressions' considered undesirable (Rahul Dhesi)
Text Justification <mrchristopher@inorbit.com>
trying to modify matt's formmail script (Anthony Mulligan)
Re: What's a good Perl book? lvirden@cas.org
Re: What's a good Perl book? (Paul David Fardy)
Re: What's a good Perl book? <seay@absyss.fr>
Re: Who makes more $$ - Windows vs. Unix programmers? <wang_ling@jpmorgan.com>
Re: ~INTERVIEW FOR ALL PERL GURUS lvirden@cas.org
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Mar 1997 10:02:13 -0600
From: mlehmann@prismnet.com (Mark A. Lehmann)
Subject: PSCOPE - fast searching techniques
Message-Id: <5blo7aod4q.fsf@smokey.prismnet.com>
For the PSCOPE (CSCOPE like) perl source code cross reference/search
database, I need to create a very quick parsed information search engine. I
would like some references to information related to search engines.
What I would like to do is search Perl code determining what subroutines call
other subroutines, where variables and object are declared, where variables
are assigned, and what files require or use other files. Thats the part I
think I know how to do. The other part is storing this information into a
file format that I can quickly search (sub second search time).
--
Mark Lehmann.
------------------------------
Date: 26 Mar 1997 11:11:02 GMT
From: "Vipul M. Shah" <vipul@xcaliber.com>
Subject: Qestion about Exporter!! Please Help!!
Message-Id: <01bc3a00$609a57b0$066411ac@rama>
I am getting the following message in one of my scripts at startup:
Subroutine new redefined at /usr/local/lib/perl5/Exporter.pm line 133
Exporter::export called at /usr/local/lib/perl5/Exporter.pm
line 149
Exporter::import called at ets.pl line 33
main::BEGIN called at /v/XCB/XCB_INC/perl5/File/Monitor.pm line
0
eval {...} called at /v/XCB/XCB_INC/perl5/File/Monitor.pm line
0
File::Monitor is something I wrote. It has a @ISA = qw(Exporter); line in
it, so it is an Exporter, and I use 'use File::Monitor in my main program,
ets.pl. I have a sub new defined in it and I am exporting it.
Any clues as to why this is happening? Please CC: replies to
vipul@xcaliber.com.
----
Vipul M. Shah
mailto:vipul@xcaliber.com
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: 2.6.2
mQCNAzIHl5MAAAEEALiUz62E9fmnmBYqHWBKrTZ/aMywNnohPw6vXQq29G8bCae1
sMTZ3w7OjqvoR9NrnZosJg9JK+QwWaH3TDJRDuJNYrB1C/I88zDckL8BYutYuaa9
qoIlgccAltjRHMf4eF0GmOYhWgxlYVXLoTmwY33UrpkKM4QQRqzvchlUOch1AAUR
tCJWaXB1bCBNLiBTaGFoIDx2aXB1bEB4Y2FsaWJlci5jb20+
=EOR+
-----END PGP PUBLIC KEY BLOCK-----
------------------------------
Date: Wed, 26 Mar 1997 07:28:30 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: "Terrence M. Brannon" <brannon@kappa.usc.edu>
Subject: Re: QUESTION: rewriting a single line as several shorter lines
Message-Id: <Pine.GSO.3.96.970326072542.5139K-100000@kelly.teleport.com>
On 25 Mar 1997, Terrence M. Brannon wrote:
> I have a string containing a total of 100 digits which are either a 1
> or 0 sep'd by a single space in between them. I want to write this
> string to a file in which each line contains $lineLength number of
> digits, where $lineLength <= 16;
>
> How can I do this in Perl?
Lots of ways. Perhaps you want the word wrapping code from CPAN? Or maybe
using substr($str, 0, $lineLength * 2) would be what you want. Hope this
helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 26 Mar 1997 13:35:25 GMT
From: fty@hickory.engr.utk.edu (Jay Flaherty)
Subject: Re: Regular Expresion question.
Message-Id: <5hb8mt$omg$1@gaia.ns.utk.edu>
Aaron Bennett (abennett@stonehill.edu) wrote:
: Hello everyone:
:
: I'm a neophyte perl programmer trying to break the code on Regular
: Expressions. I'm working on a mail from a form script (I know there's
: about 1 million scripts like that out there I could copy, but then I'll
: never learn anything :)
Hi Aaron,
I don't have any help to your problem but I do have some advice. Get the
O'Reilly Book:
Mastering Regular Expressions
Powerful Techniques for Perl and Other Tools
By Jeffrey E. F. Friedl
1st Edition January 1997
1-56592-257-3, Order Number: 2573
368 pages, $29.95
It has been a godsend and one of my most cherished books (along with
the camel :-) )
To read TC's review (5 camels), go to:
http://www.perl.com/perl/critiques/index.html
Jay
--
**********************************************
Jay Flaherty fty@hickory.engr.utk.edu
------visualize whirled peas------
**********************************************
------------------------------
Date: Wed, 26 Mar 1997 19:05:19 GMT
From: shyde@poboxes.com (Simon Hyde (aka Jeckyll))
Subject: Re: regular expression for check lower case
Message-Id: <333e4d6a.2912589@news.brad.ac.uk>
On Tue, 25 Mar 1997 23:05:40 GMT, shyde@poboxes.com (Simon Hyde (aka
Jeckyll)) wrote:
>On 25 Mar 1997 20:28:27 GMT, shsieh@haas.berkeley.edu (Sherman Hsieh)
>wrote:
>
>>I was wondering how to go about checking a variable for cases. For
>>example, I want to do something if $variable is all lower case. I
>>couldn't figure out what regular expression to use. Help.
>>
>> -Sherman
>>--
>if ($variable =~ /^[a-z0-9_\W]/){
> print "\$variable is all in lower case\n";
>}
oops...i meant
if ($variable =~ /^[a-z0-9_\W]*$/){
print "\$variable is all in lower case\n";
}
although u'd be better off with:
if ($variable =~ /[A-Z]/){
print "\$variable is all in lower case\n";
}
And even better off without the regex
---
Yours Sincerely,
,
() o /| | |
/\ _ _ _ __ _ _ |___| __| _
/ \| / |/ |/ | / \_/ |/ | | |\| | / | |/
/(__/|_/ | | |_/\__/ | |_/ | |/ \_/|/\_/|_/|__/
/|
\|
(Simon Hyde)
------------------------------
Date: Wed, 26 Mar 1997 10:26:51 -0500
From: Dan Boorstein <danboo@ixl.com>
To: "Simon Hyde (aka Jeckyll)" <shyde@poboxes.com>
Subject: Re: regular expression for check lower case
Message-Id: <3339403B.44F2@ixl.com>
Simon Hyde (aka Jeckyll) wrote:
>
> On 25 Mar 1997 20:28:27 GMT, shsieh@haas.berkeley.edu (Sherman Hsieh)
> wrote:
>
> >I was wondering how to go about checking a variable for cases. For
> >example, I want to do something if $variable is all lower case. I
> >couldn't figure out what regular expression to use. Help.
> >
> > -Sherman
> >--
> if ($variable =~ /^[a-z0-9_\W]/){
> print "\$variable is all in lower case\n";
> }
> ---
Are you sure? Won't this match:
$variable = '!LOWERCASE';
since the regex requires only one non-uppercase letter character
anchored to the beginning of the string.
Perhaps
if ($variable =~ /^[a-z0-9_\W]+$/){
print "\$variable is all in non-uppercase\n";
}
is more appropriate. Or more clearly
if ($variable =~ /^[^A-Z]+$/){
print "\$variable is all in non-uppercase\n";
}
To be strict about it the above regex seems
to match strings which are all non-uppercase instead of all
lowercase. Maybe it should be
if ($variable =~ /^[a-z]+$/){
print "\$variable is all in lowercase\n";
}
instead.
Cheers,
Dan Boorstein
> Yours Sincerely,
> ,
> () o /| | |
> /\ _ _ _ __ _ _ |___| __| _
> / \| / |/ |/ | / \_/ |/ | | |\| | / | |/
> /(__/|_/ | | |_/\__/ | |_/ | |/ \_/|/\_/|_/|__/
> /|
> \|
> (Simon Hyde)
------------------------------
Date: 26 Mar 1997 17:29:10 GMT
From: schip@lmsc.lockheed.com (Jan Schipmolder)
Subject: Re: Rename Comand Programming Project - Will Pay Money
Message-Id: <5hbmd6$gk2@dns.lmms.lmco.com>
annette@wwip.com wrote:
: Hi,
:
: I have a small programming project that I'm willing to pay someone to
: complete. I have a NT 3.51 web server with Perl installed and I need
: someone to write and install a perl script that will use the syntax such
: as:
:
: rename.pl lastmonth*.* to jan97*.* /s
Here you are, and it's free. But if you want to send me the money I can't
stop you :) Hehe.
Call it "rename", and first run "rename -h" to get the docs on your
screen.
Good luck.
-----cuthere-----
#!/usr/local/bin/perl
require 'getopts.pl';
&Getopts ( 'hst' ) || ( &usage, exit ) ;
&usage, exit if $opt_h;
( $perlexpr = shift ) || ( &usage, exit );
if ( ! @ARGV ) {
@ARGV = <STDIN>;
chop ( @ARGV );
}
$would = "would" if $opt_t;
foreach ( @ARGV ) {
$old = $_;
eval $perlexpr;
die $@ if $@;
if ( $_ eq $old ) {
printf ( "%s %-15s\n", $would, $old ) unless $opt_s;
} else {
if ( $opt_t ) {
} else {
rename ( $old, $_ ) || die "could not rename $old -> $_\n";
}
printf ( "%s %-15s -> %s\n", $would, $old, $_ ) unless $opt_s;
}
}
sub error {
print @_[0], "\n";
print "$0 aborted\n";
exit;
}
sub usage {
print <DATA>;
}
__END__
Name:
rename
Purpose:
Rename (move) files, allowing very sophisticated wild-carding
Usage:
rename [ -hst ] 'what2do' [ files ]
where
-h -- (help) -- shows this help, then quits (does not execute)
-s -- (silent) -- suppresses info-lines
-t -- (test) -- shows what would be done, but does not rename
what2do -- an expression stating how to rename the files
files -- a list of zero or more files to be renamed. Rename uses
the standard input if files is absent.
Example:
rename -h > a.help
Captures the help info for rename in a.help.
Example:
rename 's/alfa/beta/' *
Each non-dot file in the current directory whose name contains
the string "alfa" is renamed so that the first occurrence of
"alfa" is replaced by "beta". An info-line is printed for each
file considered.
Example:
ls *.f | rename -t 's/x/abc/g'
Each file in the collection of files *.f is renamed if it
contains the letter "x". If it does, each "x" in its name is
replaced by the string "abc". The actual renaming (moving) of
the files is suppressed, so that you first can peek at the
info-lines.
Example:
rename -s 'tr/A-Z/a-z/' * .*
Each of the files in the current directory, if its name contains
any upper case letter, is moved such that all upper case letters
are replaced by lower case letters. Unless an error occurs, no
info-lines are printed.
Example:
rename 's/$/.old/' *.a
Each file in the collection of files *.a is moved to a file
whose name equals the original file name plus the extension
".old".
Example:
rename 's/(.*)\.f$/f.$1/' *
Each non-dot file in the current directory, if its name ends
with the extension ".f", is renamed so that its new name begins
with "f." followed by the original prefix of ".f" (e.g.,
anything.f moves to f.anything).
Example:
ls */* | rename 's/^([a-z]{5})(\d{3})$/$2$1/'
Each non-dot file in each of the non-dot subdirectories of the
current directory is considered for renaming. If the name of the
file consists of exactly 5 lower case letters followed by 3
digits, it is renamed so that the letters and digits are
switched: the new name has first the original three digits, and
then the original five letters.
Notes
(*) A dot ... is a ... whose name begins with a period.
(*) The idea of "rename" was borrowed from the book "Programming perl",
First Edition, Larry Wall and Randal L. Schwartz, O'Reilly &
Associates, Inc.
(*) There essentially is no limit to the renaming capabilities of
"rename". The reason is that "what2do" can be any legal Perl
statement (see previous note) or block of statements. If you can
think of a renaming scheme, it can probably be done with "rename".
Hey, how about renaming those files you get when you ftp them from
a VAX? They sometimes are upper case, and they can have those
darned semicolons and version numbers. Well, just type "rename
's/;.*//; tr/A-Z/a-z/' *". For more details refer to pp. 103-106
of aforementioned text, or pls swing by for a xerox copy of the
relevant pages.
--
jan.b.schipmolder@lmco.com
-----cuthere-----
--
jan.b.schipmolder@lmco.com
------------------------------
Date: 26 Mar 97 17:40:46 GMT
From: "William W. Fowlkes" <wfowlkes@sios.com>
Subject: Small Database
Message-Id: <01bc3a0f$0483d3c0$4b198ed0@willtech01>
Greetings.
I would like to maintain a text delimited file on the server (UNIX, Apache
Server using Perl 5) through Perl. I would like to be able to add to this
text file and search by keyword the records meeting this criteria. Similar
to Yahoo or any other major search engine, but I want the results displayed
on one HTML page that I can format (italic certain fields, etc.). Since
this data file will be small, about a thousand lines or so, how can I do
this in the most efficient and easiest manner possible? I can open and
close and read files and such, but the rest gets kinda tricky for me. Can
anyone help me? Any help I receive will be listed on my web site that I
plan to use this script.
I thank you in advance.
Sincerely,
Will Fowlkes
------------------------------
Date: Wed, 26 Mar 1997 09:20:45 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: joerg_jenderek@zaphod.rhein.de
Subject: Re: suid perl script
Message-Id: <Pine.GSO.3.96.970326091642.5139U-100000@kelly.teleport.com>
On 25 Mar 1997, root wrote:
> how do i use suid perl scripts.
> #!/usr/bin/suidperl
No, that's not it. If Perl is properly installed, you simply make your
script set-id, and Perl will take care of the rest. Try making this script
set-id, then run it from a different id and see what you get. Hope this
helps!
#!/usr/bin/perl -w
if ($< == $>) {
print "Not set id.\n";
} else {
print "Set id! \$< is $< and \$> is $>.\n";
}
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Wed, 26 Mar 1997 15:11:20 +0000
From: Sandro Poltera <poltera@bluewin.ch>
Subject: Suid set - System calls
Message-Id: <33393C98.A2E@bluewin.ch>
Hi together,
I set the suid of my perlscript:
-rwsrwxr-x 1 root other 12527 Mar 26 10:27 hosttool.pl*
Now it seems, that systemcalls (system()) do no longer work.
The same with the mkdir-function of perl. Is there something
I do wrong. Or are these limitations because of the suid?
------------------------------
Date: 26 Mar 1997 16:53:55 GMT
From: c.c.eiftj@33.usenet.us.com (Rahul Dhesi)
Subject: Re: term 'regular expressions' considered undesirable
Message-Id: <5hbkb3$gtp@samba.rahul.net>
In <5guvee$ikd$1@csnews.cs.colorado.edu> Tom Christiansen
<tchrist@mox.perl.com> writes:
>I'll make a deal: you get everyone to first rename their grep programs
>to gspp, and I'll change the perl docs. Remember that grep allows \1
>stuff in its regular expressions.
But gspp means nothing to newcomers, and neither does grep, so both are
arbitrary terms, and grep is at least easily pronounced. I see no harm
in short arbitrary names.
'Search pattern' has the correct intuitive meaning for new perl users.
'Regular expression' asks the nonmathematical reader to believe that we
are talking about a special type of expression, one that is "regular" in
some sense, which is not really true. And 'regular expression' invites
the reader with a mathematical background to be misled into thinking
that such an expression might be implemented with a finite state
machine, which is generally not true either.
So I propose the following to all who read this:
In the future, whenever you have a choice, say or write 'pattern'
or 'search pattern' or 'perl pattern' as appropriate instead of
'regular expression'. It will be easier for your nontechnical
audience to understand what you mean, it will mislead fewer people,
and you even have to type fewer characters!
It looks like a win-win situation to me.
--
Rahul Dhesi <dhesi@spams.r.us.com>
a2i communications, a quality ISP with sophisticated anti-junkmail features
** message body scan immune to fake headers *** see http://www.rahul.net/
>>> "please ignore Dhesi" -- Mark Crispin <mrc@CAC.Washington.EDU> <<<
------------------------------
Date: Thu, 27 Mar 1997 00:20:41 +0900
From: Christopher Wright <mrchristopher@inorbit.com>
Subject: Text Justification
Message-Id: <33393EC9.549D@inorbit.com>
Hi Hi
I came across a script on the web a few months ago for text
justification which I have since lost track of. I never tried it but it
appeared you fed it raw ascii and it spat out a nice text block with
lines split and spaces inserted in the right places so text would appear
left and right justified when put between >pre< tags (sic).
Does anyone know the script I'm talking about or know of one similar ?
Thank you !
Christopher
Tokyo March27th
------------------------------
Date: 26 Mar 1997 18:47:26 GMT
From: avm@best.com (Anthony Mulligan)
Subject: trying to modify matt's formmail script
Message-Id: <5hbqvu$o5g$1@nntp2.ba.best.com>
Hi, I am using Matt's exellent formmail script, which parses the contents
of a form which mails a designated recipient the contents.The script also
returns a mirror of the form submission to the browser what I want to do
is change the contents of the returned html document to simply say
thankyou and not list the items of the form submission while unchanging
the contents emailed to the designated recipient.
bellow is the script: written by the famous matt Wright(Originally Rueben
Lerner) I believe.
The reason I ask here and not on the www.auth.cgi group is that it is
actaully more of a perl question from what I can tell.
I have made a note lower down where I think I need to edit the script but
am unsure how to proceed.
Thanks for any advice you can offer
#!/usr/bin/perl
#----------------------------------------------------------------------
# Form-mail.pl, by Reuven M. Lerner (reuven@the-tech.mit.edu).
# This package is Copyright 1994 by The Tech.
# Packaged Modified to mail any form to you by Matt Wright (mattw@xtc.net)
# FormMail is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 2, or (at your option) any
# later version.
# FormMail is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
# Write the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
USA.
# If you would like to obtain a copy of the GNU GPL.
# ------------------------------------------------------------
####################################################
# FormMail
# Created by Matt Wright (mattw@alpha.pr1.k12.co.us)
# Created 6/9/95 Last Modified 9/23/95
# Version 1.2
# Define Variables
$mailprog = '/usr/lib/sendmail';
$date = `/usr/bin/date`; chop($date);
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
if ($FORM{'redirect'}) {
print "Location: $FORM{'redirect'}\n\n";
}
else {
# Print Return HTML
print "Content-type: text/html\n\n";
print "<html><head><title>Thanks You</title></head>\n";
print "<body><h1>Thank You For Filling Out This Form</h1>\n";
print "Thank you for taking the time to fill out my feedback form. ";
print "Below is what you submitted to $FORM{'recipient'} on ";
print "$date<hr>\n";
}
# Open The Mail
open(MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
print MAIL "To: $FORM{'recipient'}\n";
print MAIL "From: $FORM{'email'} ($FORM{'realname'})\n";
if ($FORM{'subject'}) {
print MAIL "Subject: $FORM{'subject'}\n\n";
}
else {
print MAIL "Subject: WWW Form Submission\n\n";
}
print MAIL "Below is the result of your feedback form. It was\n";
print MAIL "submitted by $FORM{'realname'} ($FORM{'email'}) on $date\n";
print MAIL "---------------------------------------------------------\n";
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
unless ($name eq 'recipient' || $name eq 'subject' || $name eq 'email'
|| $name eq 'realname' || $name eq 'redirect') {
# Print the MAIL for each name value pair
if ($value ne "") {
print MAIL "$name: $value\n";
print MAIL "____________________________________________\n\n";
}
unless ($FORM{'redirect'}) {
if ($value ne "") {
print "$name = $value<hr>\n";
}
}
}
}
close (MAIL);
unless ($FORM{'redirect'}) {
print "</body></html>";
}
------------------------------
Date: 26 Mar 1997 14:24:17 GMT
From: lvirden@cas.org
Subject: Re: What's a good Perl book?
Message-Id: <5hbbih$q42@srv13s4.cas.org>
According to InfoFreako <infofreako@poe.org>:
:On 17 Mar 1997 05:41:05 GMT, jgoerzen@complete.org (John Goerzen)
:wrote:
:
:>Let us not forget that it is important to get the **second edition** of this
:>book!
:>
:>--[stuff deleted]--
:>
:>Or cheaper, from http://www.amazon.com, or (for the cheapest price I found),
:>from http://www.cheapbytes.com.
:
:If you have an older version of any O'Reilley book, they will give you
:25% off the newer version if you send them the first page of the older
:book. Check it out at their site. Not a bad deal!
Just to give everyone a comparison:
Programming Perl, 2nd Edition
O'Reilly's: $39.95
Upgrade discount: $29.97
(25% with title page of first edition_
Cheapbytes: $32.76
Amazon: $23.97
Anyone have a URL for a site which does comparison shopping for books? Seems
like a real winner of a service...
--
Larry W. Virden INET: lvirden@cas.org
<URL:http://www.teraform.com/%7Elvirden/> <*> O- "We are all Kosh."
Unless explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
------------------------------
Date: 26 Mar 1997 16:29:38 GMT
From: pdf@morgan.ucs.mun.ca (Paul David Fardy)
Subject: Re: What's a good Perl book?
Message-Id: <5hbiti$8a9@coranto.ucs.mun.ca>
"Aaron, Penny, Jaymee Minner" <badsmrfs@stratos.net> writes:
>When I was particularly frustrated at not being able to find
>something, it seemed like more effort was put into the
>cute comments than making the book intuitively useful.
Tom Christiansen <tchrist@mox.perl.com> writes:
>Why don't you tell us what you had trouble finding/learning
>so that we can address these in a future reprint?
Exactly where should we send our comments on the Perl book?
I found what I thought to be some errata in the Camel2e and sent mail
to tchrist@perl.com (as noted on the errata web page). I got an
autoreply with a list of topics and contact options. It gave me no
indication if my message was still somewhere in your inbox and the list
of contact options doesn't show an address directly related to the
book. Maybe I should send mail to perlbugs@perl.com...
Paul Fardy
--
Paul David Fardy | pdf@morgan.ucs.mun.ca
Computing and Communications | pdf@InfoNET.st-johns.nf.ca
Memorial University of Newfoundland |
St. John's, NF A1C 5S7 |
------------------------------
Date: Thu, 27 Mar 1997 02:31:54 +0000
From: Douglas Seay <seay@absyss.fr>
To: Paul David Fardy <pdf@morgan.ucs.mun.ca>
Subject: Re: What's a good Perl book?
Message-Id: <3339DC1A.5D87@absyss.fr>
Paul David Fardy wrote:
> I found what I thought to be some errata in the Camel2e and sent mail
> to tchrist@perl.com (as noted on the errata web page). I got an
> autoreply with a list of topics and contact options. It gave me no
> indication if my message was still somewhere in your inbox and the list
> of contact options doesn't show an address directly related to the
> book. Maybe I should send mail to perlbugs@perl.com...
[posted and mailed]
I've gotten TomC's auto reply before and I remember it stating that
he reads everything but isn't likely to reply. Sure, it could be a
bit annoying if you wanted a reply (I didn't) but it is understandable
if he gets just half the email that I think he does.
- doug
------------------------------
Date: Wed, 26 Mar 1997 12:46:23 -0500
From: Ling Wang <wang_ling@jpmorgan.com>
Subject: Re: Who makes more $$ - Windows vs. Unix programmers?
Message-Id: <333960EF.34F1@jpmorgan.com>
Sometimes Brian wrote:
>
> On Sat, 22 Mar 1997 22:32:12 -0600, Marion Evans
> <marion.evans@wcom.com> wrote:
>
> >Novell treated Unix with same reverance as WordPerfect alright
> >Noorda's sucksessor Frankenstein sold Unix and UnixWare to Sun
> >Even still the Unix - Sun deal was done bout a year before the
> >WP - Corel deal.
>
> Actually, SCO bought Unix from Novell, and currently own the Unix
> system. I don't think that Sun owns Unix at all.
> Be careful believing what I say, I have been known to be
> wrong before.
You sure are. Sun bought the right to UNIX from Novell when
Novell tried to cash in on the business. Sun knew Novell
wasn't going to do anything with the state of UNIX except
to make it into another Novell Server. Now SCO owns the
UNIX trademark, they are juggling it with one hand and doing
whatever they want with it. It like throwing a kid in a
sandbox, the sand is there, making it into a castle is up
to you.
------------------------------
Date: 26 Mar 1997 13:34:12 GMT
From: lvirden@cas.org
Subject: Re: ~INTERVIEW FOR ALL PERL GURUS
Message-Id: <5hb8kk$n88@srv13s4.cas.org>
According to Tad McClellan <tadmc@flash.net>:
:Jonathan Barry Neufeld (jneufeld@rapidnet.net) wrote:
:There is a *whole bunch* of free documentation available:
:
:1) the '.pod' files (Plain Old Documentation)
: these are included with the perl distribution
:
:2) the new Perl FAQs
:
:3) http://www.perl.com
Note that with perl 5.004, it looks like the .pod count really explodes.
I count 45 files in that directory alone; never mind all the libraries
that come with pod documentation in them as well. If you check out the
recently announced perlbook - a Portable Document Format of the
files, you will see a 3 meg file ! There's 764 pages in the last version
I printed...
Folk should also realize that on perl.com there are also a number of other
very useful documents to read . Start at
<URL:http://www.perl.com/perl/> and see for instance the info on CPAN,
where there are literally over 950 'object' types available in dozens of
packages.
--
Larry W. Virden INET: lvirden@cas.org
<URL:http://www.teraform.com/%7Elvirden/> <*> O- "We are all Kosh."
Unless explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
------------------------------
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 184
*************************************
