[11572] in Perl-Users-Digest
Perl-Users Digest, Issue: 5172 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 19 01:07:28 1999
Date: Thu, 18 Mar 99 22: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 Thu, 18 Mar 1999 Volume: 8 Number: 5172
Today's topics:
Re: & in a filename <rick.delaney@home.com>
Re: & in a filename (Sam Holden)
Re: & in a filename (Tad McClellan)
Re: Can I carry a variable form 1 page to another? brandtr@my-dejanews.com
Re: chdir : how do I pass parameters to this function?? <knataraj@worldnet.att.net>
Re: Commercial use of Perl ?'s (Tad McClellan)
Re: does perl discourage obfuscated code? (was Re: Perl <emschwar@mail.uccs.edu>
Re: Executing another SCRIPT on a different SERVER (Tad McClellan)
Re: Filehandle question (Sebastian Kuzminsky)
Re: Filehandle question <rick.delaney@home.com>
Re: foreach loop question <rick.delaney@home.com>
Re: foreach loop question (IGuthrie)
help with perl and win98 <atipson@wesleyan.edu>
How to find individual undefined array values? <dave_illini_remove@yahoo.com>
Re: How to find individual undefined array values? <rick.delaney@home.com>
Re: How to find individual undefined array values? (Andrew Johnson)
Re: How to let users of website know there are others p <smiles@wfubmc.edu>
Re: incrementation with undef results in definition. (Ronald J Kimball)
Re: Input for PERL Course request (Ronald J Kimball)
Re: Mac Newbie: droplet question (Ronald J Kimball)
Re: Modules, how to build in local directory? (Ronald J Kimball)
more on & in a filename <zzhao@execulink.com>
My hash and subroutine aren't getting along <skohrs@homee.com>
Re: My hash and subroutine aren't getting along <ebohlman@netcom.com>
Re: Newbie question about form to mail program (Larry Rosler)
Re: Newbie: DBI | DBD:ODBC <bill@yoder.org>
open( BPP0, "+>/dev/bpp0" ); (James Smith)
perl win32 serial (COM port) setup question <tonys@minerals.csiro.au>
Re: Regular Expression Help (Ronald J Kimball)
Re: Scalar/array question (Larry Rosler)
Sockets question for Win32 <chirstius@mediaone.net>
Re: Speeding up Multi Word Searches (Boolean OR) (Tad McClellan)
System call theo5@my-dejanews.com
Re: The truth about the Pentium III chip and ID --- **b <leaper@bigfoot.com>
URL Decoding??? jas237@superlink.net
Re: Variables in QUERY_STRING <jdf@pobox.com>
Re: Variables in QUERY_STRING (Ronald J Kimball)
Re: Windows NT Path Resolution <ebohlman@netcom.com>
Re: Windows NT Path Resolution (Ronald J Kimball)
Re: || vs "or" <jdf@pobox.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Mar 1999 02:04:26 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: & in a filename
Message-Id: <36F1B291.864B79C3@home.com>
[posted & mailed]
Jerry Zhao wrote:
>
> It seems to me that Perl doesn't like & in a filename (as in
> B&W.data). Why?
Why do you think it doesn't?
> How does one get arround that?
One way would be to post a small snippet of code that demonstrates the
problem you're having, making sure you include relevant information like
what you expect it to do, what it does and maybe your OS and version of
perl. Then maybe someone could show you how to "get arround that".
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 19 Mar 1999 02:05:42 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: & in a filename
Message-Id: <slrn7f3c7m.e75.sholden@pgrad.cs.usyd.edu.au>
On Thu, 18 Mar 1999 20:47:05 -0500, Jerry Zhao <zzhao@execulink.com> wrote:
>It seems to me that Perl doesn't like & in a filename (as in B&W.data). Why?
It doesn't.
>How does one get arround that?
You don't.
;echo some data >B\&W.data
;cat B\&W.data
some data
;cat test.pl
open(FILE,"B&W.data") || die "$!";
while(<FILE>)
{
print;
}
;perl test.pl
some data
;perl -v
This is perl, version 5.005_02 built for i686-linux
Copyright 1987-1998, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.
--
Sam
The very fact that it's possible to write messy programs in Perl is also
what makes it possible to write programs that are cleaner in Perl than
they could ever be in a language that attempts to enforce cleanliness.
--Larry Wall
------------------------------
Date: Thu, 18 Mar 1999 17:23:39 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: & in a filename
Message-Id: <bdurc7.4j.ln@magna.metronet.com>
Jerry Zhao (zzhao@execulink.com) wrote:
: It seems to me that Perl doesn't like & in a filename (as in B&W.data).
Perl doesn't care.
But Perl isn't what matters, since the Operating System is
what manages files.
Perl just passes the filename to the OS.
: How does one get arround that?
Perl handles it just fine, so there is no need to get around it...
What is your real problem?
Got some code?
Care to share what OS you are using?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 19 Mar 1999 02:17:25 GMT
From: brandtr@my-dejanews.com
Subject: Re: Can I carry a variable form 1 page to another?
Message-Id: <7csc3d$qpf$1@nnrp1.dejanews.com>
What your trying to do, I think, can be accomplished by the use of input tags
or hidden value tags. Take a look at the following URL. I think your answer is
here:
http://stein.cshl.org/WWW/software/CGI/cgi_docs.html
Good Luck!
In article <VnoruAAYJg72EwZQ@goforit.demon.co.uk>,
Doc <Doc@goforit.demon.co.uk> wrote:
> Hi
> I have a database on a server. I can build a web page from it 'on the
> fly' using a CGI script (+ODBC for win95 etc.). I want the user to be
> able to press a button to call for the next relevant page. This
> requires that the script called for by the button press knows the values
> of several variables from the current page. I presume that my first
> script, which formed the current page is now dead. How can I do this?
>
> I thought of saving the current info to a file but this gives problems
> when several people are using the site at once!
>
> Thanks in anticipation,
> Doc
> --
> Doc
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 19 Mar 1999 03:08:43 GMT
From: knataraj <knataraj@worldnet.att.net>
Subject: Re: chdir : how do I pass parameters to this function???
Message-Id: <36F1B0E9.5023344F@worldnet.att.net>
Ronald J Kimball wrote:
> knataraj <knataraj@worldnet.att.net> wrote:
>
> > while(<STDIN>) {
> >
> > $dir=$_;
> > chdir $dir
> > or print " Couldn't change dir to $dir reason: $!\n";
> > print `pwd` ;
> > }
> >
> > this script always gives me "directory not found" error
>
> You forgot to chomp() the contents of $_. You're trying to chdir to a
> directory whose name ends with a newline.
>
> while (defined($dir = <STDIN>)) {
> chomp $dir;
> chdir $dir
> or print "" Couldn't change dir to $dir reason: $!\n";
> }
>
> Good job remembering to check the return value!
>
> --
> _ / ' _ / - aka - rjk@linguist.dartmouth.edu
> ( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
> / http://www.ziplink.net/~rjk/
> "It's funny 'cause it's true ... and vice versa."
Thanks a lot it works... :-) :-)
Kanda
------------------------------
Date: Thu, 18 Mar 1999 17:19:19 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Commercial use of Perl ?'s
Message-Id: <75urc7.4j.ln@magna.metronet.com>
Krusty276 (krusty276@aol.com) wrote:
: Hey our company is using ActivePerl to develop some software, there is no
: licencing fee you need to pay for commercially selling our software that was
: developed in active Perl 5 is there ?
What did the license say?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 17 Mar 1999 11:10:40 -0700
From: Eric The Read <emschwar@mail.uccs.edu>
Subject: Re: does perl discourage obfuscated code? (was Re: Perl evangelism)
Message-Id: <xkfd828kmvz.fsf@valdemar.col.hp.com>
Mark <admin@asarian-host.org> writes:
> Eric The Read wrote in message <xkfhfrqkxwj.fsf@valdemar.col.hp.com>...
> >I'm not sure I understand this sentence. Are you saying that calling
> >something obfuscated is the result of your mind being dazzled by the
> >amount of things happening in one line? If so, that would go a long way
> >towards explaining what you mean by "powerful" above.
> >
> >But perl doesn't encourage this. Nor does it discourage it. It's simply
> >there.
>
> That is where I disagree. Perl does encourage terse coding. Of course
> the Camel Book never in so many words incites us to densify our
> code. But it does, however, present language tools that make for easy
> grouping: the encouragement is therefore implicit, in the same manner
> that you can state that the existence of shorthand encourages
> secretaries to use terse writing.
But it doesn't. When's the last time you saw a secretary that could do
shorthand? They don't make 'em that way anymore. Likewise, just because
the tools to do obscure programming exist in Perl, that is in no wise an
encouragement to use them in that way.
> No, Perl is not okay in spite of being obfuscate because it is
> powerful, but because the instruction-density per square inch is so
> high, Perl therefore tends to be more terse. It is only less legible if
> you do not adjust your reading speed. One is the result of the other: the
> denser, terser, the coding (= powerful,) the more it naturally follows
> that an unrolled, more descriptive coding makes for easier reading.
That's simply not true. What's wrong with my for(..) and foreach()
examples? I presented a simple and clear case where the terser idiom was
actually *easier* to read than the more verbose one. If I were given to
unwarranted generalizations, I could claim that an unrolled, more
descriptive coding style was harder to read, because it distracted the
reader with useless things like indices, instead of making the heart of
the algorithm obvious.
> Now, my point was, and still is, that you should not only look at Perl,
> or any other language, from the "terse and legible" scale, and rank
> the language solely on its readability, without realizing that the
> elevated effort it takes to read complex instructions is precisely that
> which makes the instructions so powerful.
And my point was, and still is, that a scale that runs from "terse" to
"legible" is inherently meaningless, because an idiom can be both very
terse and highly legible, or very expansive and impossible to understand.
For another example, compare the iterative and recursive solutions to the
Tower of Hanoi problem. The recursive solution is generally much terser
(Abigail's perl solution notwithstanding :^) than the iterative solution,
but it's also amazingly easier to understand.
You simply *can't* apply this "terse vs legible" scale you are employing
to *any* language, because the simple fact of the matter is that things
don't work that way.
-=Eric
------------------------------
Date: Thu, 18 Mar 1999 17:59:16 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Executing another SCRIPT on a different SERVER
Message-Id: <4g0sc7.4j.ln@magna.metronet.com>
Dale Sutcliffe (dales@enhanced-performance.com) wrote:
: How would I execute and pass information to another script on different
: server?
That depends on what protocols the "different server" speaks.
: I need to do this without doing a post or get.
That sound like the HTTP protocol.
Why must it not use that protocol?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 19 Mar 1999 02:34:14 GMT
From: seb@transmeta.com (Sebastian Kuzminsky)
Subject: Re: Filehandle question
Message-Id: <7csd36$g40$1@palladium.transmeta.com>
Earl Hood <ehood@medusa.acs.uci.edu> wrote:
] <jmfernandez@gredos.cnb.uam.es> wrote:
] > Do you know how to change the predefined STDIN, STDOUT & STDERR filehandles, in
] >the same style as the "dup2" system call?
]
] Read the documentation about open() within the perlfunc manpage.
The perlfunc open() documentation describes how to dup one filehandle
onto another one, but the method described doesnt work for references
to filehandles (objects returned from the various IO::* constructors).
References are often more convenient to use (easier to pass around,
simpler interface, etc), so i would like to learn how to dup them, too.
Suppose i want to write a server which accepts, forks, dups so the
network connection is standard in and out, and execs. A client could
connect to the server and talk to the exec'ed program.
The following code works, just like the documentation says it should.
Assume i have accepted a connection, and the connected socket is in
NEW_SOCK (using something like "accept(NEW_SOCK, $sock);"). The program
has forked, and this is the child code:
open(STDIN, "<& NEW_SOCK") || die "cannot dup STDIN: $!";
open(STDOUT, ">& NEW_SOCK") || die "cannot dup STDOUT: $!";
open(STDERR, ">& NEW_SOCK") || die "cannot dup STDERR: $!";
STDOUT->autoflush(1);
STDERR->autoflush(1);
my $command = <STDIN>;
exec $command || die "cannot exec '$command': $!\n";
My question is: how do i do accomplish the same result (STDIN, STDOUT, and
STDERR come to and from the socket) if instead of having a filehandle,
i have a reference to a filehandle (created using a construct like
"$new_sock = $sock->accept();")?
Sebastian
------------------------------
Date: Fri, 19 Mar 1999 02:49:55 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Filehandle question
Message-Id: <36F1BD4A.5B0F6B3@home.com>
[posted & mailed]
Sebastian Kuzminsky wrote:
>
> My question is: how do i do accomplish the same result (STDIN, STDOUT,
> and STDERR come to and from the socket) if instead of having a
> filehandle, i have a reference to a filehandle (created using a
> construct like "$new_sock = $sock->accept();")?
I just answered this a short time ago in the thread, "How to dup a
$fh_ref ?"
Use file descriptors.
perldoc -f open
perldoc -f fileno
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Fri, 19 Mar 1999 02:14:06 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: foreach loop question
Message-Id: <36F1B4E4.BF142D7C@home.com>
[posted & mailed]
IGuthrie wrote:
>
> Hello I am have a small piece of code and a question. Here is the code:
>
> foreach $a (0 .. 2) {
> $a="a$a";
> print"a: $a\n";
> foreach $b (0 .. 2) {
> $b="b$b";
> print "b: $b\n";
> }
> }
>
> If you run it it prints something like:
> a: 0
> b: b0
> b: b1
> b: b2
> a: 1
> b: bb0
> b: bb1
> etc .....
This looks like a bug that has been fixed. I get your output in 5004
but in 5005 I get the expected
a: a0
b: b0
b: b1
b: b2
a: a1
b: b0
b: b1
b: b2
etc.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 19 Mar 1999 02:44:16 GMT
From: iguthrie@aol.com (IGuthrie)
Subject: Re: foreach loop question
Message-Id: <19990318214416.27699.00000224@ng11.aol.com>
Great thanks for your help. I knew it was time to upgrade from 3.x. :-P
Thanks,
Ian
------------------------------
Date: Thu, 18 Mar 1999 23:29:38 -0500
From: Andrew Tipson <atipson@wesleyan.edu>
Subject: help with perl and win98
Message-Id: <36F1D2B2.75A4C4F1@wesleyan.edu>
Hi, I'm under the sad restriction of using windows98 for this particular
server, and I'm trying to access remote documents to parse for a daily
news update. Unfortunately, my knowledge of how to do this is limited
to unix, and none of those system commands work directly from windows.
How can I do it win windows? Basically I want to read
http://www.slashdot.com/ultramode.txt into an array, which I'll then
parse accordingly. What should I use to download this remote document?
Any example code would be very much appreciated.
------------------------------
Date: Thu, 18 Mar 1999 22:38:54 -0600
From: David <dave_illini_remove@yahoo.com>
Subject: How to find individual undefined array values?
Message-Id: <36F1D4DD.E4765ECF@yahoo.com>
I've looked in my perl book, man pages, and web sites, but I can
not find out how to check for individual undefined array
elements? For example:
$array[5..7]=23,29,44;
How do I find out if any other array element is undefined. I'm
using the index of the array to indicate the occurences (bin) of
a substring, and the value stored at that index to indicate the
frequency of which it happened. Essentially a histogram.
Apparrently, defined ( ) will return TRUE if at least one of
the array values is not undefined. exists( ) is only for
hashes.
Last, is there a way to specifically set any array value
which is not specifically assigned a value to zero? It's
possible that my algorithm will call out
$array[9]++; only. That would leave $array[0..8] with undefined
values.
Thanks for the help. If you wish to only respond by email, then
get rid of
"_remove" from my Reply-To address.
------------------------------
Date: Fri, 19 Mar 1999 04:57:57 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: How to find individual undefined array values?
Message-Id: <36F1DB4E.7D1146B8@home.com>
David wrote:
>
> I've looked in my perl book, man pages, and web sites, but I can
> not find out how to check for individual undefined array
> elements? For example:
> $array[5..7]=23,29,44;
ITYM
@array[5..7] = (23, 29, 44);
> How do I find out if any other array element is undefined.
Check each element.
print
'There are ',
scalar(grep !defined, @array),
" undefined elements\n";
> Last, is there a way to specifically set any array value
> which is not specifically assigned a value to zero?
defined or $_ = 0 foreach @array;
or in older perls
foreach (@array) { defined or $_ = 0 }
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Fri, 19 Mar 1999 05:12:03 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: How to find individual undefined array values?
Message-Id: <D0lI2.2692$rL2.21200@news1.rdc1.on.wave.home.com>
In article <36F1D4DD.E4765ECF@yahoo.com>,
David <dave_illini_remove@yahoo.com> wrote:
! I've looked in my perl book, man pages, and web sites, but I can
! not find out how to check for individual undefined array
! elements? For example:
! $array[5..7]=23,29,44;
! How do I find out if any other array element is undefined. I'm
! using the index of the array to indicate the occurences (bin) of
! a substring, and the value stored at that index to indicate the
! frequency of which it happened. Essentially a histogram.
! Apparrently, defined ( ) will return TRUE if at least one of
! the array values is not undefined. exists( ) is only for
! hashes.
! Last, is there a way to specifically set any array value
! which is not specifically assigned a value to zero? It's
! possible that my algorithm will call out
! $array[9]++; only. That would leave $array[0..8] with undefined
! values.
to test if an array element is defined use the defined() function
on that element (not on the whole array):
my @array;
@array[1,4..7,9] = (7,3,12,11,6);
@array = map{ defined($_)? $_ : 0 } @array;
for(my $i = 0; $i < @array; $i++) {
print "$i: ", 'x' x $array[$i], "\n";
}
or do I misunderstand your question entirely?
regards
andrew
------------------------------
Date: Thu, 18 Mar 1999 20:53:41 -0500
From: Steve miles <smiles@wfubmc.edu>
Subject: Re: How to let users of website know there are others present
Message-Id: <36F1AE24.EA5ABF0B@wfubmc.edu>
> im looking for a way to let visitors of my site know if there are others at
> the time.
Why not have a script that runs via SSI that puts the users IP address into a
file for 5 minutes. If they load any page with the SSI the IP stays again for
another 5 minutes. Everytime the script is run it checks for stale IPs and
removes them. So, then with another SSI you have a script that says how many
IPs are in the database at any given moment. May get slow if you have a ton of
users!
Steve Miles
nsurfer@bellsouth.net
------------------------------
Date: Fri, 19 Mar 1999 00:30:47 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: incrementation with undef results in definition.
Message-Id: <1dovx8m.1lwt8jj15zrmbkN@[207.60.170.226]>
<jon@amxstudios.com> wrote:
> This is a sample of my debugger session:
> DB<12> $y = 2
>
> DB<13> $x = $y
>
> DB<14> print 'defined' if defined($x)
> defined
> DB<15> $x = undef($y)
>
> DB<16> print 'defined' if defined($x)
>
> DB<17> $x .= undef($y)
>
> DB<18> print 'defined' if defined($x)
> defined
> DB<19>
>
> This seems odd to me. A similar effect occurs with the += operator.
>
> Likewise, if you start with an undefined $x and do:
> $x = ((undef) + (undef))
>
> $x will be defined.
>
> Is this a bug, or am I missing something?
You're missing something.
Scalar values in Perl can be numbers or strings or both. Perl converts
between representations as needed.
When you use .=, a string is needed, so undef is converted to ''.
When you use +, a number is needed, so undef is converted to 0.
Both '' and 0 are defined values.
And with -w, your code would give a lot of warnings.
> The reason this is getting in my way, is that I want to error check a sequence
> of function calls like this:
No, I don't think you do. ;-)
> undef ($error);
> $error .= func1();
> $error .= func2();
>
> print "Something failed" if defined $error.
Your functions return undef on success? That's just weird.
Have your functions return a defined false value (0 or '') and then do
this:
$success = 0;
$success += func1();
$success += func2();
print "Something failed" unless $success;
If you really want to stick with undef, use ||= instead of concatenation
or addition. || doesn't have to convert undef to 0 or ''.
--
#!/usr/bin/sh -- chipmunk (aka Ronald J Kimball)
perl -e'for(sort keys%main::){print if $$_ eq 1}
' -s -- -' Just' -' another ' -'Perl ' -'hacker
' http://www.ziplink.net/~rjk/ [rjk@linguist.dartmouth.edu]
------------------------------
Date: Fri, 19 Mar 1999 00:30:49 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Input for PERL Course request
Message-Id: <1dovxs1.1kyfhprsc8m72N@[207.60.170.226]>
Elaine Ashton <elaine@cts.wustl.edu> wrote:
> http://www.netaxs.com/~joc/perlbooks.html is possibly the best Perl book
> review page I have seen out there.
Is it okay to review a review page? :)
The best feature of this particular Perl book review page is definitely
the cross-referencing; books are listed by level of expertise, by degree
of recommendation, and by category.
The table of reviews is nicely laid out, with title, author, publisher,
year, level of expertise again, and rating, shown with gold balls.
Unfortunately, the reviewer chose to represent half a point with
½, which is not rendered properly on all browsers (it looks like
a ? to me; took me a second to figure it out). A gif of half a gold
ball would have been a better choice.
Very disappointing, however, was the selection of books. Despite saying
in the page's background section
As Perl became more and more popular, more books came out. For every
good one there seemed to be a so-so book, and even one that, now and
again, really stunk. And it wasn't as obvious anymore, which books
to buy. Generally speaking, if you stuck to O'Reilly & Associates
books, you were OK. But I found one or two from ORA that I didn't
think were worth the money, and I've found several excellent Perl
books published by other companies. And so the simple became
complicated.
only one book by a publisher other than O'Reilly is rated -- _Effective
Perl Programming_ from Addison-Wesley. (I'm not counting the FAQ and
the man pages, whose "publisher" is CPAN.) _MacPerl_ from Prime Time
Freeware and _Official Guide to Programming with CGI.pm_ from John Wiley
& Sons are listed but not rated.
(Oh, speaking of the FAQ and man pages, the review page is written from
the point of view of buying books; the reviewer doesn't mention on the
main page that these two particular resources are free.)
Of course, the biggest drawback with the limited collection of reviews
is that there are no books with bad reviews. By far the most enjoyable
aspect of Tim Christiansen's Camel reviews is reading the ones where he
really tears into the book without mercy! :-)
In conclusion, this review page is very well organized and laid out.
With the addition of more book reviews, and a fix for one-half points,
this will undeniably be one of the best Perl book review pages.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
perl -le 'print "Just another \u$^X hacker"'
------------------------------
Date: Fri, 19 Mar 1999 00:30:51 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Mac Newbie: droplet question
Message-Id: <1dovyq7.wq5930l2noctN@[207.60.170.226]>
Rory Campbell Lange <'x'campbell-lange@easynet.co.uk> wrote:
> if ($file != /(.)+/i) { #problem
That should be
$file !~ /(.)+/i
But that should really be
$file !~ /(.)+/
because you're not specifically matching any letters anyway.
But that should really be
$file !~ /./
because you just want to see if the variable has a value.
But that should really be
$file ne ""
because you shouldn't use a regex for that.
But that should really be
not defined $file
because you really want to know whether $file has a defined value.
:)
--
chipmunk (Ronald J Kimball) <rjk@linguist.dartmouth.edu>
perl -e 'print map chop, sort split shift, reverse shift
' 'j_' 'e._jP;_jr/_je=_jk{_jn*_j &_j :_j @_jr}_ja)_js$_j
~_jh]_jt,_jo+_jJ"_jr>_ju#_jt%_jl?_ja^_jc`_jh-_je|' -rjk-
------------------------------
Date: Fri, 19 Mar 1999 00:30:53 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Modules, how to build in local directory?
Message-Id: <1dovyw7.e32mmglg5sryN@[207.60.170.226]>
Charles Packer <packer@shell.clark.net> wrote:
> Thanks to the others who suggested PERLLIB or PERL5LIB also...
> When I tried this, however, it didn't work. I may not have
> used it correctly, though. According to the O'Reilly book,
Which O'Reilly book? O'Reilly has published several books on Perl.
> I
> should be able to give a root library. For example, if I give
> the destination directory for module-building as "pmods", I
> should be able to set PERL5LIB to $HOME/pmods and have the
> "perl Makefile.PL" statement find earlier modules there as
> well as build each subsequent one there. Even if the first
> ".pm" file gets built a some ridiculous number of levels down
> in pmods, e.g. pmods/lib/perl5/site/... it should be found,
> right?
'Fraid not. You have to actually specify the ridiculous number of
levels. Perl will not search down a directory structure to find a
module.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
perl -e 'for(@ARGV){require $_;print "$_\n $INC{$_}\n"}' File/Find.pm
------------------------------
Date: Thu, 18 Mar 1999 23:02:33 -0500
From: "Jerry Zhao" <zzhao@execulink.com>
Subject: more on & in a filename
Message-Id: <7csidp$f1r$1@demon.uunet.ca>
I encountered the problem in two occasions so far. One is that I have a
directory whose name has the character '&' in it, and I want to use Perl to
create a file of the same name that lists its contents. The other is that I
have a Perl program that call an external image viewer to load jpg files.
When I try to load files whose name contain '&', the image viewer gives
error messages. For example, if the file name passed to the sub is
"dirname/B&W01.jpg", the error message reads like this: ...dirname/.jpg not
found...
The following are excerpts from the second case:
. . .
push @hits, "$csv\/$name";
}
. . .
#load scans by its index (number)
$load->configure(-command => sub{&loadscan(\$hits[$scan->get-1])})
}
sub loadscan {
use Win32;
use Win32::Process;
Win32::Process::Create(my $newPro,
"C:\\program files\\irview\\i_view32.exe",
"i_view32 c:\\${$_[0]}",
0,
DETACHED_PROCESS,
------------------------------
Date: Fri, 19 Mar 1999 02:20:40 GMT
From: "Steve Kohrs" <skohrs@homee.com>
Subject: My hash and subroutine aren't getting along
Message-Id: <YviI2.1204$6H1.1456@news.rdc1.ne.home.com>
I'm having a problem using a hash in a subroutine. Here's what the code
looks like:
&printStats(\%hostnames, \*OUT, \$sessioncounter, 1);
sub printStats {
my $hashReference = shift;
my $filehandle = shift;
my $totalcount = shift;
my $sortem = shift;
my @keyWords = ();
if ($sortem == 1) {
@keyWords = sort keys %$hashReference;
}
else {
@keyWords = keys %$hashReference;
}
foreach (@keyWords) {
printf $filehandle ("%8d%8.2f\t%s\n", %$hashReference{$_},
(%$hashReference{$_}/$totalcount), $_);
}
}
The errors I'm receiving are, "Can't use subscript on hash deref at
logprocess.pl line 102, near "$_}"
(Did you mean $ or @ instead of %?)" . The printf is in line 102. If I
drop the '%' I get "Global symbol requires explicit package" errors.
If I code the printf outside the subroutine it works just fine. What am I
missing? This is the most frustrating thing. Any advice would be most
appreciated. Thanks.
------------------------------
Date: Fri, 19 Mar 1999 02:39:05 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: My hash and subroutine aren't getting along
Message-Id: <ebohlmanF8tM15.4n3@netcom.com>
Steve Kohrs <skohrs@homee.com> wrote:
: foreach (@keyWords) {
: printf $filehandle ("%8d%8.2f\t%s\n", %$hashReference{$_},
: (%$hashReference{$_}/$totalcount), $_);
You want $$hashReference{$_}, for the same reason that if you were using
the hash itself rather than a reference, you'd use $hash{$_} rather than
%hash{$_}.
------------------------------
Date: Mon, 15 Mar 1999 06:01:33 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Newbie question about form to mail program
Message-Id: <MPG.1156b28ec972301998974d@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <7cidod$qcb@bgtnsc03.worldnet.att.net> on 15 Mar 1999
07:44:13 GMT, David Brotman <dbrotman@worldnet.att.net >says...
> Is the line at the top of the script that reads:
>
> #!/usr/local/bin/perl
>
> supposed to include the # sign or is the # sign a comment line?
If Unix is given a text file to execute, if the first line starts with
those two characters the rest of the line is treated as the name of a
file to be executed and its parameters. Presumably the filename
specifies the appropriate interpreter for the rest of the file.
> I am just
> trying to get a form mail cgi to work and it keeps giving me a
> misconfiguration error message after I hit the submit button.
Have you successfully run a trivial CGI program that just prints "Hello,
world" at the browser? If not, you should ask about server
configuration in an appropriate newsgroup.
> Also is this syntax correct?
>
> %alias = ( 'myemail' => 'dbrotman@hotmail.com');
The syntax is correct. Whether the semantics is what you hope is a
different matter. (It assigns to the hash %alias one key 'myemail' and
its value as shown.)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 18 Mar 1999 22:43:30 -0500
From: "Bill Yoder" <bill@yoder.org>
Subject: Re: Newbie: DBI | DBD:ODBC
Message-Id: <7csh6h$1qai@enews1.newsguy.com>
FYI, the problem was that I needed a 'use DBD::ODBC' statement in there as
well.
I didn't see that in any samples, is it uncommon to require the reference?
Thanks,
Bill Yoder
Bill Yoder wrote in message <7cr8r5$15ab@enews1.newsguy.com>...
>I'm getting an error when attemptnig to connect to an Access DB. Does
anyone
>know what might cause this. I'm pretty sure it's a configuration issue, but
>I don't know how I could have messed up. I used the perl package manager to
>install DBI, DBD-ODBC, and Getopt-Long, in that order(I tried first without
>GetOpt-Long, and then with; same results).
>
>Here's the error:
>
>>"DBI::db=HASH(0xdd13b4)" is not exported by the DBI module at
>D:\Perl\Wig\MyPerl
>>\DBTest.pl line 3
>>Can't continue after import errors at D:\Perl\Wig\MyPerl\DBTest.pl line 3
>>BEGIN failed--compilation aborted at D:\Perl\Wig\MyPerl\DBTest.pl line 3.
>
>Here is the source:
>
>>use DBI
>>
>$dbh = DBI->connect( 'DBI:ODBC:ACCESS', '', '');
>>
>>$SQL = "SELECT FNAME FROM CONTACTS;"
>>$dbh->do($SQL);
>>$sth = $dbh->prepare($SQL);
>>$sth->execute();
>>while (@row = $sth->fetchrow_array)
>>{
>> print $row(0);
>>}
>>
>>$sth->finish();
>>$dbh->disconnect();
>
>
>Thanks in advance for any clues,
>Bill Yoder
>
>
>
>
------------------------------
Date: 19 Mar 99 14:59:31 +1100
From: engjs@cc.newcastle.edu.au (James Smith)
Subject: open( BPP0, "+>/dev/bpp0" );
Message-Id: <1999Mar19.145931.1@cc.newcastle.edu.au>
If I use the following statement:
open( BPP0, "+>/dev/bpp0" );
under Solaris to open the bidirectional parallel port, does Solaris see
this as opening it for both reading and writing at the same time, or is
there some sort of trickery going on?
Thanks in advance for your help.
Jim
--
James J Smith | The Vault
Faculty of Engineering | (http://users.hunterlink.net.au/~maajjs/index.htm)
Newcastle University | Rugby league records and history
engjs@cc.newcastle.edu.au |
------------------------------
Date: Fri, 19 Mar 1999 15:37:28 +1100
From: Tony Sanderson <tonys@minerals.csiro.au>
Subject: perl win32 serial (COM port) setup question
Message-Id: <Pine.GSO.3.95.990319145958.24720A-100000@ss20>
Hi,
I was just asked to create a perl script on an (ugh) Windoze 98 system to
take data from an apache web serever on our Unix system and spit it out
down a serial (COM port) line on PC (to control a video switcher). I've
got this working (via a TCP/IP socket) BUT: is there any established way
of setting the COM port parameters via perl in win32 (Win 98). The perl
doco suggests that perl for win32 "may work on Win 95/98 but it's only
been tested on NT".
The problem here is that trying to set the required parameters via the
Win98 Control Panel -> System menu seems to come CLOSE (the baud rate
certainly goes to 1200 as viewed on a 'scope), but not quite. It seems
to fail with parity (the video switcher at the other end registers
errors).
If I set up the COM port params by running another Win app first (such as
WinQVT - configured for that port), and then close it, the perl script
then communicates fine over the COM port, but only until the next
reboot!
----------------------
A second (related) question: Even when the COM port is set up properly
via the above temporary setup (and I'm able to control the remote video
switcher via unix and the socket into perl-win32), attempting to READ
data back from the COM port blocks, ie:
....
open(COM2,"<COM2") || die "com2 open: $!";
while (defined($line = <COM2>)) {
print SOCKET $line;
}
close(PIPE);
....
ie: the print statement is never reached. Any suggestions?
TIA,
Tony
PS (comment) - Being able to achieve a perl solution for all this was
fantastic. It only took an hour or so bewteen grabbing some sample
script code from one of the the Unix "man" entries for perl and having
something up and running. Caused a few jaws to drop (mine included :-)
Tony Sanderson - CSIRO _--_|\ tonys@minerals.csiro.au
Division of Minerals / \ tel +61 3 9545 8900 or 8799
Box 312 Clayton South \_.--.*/ fax +61 3 9562 8919
3168 AUSTRALIA v http://www.minerals.csiro.au/tpm
------------------------------
Date: Fri, 19 Mar 1999 00:30:57 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Regular Expression Help
Message-Id: <1dovz9k.1fbvh6q5xcaroN@[207.60.170.226]>
Tad McClellan <tadmc@metronet.com> wrote:
> Or, using a quoting mechanism where you don't need to escape
> the escapes in the first place:
>
> 'c:\web\content\tbuedit\alpha\tools\pressroom\releases\';
*snicker*
Don't you?
~> perl
print 'c:\web\content\tbuedit\alpha\tools\pressroom\releases\';
Can't find string terminator "'" anywhere before EOF at - line 1.
~>
\' within a single-quoted string is a literal single-quote.
--
#!/usr/bin/sh -- chipmunk (aka Ronald J Kimball)
perl -s -e'print sort grep { /\s/ } keys %main::
' -- -is -' Just' -' another ' -'Perl ' -'hacker
' http://www.ziplink.net/~rjk/ [rjk@linguist.dartmouth.edu]
------------------------------
Date: Mon, 15 Mar 1999 06:11:47 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Scalar/array question
Message-Id: <MPG.1156b4fe6de0bd2898974e@nntp.hpl.hp.com>
In article <36ecef46.11096488@news.freeserve.net> on Mon, 15 Mar 1999
11:34:33 GMT, John <kjc@nospam.co.uk >says...
> Just wondered if anyone knows how after i read a file into an
> array and then modify the elements so they are in double quotes?
>
> Example :
>
> line 1 of file is :
> Hello world
> Line 2:
> Hello again
> etc...
>
> But i want then in the array as "Hello world"
> and "Hello again" respectively.
There are Many Ways To Do It. Here is a simple one:
while (<FILE>) {
chomp;
push @array, qq{"$_"};
}
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 18 Mar 1999 23:00:28 -0600
From: "Chuck Hirstius" <chirstius@mediaone.net>
Subject: Sockets question for Win32
Message-Id: <gRkI2.20591$jd2.47380883@rmnws01.ce.mediaone.net>
I have seen many examples of perl tcp client/servers for unix, and a few for
Win32. But I have never seen a multi threaded server or client for Win32.
I know that Threads are a bit buggy (or so last I heard), and fork() does
not exist, so is there anyway to have bi-directional communication between
client and server without spawning new threads under Win32? I'm just
looking for a send/response here. Client connects, server sends a menu,
client responds, server sends results, etc. If anyone can help or just
point me to some Win32 specific examples of this setup I'd be grateful.
Thank you.
Chuck
------------------------------
Date: Thu, 18 Mar 1999 17:55:22 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Speeding up Multi Word Searches (Boolean OR)
Message-Id: <q80sc7.4j.ln@magna.metronet.com>
regnery@ix.netcom.com wrote:
: I realize that in an OR search, you have to check every term (otherwise, it
: just isn't an OR search).
You can short-circuit an OR just as well as an AND.
As soon as you find one term, you don't need to look for any more.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 19 Mar 1999 04:57:56 GMT
From: theo5@my-dejanews.com
Subject: System call
Message-Id: <7cslgg$2ha$1@nnrp1.dejanews.com>
Hi all,
I hope someone can help. I'm fairly new at this, been writing perl programs
for about 9 months. Perl is great EXCEPT when I make a system call using
system. I find that it gives really anomalous results. For example, when a
call works from the command line, the exact same call will not work using the
system function from a perl script. Does anyone know what is going on?
Jody
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Mar 1999 22:33:23 -0600
From: "Quantum Leaper" <leaper@bigfoot.com>
Subject: Re: The truth about the Pentium III chip and ID --- **boycott info**
Message-Id: <7csk2m$bqf@newsops.execpc.com>
Curt Steger wrote in message <36F161ED.C9F637C1@derivatech.com>...
>
>
>Quantum Leaper wrote:
>
>> Michael Barnes wrote in message <36efc6e7.0@news.webaccess.net>...
>> >Every MODEM has a MAC address also...so your friends pc is nicless, but
not
>> >macless
>>
>> Interesting is over 15 years of using modems, 300 baud to 56K modems
>> (hopefully a Cable or DSL modem in about a year or so), I have NEVER
heard
>> that they have a MAC address? So what command or how do you get the MAC
>> address of a modem? Does this only apply to Mac modems or all modems?
One
>> other question, why would a modem need a MAC address?
>
>Only if it is running on an Apple/Mac!
>
Why would it need a MAC address? MAC address is a unique number so that
NIC card can be found on the network. Unless the modem had a dual propose,
I see no reason why it would ever need a MAC address.
>Any here I thought that a MAC address was a special address book that
Billy-bum
>kept for retaliation if he ever took over the world. ?:^)
>
You do realize you only anwsered one of my questions.
------------------------------
Date: Fri, 19 Mar 1999 05:22:40 GMT
From: jas237@superlink.net
Subject: URL Decoding???
Message-Id: <7csmup$3js$1@nnrp1.dejanews.com>
Can anyone help me out. I am new at Perl programming. I'm having problems
creating a decoding routine for a script that I'm writing. I can get the
script to work with POST but I can't get it working with GET. I have tried a
few different things that I have found in a few books but I always get a
message that it is returning an empty document. Any suggestions would be
greatly appreciated!!!
Thanks
Jim
I plan on using links such as:
<a
href="http://www.at-at.com/cgi-bin/test.pl?act=searchitem&keyword=cat1">Categ
ory 1</a> <a
href="http://www.at-at.com/cgi-bin/test.pl?act=searchitem&keyword=cat2">Categ
ory 2</a> <a
href="http://www.at-at.com/cgi-bin/test.pl?act=searchitem&keyword=cat3">Categ
ory 3</a>
here is a portion of the script that I'm using:
print "Content-type: text/html\n\n";
$item = "item.txt";
if ($contents{'act'} eq "searchitem") {
open (BOOK, "$item") || do {&no_open;};
print <<"HTML";
<HTML>
<HEAD><TITLE>Search Results</TITLE></HEAD>
<BODY>
<H1> Search results for "$contents{'keyword'}": </H1>
<HR><P>
<TABLE>
HTML
$count=0;
until (eof (BOOK))
{
$line = <BOOK>;
chop($line);
if ($line =~ /$contents{'keyword'}/gi)
{
$count++;
@entry = split(/:/, $line);
print "<TR><TD>$entry[0]</TD><TD> $entry[1]</TD><TD> $entry[2]</TD><TD>
$entry[3]</TD><TD> $entry[4]</TD><TD> $entry[5]</TD></TR>";
}
}
if ($count==0)
{
print "No Matches";
}
close(BOOK);
print <<"HTML";
</TABLE>
<P><HR>
<CENTER>
<A HREF="http://www.xyz.com/index.html">[Return to the Main Page]</A>
</CENTER>
</BODY>
</HTML>
HTML
exit;
}
sub no_open {
print <<"HTML";
<HTML>
<HEAD><TITLE>Error!</TITLE></HEAD>
<BODY>
<H1> Error! Could not open the database!</H1>
<CENTER>
<A HREF="http://www.xyz.com/index.html">[Return to the Main Page]</A>
</CENTER>
</BODY>
</HTML>
HTML
exit;
}
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 19 Mar 1999 00:23:41 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: jt@enterprise.net
Subject: Re: Variables in QUERY_STRING
Message-Id: <m3r9qm59ya.fsf@joshua.panix.com>
jt@enterprise.net writes:
> If there's anyone with the slightest PERL experience, perhaps you
> would help me - it's a perfectly reasonable request which doesn't
> warrant the indifference of tin gods.
Experience *my* indifference, foolish mortal! *plonk*
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
"tin gods"?
------------------------------
Date: Fri, 19 Mar 1999 00:30:58 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Variables in QUERY_STRING
Message-Id: <1dovzju.1wv9w7r1aehv6bN@[207.60.170.226]>
[posted and mailed]
<jt@enterprise.net> wrote:
> Thank you to the many perl experts who offered constructive and very
> helpful advice directly to me via e-mail and didn't want to becomed
> embroiled in this petty and pedantic squabble.
>
> I now have my scripts working perfectly. thanks to:
>
> jake, George, Mary and Frances particularly.
Would you be willing to post to the newsgroup the answers that you
received via email (summarizing the answers back to the newsgroup is in
fact a common thing to do), so that we can all understand the Perl
content that was involved in your question?
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 19 Mar 1999 02:31:28 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Windows NT Path Resolution
Message-Id: <ebohlmanF8tLoG.4EM@netcom.com>
David Twaddell <david@123uk.net> wrote:
: If I refer to a file with no path extension, eg. "textfile.db" then my
: script finds the file ok. But if I provide a path extension,
: "/cgi-bin/links/textfile.db", my script says that it cannot find the
: file. The file is definitely in the directory "/cgi-bin/links" and so I
: deduce that for some reason Perl and Windows NT is getting the paths
: confused somehow.
Are you *really* sure that your machine even *has* a /cgi-bin directory?
Keep in mind that URLs are *not* filenames, and that what appears to be a
"directory" in a URL does *not* have to be the name of an actual
directory on the server machine. It's quite likely that your HTTP server
translates '/cgi-bin/' into a reference to some other directory.
------------------------------
Date: Fri, 19 Mar 1999 00:30:59 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Windows NT Path Resolution
Message-Id: <1dow14l.10jp1di5f036cN@[207.60.170.226]>
David Twaddell <david@123uk.net> wrote:
> If I refer to a file with no path extension, eg. "textfile.db" then my
> script finds the file ok. But if I provide a path extension,
> "/cgi-bin/links/textfile.db", my script says that it cannot find the
> file. The file is definitely in the directory "/cgi-bin/links" and so I
> deduce that for some reason Perl and Windows NT is getting the paths
> confused somehow.
The directory cgi-bin/ is probably not in the root directory. What is
the _full_ path to your file?
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 19 Mar 1999 00:26:51 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: David Coppit <dwc3q@mamba.cs.Virginia.EDU>
Subject: Re: || vs "or"
Message-Id: <m3oglq59t0.fsf@joshua.panix.com>
David Coppit <dwc3q@mamba.cs.Virginia.EDU> writes:
> Ah! I forgot that = could actually have higher precedence than other
> operators. Thanks!
I have printed out the precedence chart from the first page of perlop,
and I keep it taped up near my monitors at home and at work. Very
handy for people of limited brain space, like me.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5172
**************************************
