[25471] in Perl-Users-Digest
Perl-Users Digest, Issue: 7716 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 31 14:05:32 2005
Date: Mon, 31 Jan 2005 11:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 31 Jan 2005 Volume: 10 Number: 7716
Today's topics:
capturing perl forks patrisha@alumni.washington.edu
Re: capturing perl forks <1usa@llenroc.ude.invalid>
Re: FAQ 5.16 How can I open a file with a leading ">" o <nobull@mail.com>
Installing DBI module on Windows XP <manzoorul.hassan@gmail.com>
Re: Installing DBI module on Windows XP <mritty@gmail.com>
Re: Invisible cache for LWP / Mechanize? <comdog@panix.com>
Making HTML source "pretty" x3v0-usenet@yahoo.com
Re: Making HTML source "pretty" <1usa@llenroc.ude.invalid>
Re: Perl equivalent for Unix ps. Prab_kar@hotmail.com
Re: Perl equivalent for Unix ps. <vilain@spamcop.net>
Re: Perl newbie - getting "system()" to return <matternc@comcast.net>
Re: Perl newbie - getting "system()" to return <1usa@llenroc.ude.invalid>
Re: recursive function and hashe <nobull@mail.com>
Re: regexp inside <> + typos in perldoc <mritty@gmail.com>
Re: regexp inside <> + typos in perldoc <tadmc@augustmail.com>
Re: regexp inside <> + typos in perldoc <nobull@mail.com>
string formulas to integers nancy.iida@dalsemi.com
Re: string formulas to integers <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: string formulas to integers <phaylon@dunkelheit.at>
Re: string formulas to integers nancy.iida@dalsemi.com
Re: string formulas to integers <mritty@gmail.com>
Re: string formulas to integers <thundergnat@hotmail.com>
Re: string formulas to integers <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 31 Jan 2005 10:30:50 -0800
From: patrisha@alumni.washington.edu
Subject: capturing perl forks
Message-Id: <1107196250.539329.107800@c13g2000cwb.googlegroups.com>
I would like to capture all fork/execve's that a perl script executes.
In more detail,what I would like to do is capture all the various
methodes scripts can use to run system commands. So if someone does
something like.
use shell qw(echo);
echo "hello";
In the background I would like to capture fork/execve for the echo,
do some "stuff" and then let perl do its normal thing. Ultimately I
would like to grab a copy of the output log and potentially redirect
logs to /dev/null for some special cases.
I have searched and read until I am blue in the face but don't see a
way to capture all the possible ways a script might fork off another
process without doing something evil like overriding the fork system
call with my own.
Thanks in advance for any help
Patricia
------------------------------
Date: 31 Jan 2005 18:40:05 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: capturing perl forks
Message-Id: <Xns95EF8B09F14ADasu1cornelledu@132.236.56.8>
patrisha@alumni.washington.edu wrote in news:1107196250.539329.107800
@c13g2000cwb.googlegroups.com:
> I would like to capture all fork/execve's that a perl script executes.
Would
http://search.cpan.org/~cwest/ex-override-1.1/override.pm
help?
Sinan
------------------------------
Date: Mon, 31 Jan 2005 17:56:23 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: FAQ 5.16 How can I open a file with a leading ">" or trailing blanks?
Message-Id: <ctlr6k$j24$1@sun3.bham.ac.uk>
PerlFAQ Server wrote:
> 5.16: How can I open a file with a leading ">" or trailing blanks?
>
> Normally perl ignores trailing blanks in filenames, and interprets
> certain leading characters (or a trailing "|") to mean something
> special.
I think the time has come where we can change 'normally' to 'historically'.
The two argument form of open() still has niche applications but largely
is a legacy feature and the 3 argument form is now the normal way.
Other modifications would, of course also be needed to make it read
properly.
Historically Perl's open() function combined the mode and
filename arguments into a single argument and ignored
trailing blanks in filenames.
> The three argument form of open() lets you specify the mode separately
> from the filename. The open() function treats special mode characters
> and whitespace in the filename as literals
>
> open FILE, "<", " file "; # filename is " file "
> open FILE, ">", ">file"; # filename is ">file"
>
> It may be a lot clearer to use sysopen(), though:
>
> use Fcntl;
> $badpath = "<<<something really wicked ";
> sysopen (FH, $badpath, O_WRONLY | O_CREAT | O_TRUNC)
> or die "can't open $badpath: $!";
It is highly improbable that using the equivalent sysopen() would be
clearer than the 3-argument open. This section should be removed.
------------------------------
Date: 31 Jan 2005 08:22:55 -0800
From: "Manzoorul Hassan" <manzoorul.hassan@gmail.com>
Subject: Installing DBI module on Windows XP
Message-Id: <1107188575.820339.125930@f14g2000cwb.googlegroups.com>
I would like to install the DBI module on my Windows XP system. I am
really looking for a module that will let me connect to a MSDE (or MS
SQL) DB.
Any help would be greatly appreciated. TIA.
- manzoor
------------------------------
Date: Mon, 31 Jan 2005 16:32:38 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Installing DBI module on Windows XP
Message-Id: <G4tLd.1656$W16.491@trndny07>
"Manzoorul Hassan" <manzoorul.hassan@gmail.com> wrote in message
news:1107188575.820339.125930@f14g2000cwb.googlegroups.com...
> I would like to install the DBI module on my Windows XP system. I am
> really looking for a module that will let me connect to a MSDE (or MS
> SQL) DB.
>
> Any help would be greatly appreciated. TIA.
Assuming you have the Activestate distribution of Perl:
ppm
install DBI
If you have another distribution (say, Cygwin):
perl -MCPAN -e'install DBI'
Paul Lalli
------------------------------
Date: Mon, 31 Jan 2005 09:36:34 -0600
From: brian d foy <comdog@panix.com>
Subject: Re: Invisible cache for LWP / Mechanize?
Message-Id: <310120050936347747%comdog@panix.com>
In article <1106904040.389090.277740@z14g2000cwz.googlegroups.com>,
<"jakob.fix@gmail.com"> wrote:
> My problem is that LWP seems to maintain a cache I don't know about.
> When requesting a URL and do the Mechanize ->find_all_links() method,
> it will not always return the correct, current list of links. (code
> snippet further down)
I tend to think WWW::Mechanize is the wrongtool for this. You can
do things just as easily with something like HTML::SimpleLinkExtor,
and I know that doesn't use a hidden cache :)
--
brian d foy, comdog@panix.com
Subscribe to The Perl Review: http://www.theperlreview.com
------------------------------
Date: 31 Jan 2005 07:31:21 -0800
From: x3v0-usenet@yahoo.com
Subject: Making HTML source "pretty"
Message-Id: <1107185481.309220.232290@f14g2000cwb.googlegroups.com>
Is there a module that will make HTML source "pretty"?
Basically, I want a module that does the same thing as CGI::Pretty,
except that I want to use it in a non-CGI environment. I would like to
be able to pass in a string containing the html source and then receive
the pretty version back.
I looked all over cpan and googled up a storm, but found no module like
this (which surprised me).
Thanks for any help,
Ken
------------------------------
Date: 31 Jan 2005 15:37:29 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Making HTML source "pretty"
Message-Id: <Xns95EF6C14E26D3asu1cornelledu@132.236.56.8>
x3v0-usenet@yahoo.com wrote in news:1107185481.309220.232290
@f14g2000cwb.googlegroups.com:
> Is there a module that will make HTML source "pretty"?
>
> Basically, I want a module that does the same thing as CGI::Pretty,
> except that I want to use it in a non-CGI environment. I would like to
> be able to pass in a string containing the html source and then receive
> the pretty version back.
>
> I looked all over cpan and googled up a storm, but found no module like
> this (which surprised me).
http://search.cpan.org/~petdance/HTML-Tidy-1.05_01/
But, if you just want command line usage, I would suggest getting the tidy
utility:
http://tidy.sourceforge.net/
Sinan
------------------------------
Date: 31 Jan 2005 07:20:46 -0800
From: Prab_kar@hotmail.com
Subject: Re: Perl equivalent for Unix ps.
Message-Id: <1107184846.240858.258510@c13g2000cwb.googlegroups.com>
Thanks for your response, Jim and Greg.
My problem is I want to use pure Perl to do this.
I dont want to get into the whole platform check routine of,
If Linux
Use ps from /bin/ps
Else if Solaris
Use ps from /usr/bin/ps or /usr/ucb/ps
I wanted to see if pure Perl can give me the same info that the running
ps from backticks or system("ps") would give.
Unfortunately, that doesnt seem to be the case.
Thanks for your time,
Prabh
------------------------------
Date: Mon, 31 Jan 2005 08:04:04 -0800
From: Michael Vilain <vilain@spamcop.net>
Subject: Re: Perl equivalent for Unix ps.
Message-Id: <vilain-56EF10.08040431012005@news.giganews.com>
In article <1107184846.240858.258510@c13g2000cwb.googlegroups.com>,
Prab_kar@hotmail.com wrote:
> Thanks for your response, Jim and Greg.
>
> My problem is I want to use pure Perl to do this.
> I dont want to get into the whole platform check routine of,
> If Linux
> Use ps from /bin/ps
> Else if Solaris
> Use ps from /usr/bin/ps or /usr/ucb/ps
>
> I wanted to see if pure Perl can give me the same info that the running
> ps from backticks or system("ps") would give.
> Unfortunately, that doesnt seem to be the case.
> Thanks for your time,
> Prabh
what's wrong with opening a filehandle (e.g.
open (PS,"ps -ef") && die "can't open ps: $!\n";
## do something with the output of <PS>
close (PS);
You can modify the string according to the OS.
--
DeeDee, don't press that button! DeeDee! NO! Dee...
------------------------------
Date: Mon, 31 Jan 2005 12:19:34 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: Perl newbie - getting "system()" to return
Message-Id: <T4qdnedv5o079WPcRVn-iQ@comcast.com>
Jean-Benoit MORLA wrote:
> Hi,
>
> I have to run 4 Windows XP Pro executables sequentially from a script.
> Each executable has to be started after its predecessor.
> I tried:
>
> system( executable1 );
> system( executable2 );
>
> But the Command windows hangs until I kill the process from task
> manager.
Then your first executable is not terminating.
> The second line never gets executed.
> Also the script must not skip directly to the second line because each
> executable needs the previous one to start up.
> Is there another command in Perl than system()?
> Many thanks
I'd be looking at executable1, myself. The only reason the system()
subroutine would not return is because executable1 is not terminating.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 31 Jan 2005 15:31:26 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Perl newbie - getting "system()" to return
Message-Id: <Xns95EF6B0E84EDAasu1cornelledu@132.236.56.8>
"George" <georgekinley@hotmail.com> wrote in news:xn0dxww194mdipg001
@news.europe.nokia.com:
> Jean-Benoit MORLA wrote:
>
>> Hi,
>>
>> I have to run 4 Windows XP Pro executables sequentially from a script.
>> Each executable has to be started after its predecessor.
>> I tried:
>>
>> system( executable1 );
>> system( executable2 );
>>
>> But the Command windows hangs until I kill the process from task
>> manager.
>> The second line never gets executed.
>> Also the script must not skip directly to the second line because each
>> executable needs the previous one to start up.
>> Is there another command in Perl than system()?
>> Many thanks
>
> try geting the result,
> @result=`executable1`
>
Why should the OP try that? What have you diagnosed the problem as and why
would using backticks solve that problem? Besides, the only line of code
you posted containts a syntax error (unless it is the only statement in the
program).
Sinan.
------------------------------
Date: Mon, 31 Jan 2005 17:41:33 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: recursive function and hashe
Message-Id: <ctlqan$igi$1@sun3.bham.ac.uk>
Sébastien Cottalorda wrote:
> I all,
>
> Here is my problem,
>
> I'd like to store in a hash table those numbers like that:
> (123, 124, 13, 145, 2, 25)
>
> %number = (
> "1" => {
> "2" => {
> "3" => {
> "value" => "OK"
> },
> "4" => {
> "value" => "OK"
> },
> },
> "3" => {
> "value" => "OK"
> },
> "4" => {
> "5" => {
> "value" => "OK"
> }
> }
> },
> "2" => {
> "value" => "OK",
> "5" => {
> "value" => "OK"
> }
> }
> );
That's a very odd structure - what are you planning to use it for?
> I think I need to use recursive function,
Whilst a recursive function may seeme the most natural approach acually
an iterative one works perfectly well in this case.
for (123, 124, 13, 145, 2, 25) {
my $r = \\%number;
$r = \$$r->{$_} for split //;
$$r->{value} = 'OK';
}
> but I did know how, I'm not familiar with passing references.
The only way to become familiar is to read documentation and try.
------------------------------
Date: Mon, 31 Jan 2005 14:51:51 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: regexp inside <> + typos in perldoc
Message-Id: <bCrLd.592$ya6.355@trndny01>
"Hendrik Maryns" <hendrik_maryns@despammed.com> wrote in message
news:i_SdnYXQAqMbp2PcRVnyjA@scarlet.biz...
> Hi,
>
> I know it is possible to read in the current dir with @list=<*.*> or
> even <*>.
Those do not do the same thing.
> Now, I want to read all the current files, except for the
> .pl-files. I tried <*.[^(pl)]*>, but this gave me the pl files
alone!.
> How do regexps inside <> work?
They don't. <*> syntax is a glob, not a regex. glob() simply passes
its argument to be interpreted by your shell. If you really want to use
that syntax, you'd have to figure out how you would get a listing of the
files you want from your shell.
> Or do these follow the syntax of my
> command line (WinXP, I'm afraid)?
Yes. So determine what argument you would pass to `dir` on the command
line, and pass that argument to the glob.
Frankly, I'd abandon the glob technique, and use a more platform
independent method:
opendir my $dir, '.' or die "Cannot open current directory: $!";
#read all at once:
my @files = grep {!/\.pl$/i} readdir ($dir);
#OR, file by file:
while ($_ = readdir($dir)){
next if /\.pl$/i;
# . . .
}
closedir $dir;
> And, related: how can I get the current directory?
use Cwd;
my $curdir = getcwd;
> Apart from this, I sometimes find minor typos in the docs. Where can
I
> report those? Via perlbug seems a bit too strong to me...
> (e.g.: in perlretut, line 15 of "Using character classes": 'away'
should
> be 'a way')
I don't understand your problem with perlbug. The docs are part of the
standard Perl distribution. perlbug is for reporting errors with Perl.
What's the dilemma?
Paul Lalli
------------------------------
Date: Mon, 31 Jan 2005 10:21:57 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: regexp inside <> + typos in perldoc
Message-Id: <slrncvsmp5.nc9.tadmc@magna.augustmail.com>
Hendrik Maryns <hendrik_maryns@despammed.com> wrote:
> Now, I want to read all the current files,
What is a "current file"?
How is it different from a "file"?
> except for the
> .pl-files.
foreach my $file ( grep !/\.pl$/, glob '* .*' ) {
> How do regexps inside <> work?
There *are no* regexes involved with globbing.
Globbing is a different language, and the all of the funny
characters have different meanings.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 31 Jan 2005 17:32:25 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: regexp inside <> + typos in perldoc
Message-Id: <ctlppi$i3b$1@sun3.bham.ac.uk>
Paul Lalli wrote:
> ....glob() simply passes
> its argument to be interpreted by your shell.
Not in recent Perl.
> "Hendrik Maryns" <hendrik_maryns@despammed.com> wrote:
>> Or do these follow the syntax of my command line (WinXP, I'm afraid)?
>
> Yes.
No, not in recent Perl.
See perldoc -f glob.
------------------------------
Date: 31 Jan 2005 07:47:27 -0800
From: nancy.iida@dalsemi.com
Subject: string formulas to integers
Message-Id: <1107186447.654491.300510@f14g2000cwb.googlegroups.com>
I am trying to parse strings containing both numbers and operator
characters into an integer. I'm having some problems doing this.
Here's my program:
#!/usr/local/bin/perl
$number = 15 + 0.5 * 30; # this expression evaluates correctly to 30
$d2 = "15+0.5*30"; # this is the string I want to evaluate
$intd2 = int $d2; # will int create the value I want?
$floatd2 = sprintf "%f",$d2; # will sprintf to a float give me what I
want?
printf "number = $number\n";
printf "d2 = $d2\n"
printf "intd2 = $intd2\n"
printf "floatd2 = $floatd2\n";
Here's the resultant output:
number = 30
d2 = 15+0.5*30
intd2 = 15
floatd2 = 15
I was hoping to get the operators evaluated in the string expression?
Is there anyway of doing this short of parsing out the operators and
setting up the math? Am I just doing something wrong here?
Any help appreciated.
------------------------------
Date: Mon, 31 Jan 2005 16:57:58 +0100
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: string formulas to integers
Message-Id: <Xns95EFAC964A548elhber1lidotechnet@62.89.127.66>
nancy.iida@dalsemi.com wrote:
> $d2 = "15+0.5*30"; # this is the string I want to evaluate
[...]
> Here's the resultant output:
> d2 = 15+0.5*30
> intd2 = 15
[...]
> I was hoping to get the operators evaluated in the string expression?
> Is there anyway of doing this short of parsing out the operators and
> setting up the math? Am I just doing something wrong here?
Try this
$d2 = eval '15 + 0.5 * 30';
For more information:
perldoc -f eval
perldoc -f int
--
Cheers,
Bernard
------------------------------
Date: Mon, 31 Jan 2005 16:51:03 +0100
From: phaylon <phaylon@dunkelheit.at>
Subject: Re: string formulas to integers
Message-Id: <pan.2005.01.31.15.50.46.368115@dunkelheit.at>
nancy.iida wrote:
> I was hoping to get the operators evaluated in the string expression? Is
> there anyway of doing this short of parsing out the operators and setting
> up the math?
This is Perl, so there are more possibilities. You could have a look at
'perldoc -f eval', or if you want it "more complicated" there's also
Parse::RecDescent, which may work for this. Of Course, if you just want to
parse those math expressions, it would be overhead.
> Am I just doing something wrong here? Any help appreciated.
Beware of unchecked User-Input (If you only want to allow mathematical
expressions, it should be easy to limit the chars and make a regex to
validate), that's the first thing that comes into my head, when I think of
eval. Besides, "wrong" is (IMO) always depending on what you're trying to
do, and who you're asking.
p
--
http://www.dunkelheit.at/
Das Tor zur Dunkelheit schwingt nur in eine Richtung...
------------------------------
Date: 31 Jan 2005 08:05:16 -0800
From: nancy.iida@dalsemi.com
Subject: Re: string formulas to integers
Message-Id: <1107187516.919723.299850@z14g2000cwz.googlegroups.com>
Thanks, Bernard...I had read the docs on eval, and I had interpreted it
as a trapping function and not seen it's other function as evaluating
the expression as a small perl program.
Worked great. Thanks for your help.
------------------------------
Date: Mon, 31 Jan 2005 16:05:32 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: string formulas to integers
Message-Id: <gHsLd.2609$QS5.1766@trndny06>
<nancy.iida@dalsemi.com> wrote in message
news:1107186447.654491.300510@f14g2000cwb.googlegroups.com...
> I am trying to parse strings containing both numbers and operator
> characters into an integer.
Parsing means to dissect a string to get at its component parts. What
you are trying to do is evaluate a mathematical formula *without*
parsing it.
> I'm having some problems doing this.
>
> Here's my program:
>
> #!/usr/local/bin/perl
you forgot
use strict;
and
use warnings;
> $number = 15 + 0.5 * 30; # this expression evaluates correctly to 30
> $d2 = "15+0.5*30"; # this is the string I want to evaluate
> $intd2 = int $d2; # will int create the value I want?
no.
> $floatd2 = sprintf "%f",$d2; # will sprintf to a float give me what I
want?
no.
<snip printed output>
> I was hoping to get the operators evaluated in the string expression?
You got the entire string evaluated in a numeric context. That's not at
all the same thing.
> Is there anyway of doing this short of parsing out the operators and
> setting up the math?
Yes.
> Am I just doing something wrong here?
Yes.
> Any help appreciated.
When Perl converts from a string to a number, it starts at the first
character of the string. If that character can start a valid number
(ex, a digit, a period (decimal), or a hypen (negative)), the number is
read until the first character in the string that makes an invalid
number. The substring from that point on is discarded. So the string
"15+0.5*30" evaluates in a numeric context to 15, because '+' is not a
valid character in the middle of a number.
The function you're looking for is 'eval'. Read about it at
perldoc -f eval
And beware the multitude of security concerns that haphazardly using
eval can create. Unless you *know* exactly what's in that string, eval
can cause a host of problems.
Hope this helps,
Paul Lalli
------------------------------
Date: Mon, 31 Jan 2005 12:35:01 -0500
From: thundergnat <thundergnat@hotmail.com>
Subject: Re: string formulas to integers
Message-Id: <CsidnXCKXaWi8WPcRVn-hQ@rcn.net>
Bernard El-Hagin wrote:
> nancy.iida@dalsemi.com wrote:
>
>>$d2 = "15+0.5*30"; # this is the string I want to evaluate
>
>
> Try this
>
>
> $d2 = eval '15 + 0.5 * 30';
>
>
>
> For more information:
>
>
> perldoc -f eval
> perldoc -f int
Something to keep in mind, especially if you don't have
firm control over the expressions to be eval()ed.
Try a line like:
print eval '015 + 015';
and see if you get the answer you expect.
30, right? Wrong.
Integer numbers with leading zeros are interpreted as being
octal.
Want to really blow your mind? Try this one:
print eval '01.5 + 01.5';
3? Not even close.
This drove me crazy until I figured out what was going on.
It IS documented behaviour, though not obviously.
------------------------------
Date: 31 Jan 2005 17:51:12 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: string formulas to integers
Message-Id: <Xns95EF82C07E779asu1cornelledu@132.236.56.8>
thundergnat <thundergnat@hotmail.com> wrote in news:CsidnXCKXaWi8WPcRVn-
hQ@rcn.net:
> This drove me crazy until I figured out what was going on.
> It IS documented behaviour, though not obviously.
One way to deal with these issues might be to create a mini language
dealing with this kind of thing. The link below is my response to someone
who wanted to parse Excel formulas entered on the command line:
<URL: http://tinyurl.com/4mckr>
Please consider the code untested and unsafe. I ran it a few times before
posting it that time and have not looked at it since. It might be useful as
a starting point.
Sinan,
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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.
#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 V10 Issue 7716
***************************************
