[23670] in Perl-Users-Digest
Perl-Users Digest, Issue: 5877 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 1 09:05:41 2003
Date: Mon, 1 Dec 2003 06:05:07 -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, 1 Dec 2003 Volume: 10 Number: 5877
Today's topics:
Re: ASPN vs. CPAN modules naming <randy@theoryx5.uwinnipeg.ca>
can you flock a file or lock a file before opening it. <someone@microsoft.com>
Re: can you flock a file or lock a file before opening (William Herrera)
Re: can you flock a file or lock a file before opening <nobull@mail.com>
Re: config::inifiles and retrieval of delimiter <nobull@mail.com>
Re: Deleting tmp-files of CGI.pm upload() (Malcolm Dew-Jones)
Re: Dynamic check boxes from two arrays <nobull@mail.com>
Re: Dynamic check boxes from two arrays <someone@somewhere.com>
geld nodig? <geert@dds.nl>
Re: hash key evaluation creates an entry ! (Tad McClellan)
Net::LDAP::Control:Paged function not working in activ (Nilendu)
Re: open/print or sys commands to write to a named pipe <nobull@mail.com>
Re: open/print or sys commands to write to a named pipe <usenet@morrow.me.uk>
Re: open/print or sys commands to write to a named pipe <jim.mozley@exponential-e.com>
Re: Perl unicode and :crlf, was Re: regexp: \x0a => \x0 <nospam-abuse@ilyaz.org>
Re: Perl unicode and :crlf, was Re: regexp: \x0a => \x0 <usenet@morrow.me.uk>
Re: Problem installing through PPM (ko)
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Using perl -e to remove times/dates from a file <zen13097@zen.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 30 Nov 2003 23:50:40 -0600
From: "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>
Subject: Re: ASPN vs. CPAN modules naming
Message-Id: <PEAyb.33044$MW5.49009@news1.mts.net>
"smithJ." <smith2222@hayoo.com> wrote in message
news:3fc91217$1@dnews.tpgi.com.au...
> just installed ActiveState on my W2K.
> looking to install GD::Graph, there is non, or maybe it is called by a
> different name.
The ppm package is called GDGraph, not GD-Graph, as the
name is derived from the CPAN distribution name. Similarly,
GD::Text::Util is found in the GDTextUtil ppm package.
best regards,
randy kobes
------------------------------
Date: Mon, 01 Dec 2003 04:28:47 GMT
From: "John Smith" <someone@microsoft.com>
Subject: can you flock a file or lock a file before opening it.
Message-Id: <3szyb.1670$IF6.87091@ursa-nb00s0.nbnet.nb.ca>
I want to ensure that only one person at a time can edit a file using my
perl script.
From what I've read, it appears that you can only flock a file after opening
it.
So I guess it would look like this:
- open the file for writing
- flock the file for exclusive (2)
- update the file
- unflock the file or flock (8)
- close the file
I'm suspecting that if the file is already open when you try to flock it,
the flock function will return an error code?
Now this would work great if you are trying to append to a file, as in a log
file, but what if you want to change info in the file? Maybe I'm not doing
this properly.
- My program opens (for read), reads the entire file, and closes the file.
- Then it open (for write), re-writes the complete file (with the updates),
and closes the file.
From what I understand, if I can't lock the file before opening it, then
this flock won't help me.
Now it turns out that my perl script will be the only program accessing
these files.
So I thought, that maybe I could have a dummy file that I would flock. If I
can flock this file, then I would allow my perl program to read, delete,
re-write or whatever to my other data files. Once I'm done, I unflock the
dummy file.
Another question... My perl script runs on a web server and when it is
called, it does a few quick things and terminates. When the perl script
terminates, will all files locked by the perl script be unlocked upon
termination (in the event that an error occured and it ended prematurely -
not that it would).
I think I was told that the web server is running perl 5.8???
This brings me to a final question.
Is there a function that can retrieve the version of Perl that is running?
This would be nice since the server is like 3 hours away (200 miles away!)
Thanks for all.
G.Doucet
------------------------------
Date: Mon, 01 Dec 2003 05:29:56 GMT
From: posting.account@lynxview.com (William Herrera)
Subject: Re: can you flock a file or lock a file before opening it.
Message-Id: <3fcacf13.95930443@news2.news.adelphia.net>
On Mon, 01 Dec 2003 04:28:47 GMT, "John Smith" <someone@microsoft.com> wrote:
>I want to ensure that only one person at a time can edit a file using my
>perl script.
>
>From what I've read, it appears that you can only flock a file after opening
>it.
>So I guess it would look like this:
>
> - open the file for writing
> - flock the file for exclusive (2)
> - update the file
> - unflock the file or flock (8)
> - close the file
>
>I'm suspecting that if the file is already open when you try to flock it,
>the flock function will return an error code?
If the file is already locked, the program will either wait for the lock to be
released or will return an error. This depends on the second argument to flock.
See the docs in perlfunc:
===
OPERATION is one of LOCK_SH, LOCK_EX, or LOCK_UN, possibly combined with
LOCK_NB. These constants are traditionally valued 1, 2, 8 and 4, but you can
use the symbolic names if you import them from the Fcntl module, either
individually, or as a group using the ':flock' tag. LOCK_SH requests a shared
lock, LOCK_EX requests an exclusive lock, and LOCK_UN releases a previously
requested lock. If LOCK_NB is bitwise-or'ed with LOCK_SH or LOCK_EX then flock
will return immediately rather than blocking waiting for the lock (check the
return status to see if you got it).
===
>So I thought, that maybe I could have a dummy file that I would flock. If I
>can flock this file, then I would allow my perl program to read, delete,
>re-write or whatever to my other data files. Once I'm done, I unflock the
>dummy file.
I use this in one script that writes its log entries to a db file (don't ask
why :)). Here's a code excerpt:
dblogflock();
tie(%lastogin, 'DB_File', $login_db) or mydie('Cannot tie login DB',
__LINE__);
$lastlogin{$user} = time;
untie %logins;
undblogflock();
sub dblogflock {
open(LDBM, ">$loglockfile") or mydie("loglockfile error: $!", __LINE__);
flock LDBM, 2;
}
sub undblogflock {
close LDBM;
}
Note that this will wait until the other process releases the lock before it
completes.
---
Use the domain skylightview (dot) com for the reply address instead.
------------------------------
Date: 01 Dec 2003 07:43:41 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: can you flock a file or lock a file before opening it.
Message-Id: <u9wu9h9e4y.fsf@wcl-l.bham.ac.uk>
"John Smith" <someone@microsoft.com> writes:
[ Unless you have permission from Microsoft to use their domain in
your mail address then doing so is rude to say the least (and probably
actionable). ]
> I want to ensure that only one person at a time can edit a file using my
> perl script.
>
> From what I've read, it appears that you can only flock a file after opening
> it.
> So I guess it would look like this:
>
> - open the file for writing
> - flock the file for exclusive (2)
> - update the file
> - unflock the file or flock (8)
> - close the file
>
> I'm suspecting that if the file is already open when you try to flock it,
> the flock function will return an error code?
Just being open will not interact with locking unless you have
mandatory locking configured on the file at the OS level.
flock() will block rather than return a failure code unless to
explicitly ask for non-blocking mode.
> - My program opens (for read), reads the entire file, and closes the file.
> - Then it open (for write), re-writes the complete file (with the updates),
> and closes the file.
>
> From what I understand, if I can't lock the file before opening it, then
> this flock won't help me.
So open the file read/write in the first place then you don't need to
close it and can hold the lock throughout.
> So I thought, that maybe I could have a dummy file that I would flock. If I
> can flock this file, then I would allow my perl program to read, delete,
> re-write or whatever to my other data files. Once I'm done, I unflock the
> dummy file.
That too, is a valid approach.
Be aware that to cope gracefully with abnormal termination one usually
would write the updated file to a new file then rename that file over
the old one. This trick would need to combined with the
aforementioned "separate lockfile" approach on OSs that lack an atomic
rename-over-existing-file.
To save re-inventing the wheel, see the module IO::AtomicFile on CPAN.
> Another question...
Errr....
> My perl script runs on a web server and when it is called, it does a
> few quick things and terminates. When the perl script terminates,
> will all files locked by the perl script be unlocked upon
> termination (in the event that an error occured and it ended
> prematurely - not that it would).
[ Er, what was your question? I shall assume "It is true that ...?"]
Under CGI yes, the above is true, because a CGI script runs as a
separate process. When the process terminates all resources held by
it are (or at least should be) freed by the OS.
This is not necessarily the case under other mechanisms that may be
used to connect your Perl script to the web server (mod_perl, FastCGI,
whatever).
Using a bare filehandle you can avoid this thus:
local *FOO;
open FOO, '<+', $filename or die "Can't open $filename: $!";
This will close the file on exiting the current lexical scope, whether
normally or abnormally.
However, I suggest that people should always open files using
filehandle references rather than bare filehandles except when
backward compatability with old versions of Perl is needed. (And if
you are using IO::AtomicFile you'd be using a reference anyhow).
open my $foo, '<+', $filename or die "Can't open $filename: $!";
This will close the file upon destruction of the last copy of the
reference held in $foo. This will close the file upon termination so
long as your program hasn't leaked any copies of the reference in
$foo.
Note that under mod_perl's Registry you can't declare $foo as a
lexical variable at the file-scope an then use $foo within a
subroutine.
A workround for the latter is to use a package variable and local().
open local our $foo, '<+', $filename or die "Can't open $filename: $!";
> I think I was told that the web server is running perl 5.8???
> This brings me to a final question.
> Is there a function that can retrieve the version of Perl that is running?
> This would be nice since the server is like 3 hours away (200 miles away!)
$]
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 01 Dec 2003 06:10:54 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: config::inifiles and retrieval of delimiter
Message-Id: <u98ylxax01.fsf@wcl-l.bham.ac.uk>
Ben Morrow <usenet@morrow.me.uk> writes:
> totally@bogus.email.invalid wrote:
> > Domenico Discepola wrote:
> > > Is there a way to assign the "interpreted" value into my variable?
> >
> > Sure. Just eval it in an interpolated string, like [untested]:
> >
> > my $delimiter=eval "\"$my_iniinput->val('GLOBAL','delimiter')\"";
>
> my $delimiter = $my_iniinput->val(...);
> eval "\$delimiter = <<__EOS__;\n$delimiter\n__EOS__";
BTW ISTRT on older Perls you may need another \n on the end.
I would take the LHS of the assignment outside the eval(). Oh, and
semicolon is redundant:
$delimiter = eval "<<__EOS__\n$delimiter\n__EOS__";
> substr($delimiter, -1) = "";
There is a special Perl function to remove the last character:
chop($delimter);
You can even combine them:
chop($delimiter = eval "<<__EOS__\n$delimiter\n__EOS__");
> as someone (Brian?) posted here not long ago. But
While I do have a bee in my bonnet about this, I have to admit that I
didn't come up with the here-doc trick myself. I read about it here.
> BE CAREFUL...
>
> While this is the Right Answer, it will also intepolate all manner of
> other things, most of which are probably undesirable. Consider
> carefully before you use this.
>
> (This is not to say that having the format of your config file be Perl
> code is necessarily a bad thing, just that you need to be aware of the
> implications of this.)
Indeed - there are many times when permission to edit the config file
already implies permission to execute arbritrary code. The most
obvious case is when the config file contains the path of an external
program to be run. When this condition exists anyhow there's no security
implication in using eval().
Consider using the String::Interpolate module. Be aware that while
String::Interpolate provides some safety it relies on the Safe module.
It plugs some of the known vulnerabilities of Safe but there are
almost certainly vulnerabilities it does not.
Oh, and the API of String::Interpolate is utterly Baroque, it was
kinda written as an example of all the different API models available
to a Perl module.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 30 Nov 2003 20:11:54 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: Deleting tmp-files of CGI.pm upload()
Message-Id: <3fcabf8a@news.victoria.tc.ca>
Ben Morrow (usenet@morrow.me.uk) wrote:
: Jo Oberman <johanoberm@gmx.de> wrote:
: > > .... saved, but that is it. It is removed automatically, so there
: > >is no need to attempt that.
: >
: > Unfortunately, not.
: > Using my configuration (Windows XP, Apache 1.3.27, Perl 5.6.1, CGI.pm V2.93),
: > the CGItemp-files are left in my directoy c:\temp.
: > So I have to help myself.
: >
: > Any idea's how to delete them?
: my $TMPFH = $Query->upload(...);
: my $tmpfilename = $Query->tmpFileName($TMPFH);
: For some reason this is undocumented... it doesn't seem to be
: 'internal', or anything...
Also, the file handle variable used to be the file name, perhaps that is
still true.
The original unlink couldn't work because it was not given a file `name'.
The value was not a file name because it wasn't the scalar (in this case
string) value, which was because the syntax used was wrong. If the syntax
had been correct then you might get a string that would be the file name
and be able to unlink it. (That was how it worked in the past.)
I cannot say off hand what syntax is needed to get the name value from the
file handle variable, something like ${$fh} might work.
------------------------------
Date: 01 Dec 2003 08:04:11 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Dynamic check boxes from two arrays
Message-Id: <u9smk59d6s.fsf@wcl-l.bham.ac.uk>
"Bigus" <bigus_34@yahoo.co.uk> writes:
> Follow the foreach through. You are saying:
>
> if ($DaysPlayed eq $DaysPlayerPlays[0]), which translates to - if (Sun =
> Mon)
> if ($DaysPlayed eq $DaysPlayerPlays[1]), which translates to - if (Mon =
> Tue)
> if ($DaysPlayed eq $DaysPlayerPlays[2]), which translates to - if (Tue =
> Wed)
> if ($DaysPlayed eq $DaysPlayerPlays[3]), which translates to - if (Wed =
> Sat)
> if ($DaysPlayed eq $DaysPlayerPlays[4]), which translates to - if (Thu = )
> if ($DaysPlayed eq $DaysPlayerPlays[5]), which translates to - if (Fri = )
> if ($DaysPlayed eq $DaysPlayerPlays[6]), which translates to - if (Sat = )
>
> Sth like this would do what you want it to do:
>
> foreach $DaysPlayed ( @GamingDays ) {
> if ("@DaysPlayerPlays" =~ /$DaysPlayed/) {
> # checked
> }
> else {
> # not checked
> }
> }
A few points.
You should always declare all variables as lexically scoped in the
smallest applicable lexical scope unless there is a reason to do
otherwise. This is not perculliar to Perl, it applies in all
programming languges.
In this case that mens you should insert 'my' between 'foreach' and
'$DaysPlayed'.
> if ("@DaysPlayerPlays" =~ /$DaysPlayed/) {
Some people would criticise the unecessary use of m// where index()
would do. But I won't - sometimes the runtime saving does not
justify the uglyness.
Some people would criticise the lack of \Q - but I suppose you know
that $DaysPlayed won't contain any regex metacharaters.
Some people would criticise the lack of exclosing delimiters but I
suppose you know that @DaysPlayerPlays won't contain any words that
contain day names as part of them.
Still I would, as a matter of good habit, say:
if (" @DaysPlayerPlays " =~ / \Q$DaysPlayed /) {
Of course, you are still assuming no spaces in eiher @DaysPlayerPlays
or $DaysPlayed.
The biggest problem is that you are not using the natural
representation for the data-type. In Perl the natural representation
of a set is a hash with keys but no data. Replacing @DaysPlayerPlays
with %DaysPlayerPlays we get:
if ( exists $DaysPlayerPlays{$DaysPlayed} ) {
Or, if you prefer, a hash where all the data items are 1.
if ( $DaysPlayerPlays{$DaysPlayed} ) {
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 1 Dec 2003 13:42:06 -0000
From: "Bigus" <someone@somewhere.com>
Subject: Re: Dynamic check boxes from two arrays
Message-Id: <bqfgf0$mic@newton.cc.rl.ac.uk>
"Brian McCauley" <nobull@mail.com> wrote in message
news:u9smk59d6s.fsf@wcl-l.bham.ac.uk...
> "Bigus" <bigus_34@yahoo.co.uk> writes:
[..]
> > Sth like this would do what you want it to do:
> >
> > foreach $DaysPlayed ( @GamingDays ) {
> > if ("@DaysPlayerPlays" =~ /$DaysPlayed/) {
> > # checked
> > }
> > else {
> > # not checked
> > }
> > }
>
> A few points.
>
> You should always declare all variables as lexically scoped in the
> smallest applicable lexical scope unless there is a reason to do
> otherwise. This is not perculliar to Perl, it applies in all
> programming languges.
Ooops, yes, forgot it. I've been very lazy over the past 2 years and never
used strictures or warnings.. it's never caused any problems for the types
of application I write, but for this latest project I've decided to start
being discplined (largely because I intend to make it available to others)
and it's taking some getting used to!
> In this case that mens you should insert 'my' between 'foreach' and
> '$DaysPlayed'.
>
> > if ("@DaysPlayerPlays" =~ /$DaysPlayed/) {
>
> Some people would criticise the unecessary use of m// where index()
> would do. But I won't - sometimes the runtime saving does not
> justify the uglyness.
>
> Some people would criticise the lack of \Q - but I suppose you know
> that $DaysPlayed won't contain any regex metacharaters.
>
> Some people would criticise the lack of exclosing delimiters but I
> suppose you know that @DaysPlayerPlays won't contain any words that
> contain day names as part of them.
Indeed, and it would be easier for him to do things like make it
case-insenstive by just adding "i" instead of wrapping in lc(). I originally
was going to put \b's round $DaysPlayed too, but for a simple task like that
where he knows exactly what data he's matching there's little point. I also
thought, correct me if I'm wrong, that the more you put in the regexp the
more time it takes to process.
> Still I would, as a matter of good habit, say:
>
> if (" @DaysPlayerPlays " =~ / \Q$DaysPlayed /) {
>
> Of course, you are still assuming no spaces in eiher @DaysPlayerPlays
> or $DaysPlayed.
>
> The biggest problem is that you are not using the natural
> representation for the data-type. In Perl the natural representation
> of a set is a hash with keys but no data. Replacing @DaysPlayerPlays
> with %DaysPlayerPlays we get:
>
> if ( exists $DaysPlayerPlays{$DaysPlayed} ) {
>
> Or, if you prefer, a hash where all the data items are 1.
>
> if ( $DaysPlayerPlays{$DaysPlayed} ) {
Yeah that would be easiest.. sometimes though the "natural" data-type is not
always the most "comfortable" to declare, eg:
He was using an array to hold the days:
my @DaysPlayerPlays = qw(Mon Tue Wed Sat);
but to declare that as a has you'd, correct me if I'm wrong, have to do sth
like this:
my %DaysPlayerPlays = (Mon=>'',Tue=>'',Wed=>'',Sat=>'');
or replace the empty quotes with an arbitary value, which seems a bit messy
to me.
Bigus
------------------------------
Date: Mon, 01 Dec 2003 05:06:24 GMT
From: "geert" <geert@dds.nl>
Subject: geld nodig?
Message-Id: <k%zyb.36514$LC2.8167@typhoon.bart.nl>
http://www.geld-winkel.nl/
------------------------------
Date: Mon, 1 Dec 2003 07:50:21 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: hash key evaluation creates an entry !
Message-Id: <slrnbsmhot.2q1.tadmc@magna.augustmail.com>
Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca> wrote:
> To find the size of the array, using $# or @
The $# syntax does NOT find the size of the array.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 1 Dec 2003 00:14:16 -0800
From: nilendu_das@persistent.co.in (Nilendu)
Subject: Net::LDAP::Control:Paged function not working in activePerl 5.6.1 for windows
Message-Id: <3e9d326e.0312010014.39ac9d3@posting.google.com>
Hello,
I am using Net::LDAP::Control:Paged module for the LDAP search i am
implementing
but even after is set the the page side to 10 the search result comes
as a whole. Why is the paged option not working?
any pointers?
my code snippet is as follows
use Net::LDAP::Control::Paged;
my $page = Net::LDAP::Control::Paged->new(size => 5);
my $mesg = $ldap->bind(dn => $strLdapBindUser,password =>
$strLdapBindPassword);
if ( $mesg->code()) {
die ("Unable to bind to the LDAP store $strLdapServer error:",
$mesg->code(),"\n");
}
while(1)
{
my $result = $ldap->search(base =>'dc=software,dc=com',
scope => 'subtree',
filter =>
"(&(mailboxid<=$Epoch1)(mailboxid>=$Epoch2)
(imusername=shivasamudra*))",
control => [$page],
);
my($resp) = $result->control( LDAP_CONTROL_PAGED ) or last;
my $cookie = $resp->cookie or last;
$page->cookie($cookie);
}
Thanks and Regards,
Nilendu
------------------------------
Date: 01 Dec 2003 06:54:30 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: open/print or sys commands to write to a named pipe?
Message-Id: <u94qwlauzd.fsf@wcl-l.bham.ac.uk>
Al Tobey <tobert@NOSPAMtobert.org> writes:
> Ben Morrow wrote:
>>>my $fh = new IO::File;
>>>sysopen( $fh, $pipe, O_SYNC|O_WRONLY|O_APPEND )
>>> or croak "could not open $cmdfile for writing: $!";
>>>flock( $fh, LOCK_EX );
>>>seek( $fh, 0, SEEK_END );
IIRC the seek-before-each-print work-round for OSs that don't properly
implement O_APPEND is now included in recent Perl so you no longer
need that seek() except for backward compatability. Of course without
the flock there'd still be a race condition - another process can
extend the file between the seek() and the print() so that's still
needed on such an OS.
> Yes, you can open in APPEND mode, but that doesn't guarantee anything if
> you keep the file open for multiple writes.
Well asumming your OS actually supports O_APPEND mode it guarantees
that all writes go to the end of the file. Without locking it is
still possible that two simultaneous Perl output operations that
exceed the size that perl will do in a single write() syscall will end
up getting interleaved.
In the case of a PIPE (on a Unix-like OS) there is a size (known as
PIPE_BUF) below which single write()s to a pipe are guaranteed atomic.
You can find the value of PIPE_BUF on you OS thus:
require "limits.ph";
print PIPE_BUF();
I do not know what the lowest allowable value is.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 1 Dec 2003 09:09:38 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: open/print or sys commands to write to a named pipe?
Message-Id: <bqf0gi$2iu$1@wisteria.csv.warwick.ac.uk>
Brian McCauley <nobull@mail.com> wrote:
> You can find the value of PIPE_BUF on you OS thus:
>
> require "limits.ph";
> print PIPE_BUF();
>
> I do not know what the lowest allowable value is.
SUSv3 says 512.
Ben
--
don't get my sympathy hanging out the 15th floor. you've changed the locks 3
times, he still comes reeling though the door, and soon he'll get to you, teach
you how to get to purest hell. you do it to yourself and that's what really
hurts is you do it to yourself just you, you and noone else * ben@morrow.me.uk
------------------------------
Date: Mon, 01 Dec 2003 11:26:24 +0000
From: Jim Mozley <jim.mozley@exponential-e.com>
Subject: Re: open/print or sys commands to write to a named pipe?
Message-Id: <bqf8g5$20t72r$1@ID-201189.news.uni-berlin.de>
Al Tobey wrote:
> Nagios only reads the pipe at whatever interval you set in nagios.cfg. It
> could be 1 second, but I think the default is 15 seconds.
:$ I think this is the resolution to my problem. Without wanting to get
too OT I had the config set to 1 and a sleep 2 in my code. However the
application configuration file should have 1s to force interpreting the
1 as seconds rather than a minute. However, it does re-read the pipe
under certain circumstances before the interval and I think this is why
it was working most of the time. I'll stop here as I think this is
getting beyond a c.l.p.m discussion and my red face is melting the keyboard.
Jim
------------------------------
Date: Mon, 1 Dec 2003 09:59:14 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Perl unicode and :crlf, was Re: regexp: \x0a => \x0d\x0a
Message-Id: <bqf3di$9vn$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Alan J. Flavell
<flavell@ph.gla.ac.uk>], who wrote in article <Pine.LNX.4.53.0311301849060.16904@ppepc56.ph.gla.ac.uk>:
> Your approach is clearly more versatile. But the :crlf layer ought to
> do what it says on the tin, shouldn't it? - and from the previous
> discussion, it rather looks as if it isn't doing. Or else I was using
> it wrong, but I tried several interpretations - and all the others
> seemed to be even worse.
Given that the layers architecture is absolutely broken (especially
:crlf stuff), I do not see any reason why anything using layers should
do any particular thing...
Hope this helps,
Ilya
------------------------------
Date: Mon, 1 Dec 2003 11:00:43 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Perl unicode and :crlf, was Re: regexp: \x0a => \x0d\x0a
Message-Id: <bqf70r$72i$1@wisteria.csv.warwick.ac.uk>
Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
> Given that the layers architecture is absolutely broken (especially
> :crlf stuff), I do not see any reason why anything using layers should
> do any particular thing...
I was wondering about saying something along these lines but decided
it probably wasn't my place to... the idea is a good one, but I would
say it needs a fairly fundamental re-working. *Especially* :crlf.
Ben
--
Musica Dei donum optimi, trahit homines, trahit deos. |
Musica truces mollit animos, tristesque mentes erigit. | ben@morrow.me.uk
Musica vel ipsas arbores et horridas movet feras. |
------------------------------
Date: 30 Nov 2003 18:11:01 -0800
From: kuujinbo@hotmail.com (ko)
Subject: Re: Problem installing through PPM
Message-Id: <92d64088.0311301811.38502632@posting.google.com>
nilendu_das@persistent.co.in (Nilendu) wrote in message news:<3e9d326e.0311300820.597e65ac@posting.google.com>...
> Hello,
>
> I have to use DateTime::Format::Epoch moudle to convert any given time
> to its corresponding Epoch value. But when i search for the module
> using ppm from active perl 5.6.1 it shows no match for
> Date:Time::Epoch
>
> what could be the possible reasons
>
> Thanks and regards,
>
> Nilendu
A question almost exactly the same as this was answered yesterday.
Sorry for the long link:
http://groups.google.com/groups?dq=&hl=en&lr=&ie=UTF-8&threadm=mg0yb.29934%24MW5.43457%40news1.mts.net&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DUTF-8%26group%3Dcomp.lang.perl.misc
HTH -keith
------------------------------
Date: Mon, 01 Dec 2003 13:38:06 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <vsmh1uq5ba1fcf@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 24 Nov 2003 13:44:55 GMT and ending at
01 Dec 2003 11:26:24 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2003 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 187
Articles: 623 (259 with cutlined signatures)
Threads: 122
Volume generated: 1262.7 kb
- headers: 564.2 kb (10,490 lines)
- bodies: 661.2 kb (21,935 lines)
- original: 406.5 kb (14,449 lines)
- signatures: 36.7 kb (938 lines)
Original Content Rating: 0.615
Averages
========
Posts per poster: 3.3
median: 2 posts
mode: 1 post - 86 posters
s: 11.0 posts
Posts per thread: 5.1
median: 4.0 posts
mode: 2 posts - 22 threads
s: 5.3 posts
Message size: 2075.5 bytes
- header: 927.4 bytes (16.8 lines)
- body: 1086.8 bytes (35.2 lines)
- original: 668.1 bytes (23.2 lines)
- signature: 60.3 bytes (1.5 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
47 99.5 ( 44.7/ 43.1/ 23.5) Ben Morrow <usenet@morrow.me.uk>
28 60.2 ( 32.0/ 27.9/ 18.3) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
25 50.9 ( 18.4/ 32.4/ 12.4) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 52.0 ( 17.8/ 32.8/ 18.4) Brian McCauley <nobull@mail.com>
19 30.9 ( 17.1/ 12.5/ 6.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
16 32.5 ( 15.4/ 13.2/ 6.6) James Willmore <jwillmore@remove.adelphia.net>
15 63.5 ( 18.9/ 42.8/ 37.9) tadmc@augustmail.com
15 32.8 ( 19.9/ 12.8/ 7.4) Edo <eddhig22@yahool.com>
14 26.9 ( 9.3/ 17.6/ 7.2) Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
13 21.2 ( 11.9/ 7.0/ 4.5) Tore Aursand <tore@aursand.no>
12 17.1 ( 9.0/ 8.1/ 4.0) "Tom" <tom@nosleep.net>
11 24.3 ( 12.0/ 12.3/ 8.7) "Alan J. Flavell" <flavell@ph.gla.ac.uk>
10 18.5 ( 9.8/ 8.1/ 4.7) totally@bogus.email.invalid
10 19.4 ( 9.4/ 8.0/ 6.6) abigail@abigail.nl
9 20.0 ( 6.7/ 13.3/ 11.4) Default@IO_Error_1011101.xyz
8 26.3 ( 6.3/ 20.0/ 15.9) Default@IO_Error_1011101.xyz [JDM]
8 13.6 ( 6.8/ 6.8/ 3.1) sholden@cs.usyd.edu.au
7 12.5 ( 7.3/ 5.3/ 4.0) Mike Flannigan <mikeflan@earthlink.net>
7 8.8 ( 5.7/ 3.0/ 1.5) Rafael Garcia-Suarez <rgarciasuarez@free.fr>
7 17.9 ( 5.5/ 12.4/ 5.0) William Herrera <posting.account@lynxview.com>
These posters accounted for 48.2% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
47 99.5 ( 44.7/ 43.1/ 23.5) Ben Morrow <usenet@morrow.me.uk>
28 60.2 ( 32.0/ 27.9/ 18.3) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
25 50.9 ( 18.4/ 32.4/ 12.4) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
19 30.9 ( 17.1/ 12.5/ 6.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
19 52.0 ( 17.8/ 32.8/ 18.4) Brian McCauley <nobull@mail.com>
16 32.5 ( 15.4/ 13.2/ 6.6) James Willmore <jwillmore@remove.adelphia.net>
14 26.9 ( 9.3/ 17.6/ 7.2) Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
13 63.5 ( 18.9/ 42.8/ 37.9) tadmc@augustmail.com
13 21.2 ( 11.9/ 7.0/ 4.5) Tore Aursand <tore@aursand.no>
13 32.8 ( 19.9/ 12.8/ 7.4) Edo <eddhig22@yahool.com>
11 17.1 ( 9.0/ 8.1/ 4.0) "Tom" <tom@nosleep.net>
10 18.5 ( 9.8/ 8.1/ 4.7) totally@bogus.email.invalid
10 24.3 ( 12.0/ 12.3/ 8.7) "Alan J. Flavell" <flavell@ph.gla.ac.uk>
10 19.4 ( 9.4/ 8.0/ 6.6) abigail@abigail.nl
8 13.6 ( 6.8/ 6.8/ 3.1) sholden@cs.usyd.edu.au
8 26.3 ( 6.3/ 20.0/ 15.9) Default@IO_Error_1011101.xyz [JDM]
7 17.9 ( 5.5/ 12.4/ 5.0) William Herrera <posting.account@lynxview.com>
7 8.8 ( 5.7/ 3.0/ 1.5) Rafael Garcia-Suarez <rgarciasuarez@free.fr>
7 20.0 ( 6.7/ 13.3/ 11.4) Default@IO_Error_1011101.xyz
7 11.7 ( 6.6/ 5.0/ 3.1) Darin McBride <dmcbride@naboo.to.org.no.spam.for.me>
These posters accounted for 55.5% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
99.5 ( 44.7/ 43.1/ 23.5) 47 Ben Morrow <usenet@morrow.me.uk>
63.5 ( 18.9/ 42.8/ 37.9) 15 tadmc@augustmail.com
60.2 ( 32.0/ 27.9/ 18.3) 28 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
52.0 ( 17.8/ 32.8/ 18.4) 19 Brian McCauley <nobull@mail.com>
50.9 ( 18.4/ 32.4/ 12.4) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
32.8 ( 19.9/ 12.8/ 7.4) 15 Edo <eddhig22@yahool.com>
32.5 ( 15.4/ 13.2/ 6.6) 16 James Willmore <jwillmore@remove.adelphia.net>
30.9 ( 17.1/ 12.5/ 6.7) 19 Gunnar Hjalmarsson <noreply@gunnar.cc>
26.9 ( 9.3/ 17.6/ 7.2) 14 Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
26.3 ( 6.3/ 20.0/ 15.9) 8 Default@IO_Error_1011101.xyz [JDM]
24.3 ( 12.0/ 12.3/ 8.7) 11 "Alan J. Flavell" <flavell@ph.gla.ac.uk>
21.2 ( 11.9/ 7.0/ 4.5) 13 Tore Aursand <tore@aursand.no>
20.0 ( 6.7/ 13.3/ 11.4) 9 Default@IO_Error_1011101.xyz
19.4 ( 9.4/ 8.0/ 6.6) 10 abigail@abigail.nl
18.5 ( 9.8/ 8.1/ 4.7) 10 totally@bogus.email.invalid
17.9 ( 5.5/ 12.4/ 5.0) 7 William Herrera <posting.account@lynxview.com>
17.1 ( 9.0/ 8.1/ 4.0) 12 "Tom" <tom@nosleep.net>
15.4 ( 3.9/ 11.4/ 5.7) 4 Alexander Stremitzer <stremitz@consultant.com>
15.2 ( 4.2/ 10.9/ 5.5) 4 Matthew Braid <mb@uq.net.au.invalid>
13.6 ( 6.8/ 6.8/ 3.1) 8 sholden@cs.usyd.edu.au
These posters accounted for 52.1% of the total volume.
Top 14 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
15 37.9 tadmc@augustmail.com
47 23.5 Ben Morrow <usenet@morrow.me.uk>
19 18.4 Brian McCauley <nobull@mail.com>
28 18.3 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
25 12.4 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
11 8.7 "Alan J. Flavell" <flavell@ph.gla.ac.uk>
15 7.4 Edo <eddhig22@yahool.com>
14 7.2 Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
19 6.7 Gunnar Hjalmarsson <noreply@gunnar.cc>
16 6.6 James Willmore <jwillmore@remove.adelphia.net>
10 6.6 abigail@abigail.nl
10 4.7 totally@bogus.email.invalid
13 4.5 Tore Aursand <tore@aursand.no>
12 4.0 "Tom" <tom@nosleep.net>
These posters accounted for 41.1% of the original volume.
Top 14 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.886 ( 37.9 / 42.8) 15 tadmc@augustmail.com
0.828 ( 6.6 / 8.0) 10 abigail@abigail.nl
0.705 ( 8.7 / 12.3) 11 "Alan J. Flavell" <flavell@ph.gla.ac.uk>
0.656 ( 18.3 / 27.9) 28 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.639 ( 4.5 / 7.0) 13 Tore Aursand <tore@aursand.no>
0.580 ( 7.4 / 12.8) 15 Edo <eddhig22@yahool.com>
0.578 ( 4.7 / 8.1) 10 totally@bogus.email.invalid
0.561 ( 18.4 / 32.8) 19 Brian McCauley <nobull@mail.com>
0.546 ( 23.5 / 43.1) 47 Ben Morrow <usenet@morrow.me.uk>
0.539 ( 6.7 / 12.5) 19 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.505 ( 6.6 / 13.2) 16 James Willmore <jwillmore@remove.adelphia.net>
0.498 ( 4.0 / 8.1) 12 "Tom" <tom@nosleep.net>
0.412 ( 7.2 / 17.6) 14 Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
0.383 ( 12.4 / 32.4) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
Bottom 14 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.886 ( 37.9 / 42.8) 15 tadmc@augustmail.com
0.828 ( 6.6 / 8.0) 10 abigail@abigail.nl
0.705 ( 8.7 / 12.3) 11 "Alan J. Flavell" <flavell@ph.gla.ac.uk>
0.656 ( 18.3 / 27.9) 28 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.639 ( 4.5 / 7.0) 13 Tore Aursand <tore@aursand.no>
0.580 ( 7.4 / 12.8) 15 Edo <eddhig22@yahool.com>
0.578 ( 4.7 / 8.1) 10 totally@bogus.email.invalid
0.561 ( 18.4 / 32.8) 19 Brian McCauley <nobull@mail.com>
0.546 ( 23.5 / 43.1) 47 Ben Morrow <usenet@morrow.me.uk>
0.539 ( 6.7 / 12.5) 19 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.505 ( 6.6 / 13.2) 16 James Willmore <jwillmore@remove.adelphia.net>
0.498 ( 4.0 / 8.1) 12 "Tom" <tom@nosleep.net>
0.412 ( 7.2 / 17.6) 14 Malcolm Dew-Jones <yf110@vtn1.victoria.tc.ca>
0.383 ( 12.4 / 32.4) 25 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
14 posters (7%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
22 DBI error handling
22 Perl Editor
20 use strick & hash ref
19 undif as if it is 0
14 Packages and returning errors
14 Curses %$#@!
13 Regex Question
13 trying to understand fork and wait
12 push @arr, slice-of-href
12 Newsgroup Searching Program
11 Unexpected tell() result
11 trouble with DBI/CGI
11 floating point
10 Using perl -e to remove times/dates from a file
9 Array contains too much data
9 store password in a module ?
9 newbie <STDIN> question
9 Reading Dates from Excel-file
9 subnets eating each other?
9 Does alarm work on w2k?
These threads accounted for 41.4% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
46.3 ( 12.3/ 32.7/ 15.6) 14 Packages and returning errors
41.6 ( 22.3/ 16.6/ 8.4) 22 DBI error handling
40.1 ( 15.8/ 22.5/ 13.3) 13 trying to understand fork and wait
38.3 ( 11.9/ 25.5/ 19.8) 14 Curses %$#@!
36.9 ( 21.1/ 15.5/ 8.8) 19 undif as if it is 0
34.0 ( 2.1/ 32.0/ 32.0) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
30.1 ( 15.8/ 13.4/ 6.6) 20 use strick & hash ref
27.1 ( 18.8/ 6.7/ 5.0) 22 Perl Editor
24.8 ( 15.2/ 9.0/ 6.6) 12 push @arr, slice-of-href
23.3 ( 7.4/ 15.6/ 5.3) 9 Assigning split to a list: undefined values?
23.2 ( 10.9/ 11.7/ 5.5) 13 Regex Question
22.0 ( 12.1/ 9.3/ 6.0) 12 Newsgroup Searching Program
20.1 ( 10.1/ 8.8/ 4.8) 11 trouble with DBI/CGI
19.6 ( 9.6/ 9.2/ 4.7) 11 Unexpected tell() result
19.1 ( 9.6/ 9.6/ 5.1) 8 hash key evaluation creates an entry !
18.9 ( 8.7/ 9.9/ 5.7) 9 Array contains too much data
18.6 ( 5.4/ 13.1/ 7.1) 6 Regexp issue . . .
17.4 ( 6.9/ 9.6/ 5.6) 9 store password in a module ?
17.3 ( 7.4/ 9.8/ 5.9) 9 Reading Dates from Excel-file
17.2 ( 10.4/ 6.8/ 3.4) 11 floating point
These threads accounted for 42.4% of the total volume.
Top 14 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.778 ( 19.8/ 25.5) 14 Curses %$#@!
0.742 ( 5.0/ 6.7) 22 Perl Editor
0.734 ( 6.6/ 9.0) 12 push @arr, slice-of-href
0.643 ( 6.0/ 9.3) 12 Newsgroup Searching Program
0.590 ( 13.3/ 22.5) 13 trying to understand fork and wait
0.577 ( 3.6/ 6.2) 10 Using perl -e to remove times/dates from a file
0.571 ( 8.8/ 15.5) 19 undif as if it is 0
0.550 ( 4.8/ 8.8) 11 trouble with DBI/CGI
0.510 ( 4.7/ 9.2) 11 Unexpected tell() result
0.509 ( 8.4/ 16.6) 22 DBI error handling
0.506 ( 3.4/ 6.8) 11 floating point
0.498 ( 6.6/ 13.4) 20 use strick & hash ref
0.478 ( 15.6/ 32.7) 14 Packages and returning errors
0.474 ( 5.5/ 11.7) 13 Regex Question
Bottom 14 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.778 ( 19.8 / 25.5) 14 Curses %$#@!
0.742 ( 5.0 / 6.7) 22 Perl Editor
0.734 ( 6.6 / 9.0) 12 push @arr, slice-of-href
0.643 ( 6.0 / 9.3) 12 Newsgroup Searching Program
0.590 ( 13.3 / 22.5) 13 trying to understand fork and wait
0.577 ( 3.6 / 6.2) 10 Using perl -e to remove times/dates from a file
0.571 ( 8.8 / 15.5) 19 undif as if it is 0
0.550 ( 4.8 / 8.8) 11 trouble with DBI/CGI
0.510 ( 4.7 / 9.2) 11 Unexpected tell() result
0.509 ( 8.4 / 16.6) 22 DBI error handling
0.506 ( 3.4 / 6.8) 11 floating point
0.498 ( 6.6 / 13.4) 20 use strick & hash ref
0.478 ( 15.6 / 32.7) 14 Packages and returning errors
0.474 ( 5.5 / 11.7) 13 Regex Question
14 threads (11%) had at least ten posts.
Top 6 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
4 comp.lang.perl.modules
4 comp.lang.perl
3 comp.lang.tcl
1 news.answers
1 comp.answers
1 comp.lang.perl.moderated
Top 10 Crossposters
===================
Articles Address
-------- -------
2 James Richardson <james@time4tea.demon.co.uk>
2 "MichaelC" <mickyc@NOshaSPAMw.ca>
2 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
2 <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
1 Sulla <whopper007007@yahoo.com>
1 "Mihai N." <nmihai_year_2000@yahoo.com>
1 RACHAK <sitaramr@yahoo.com>
1 Gerald Lester <Gerald.Lester@cox.net>
1 Mike <mikee@mikee.ath.cx>
1 William Herrera <posting.account@lynxview.com>
------------------------------
Date: 01 Dec 2003 10:04:51 GMT
From: Dave Weaver <zen13097@zen.co.uk>
Subject: Re: Using perl -e to remove times/dates from a file
Message-Id: <slrnbsm4j6.6kf.zen13097@wormhole.homelinux.org>
On Fri, 28 Nov 2003 11:11:15 -0000, Ben Liddicott
<ben.liddicott@comodogroup.com> inconsiderately top-posted:
>
> The translation operator:
>
> tr/09:36//
>
> will remove all "0", "9", ":", "3" and "6" characters.
No it won't.
[davew]$ perl
$x = "12:34:56";
$x =~ tr/09:36//;
print "x = $x\n";
__END__
x = 12:34:56
[davew]$
"perldoc perlop" for more info.
------------------------------
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.
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 5877
***************************************
