[30171] in Perl-Users-Digest
Perl-Users Digest, Issue: 1414 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 2 11:09:50 2008
Date: Wed, 2 Apr 2008 08:09:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 2 Apr 2008 Volume: 11 Number: 1414
Today's topics:
=?Big5?B?SVQgbWFuYWdlciCzRMBZuauytGVkbXVuZCB5YXU=?= it_super_manager@hotmail.com
Re: Can I iterate through a file on a CGI page? <RedGrittyBrick@SpamWeary.foo>
Re: every combination of Y/N in 5 positions <abigail@abigail.be>
Re: every combination of Y/N in 5 positions <devnull4711@web.de>
Re: every combination of Y/N in 5 positions <abigail@abigail.be>
Re: every combination of Y/N in 5 positions <devnull4711@web.de>
Re: Good documentation or good source examples for Imag w.c.humann@arcor.de
Re: ID3v2 cover art insertion with Perl? <seppo.ingalsuo@iki.fi>
mismatch between Perl 5.6 and Perl 5.8 in printing h vivekanand.naik@gmail.com
Re: mismatch between Perl 5.6 and Perl 5.8 in printi <RedGrittyBrick@SpamWeary.foo>
Re: mismatch between Perl 5.6 and Perl 5.8 in printi <wahab@chemie.uni-halle.de>
Re: mismatch between Perl 5.6 and Perl 5.8 in printing <sisyphus359@gmail.com>
Re: mismatch between Perl 5.6 and Perl 5.8 in printing <wahab@chemie.uni-halle.de>
Re: Parse x.500 DN and change order displayed <h.b.furuseth@usit.uio.no>
Re: Perl Pattern matching <wahab@chemie.uni-halle.de>
Re: sockets giving me gray hairs. server keeps dying <lekonna@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 2 Apr 2008 04:40:08 -0700 (PDT)
From: it_super_manager@hotmail.com
Subject: =?Big5?B?SVQgbWFuYWdlciCzRMBZuauytGVkbXVuZCB5YXU=?=
Message-Id: <b509d09f-7d49-45a8-961b-ec32a996c80f@i36g2000prf.googlegroups.com>
IT manager $B<XF,AM4c(Bedmund yau
http://www.geocities.com/it_super_manager/
funmobile www.funzy.com <-- fuxking company
------------------------------
Date: Wed, 02 Apr 2008 10:59:33 +0100
From: RedGrittyBrick <RedGrittyBrick@SpamWeary.foo>
Subject: Re: Can I iterate through a file on a CGI page?
Message-Id: <47f35908$0$10638$fa0fcedb@news.zen.co.uk>
Rich Grise wrote:
> Apologies to Perl purists - comp.infosystems.www.authoring.cgi doesn't
> work on my newsreader, and this is a CGI question:
>
> What I want to do is, I've got a large collection of image files:
> $ wc gallery-pix
> 37448 62619 3218967 gallery-pix
>
> and what I'd like to do is look at each of the 37488 image files on
> some kind of page, with buttons like "Keep", "Skip", and "Quit",
> so I can page through all of these images, which are strewn all
> over the Samba server, and decide which ones might look good on
> the website.
>
> So, is it possible to do something like (in pseudocode):
>
> for each $line in <file> {
> show webpage with <img> tag, and the three buttons;
> get button response, decide what to do with file;
> if button == "Quit", save place in source file;
> next;
>
> or so?
>
Surely, looking at 37448 separate images one by one and making
subjective judgements about them is going to take a human a long long
time. If you can make a judgement in a second then it would take over
ten hours without a break to view all of them. This kind of monotonous
task would drive me crazy after a few hundred images.
I'd expect there are lots of similar images and that they may not be
naturally grouped together - which makes selecting the best of a kind
impossible, you're bound to later encounter a "better" image than one
you'd selected to "keep" yesterday or a week ago. Which means more
passes through the "keep" collection.
If I had to do it, I'd first categorise the images, then display
thumbnails for each category and pick ones to keep from each category.
Better to pay a graphics artist to produce a new consistent set for a
website?
--
RGB
------------------------------
Date: 02 Apr 2008 12:33:17 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <slrnfv6v8d.nld.abigail@alexandra.abigail.be>
_
David Harmon (source@netcom.com) wrote on VCCCXXVIII September MCMXCIII
in <URL:news:fb6dnc-9EJLmcm_anZ2dnUVZ_rSrnZ2d@earthlink.com>:
[] On Mon, 31 Mar 2008 23:23:25 +0200 in comp.lang.perl.misc, Gunnar
[] Hjalmarsson <noreply@gunnar.cc> wrote,
[] >I do, I hope. :)
[] >
[] > foreach my $num ( 0 .. 0b11111 ) {
[] > local *_ = \ sprintf '%05b', $num;
[]
[] What is *_ ? It looks like one of those magic perl variables, but
[] I don't find any documentation on it.
It's a silly attempt to obfuscate the code.
It's much better written as:
foreach (0 .. 0b11111) {
my $_ = sprintf '%05b' => $_;
tr _01_NY_;
say "$::_:$_";
}
No silly typeglobs needed.
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: Wed, 02 Apr 2008 14:49:05 +0200
From: Frank Seitz <devnull4711@web.de>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <65hdm3F2fp9u0U1@mid.individual.net>
Abigail wrote:
>
> It's a silly attempt to obfuscate the code.
>
> It's much better written as:
>
> foreach (0 .. 0b11111) {
> my $_ = sprintf '%05b' => $_;
> tr _01_NY_;
> say "$::_:$_";
> }
Nice.
> No silly typeglobs needed.
You forgot
use 5.10.0;
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
------------------------------
Date: 02 Apr 2008 12:52:18 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <slrnfv70c2.nld.abigail@alexandra.abigail.be>
_
Frank Seitz (devnull4711@web.de) wrote on VCCCXXVIII September MCMXCIII
in <URL:news:65hdm3F2fp9u0U1@mid.individual.net>:
:: Abigail wrote:
:: >
:: > It's a silly attempt to obfuscate the code.
:: >
:: > It's much better written as:
:: >
:: > foreach (0 .. 0b11111) {
:: > my $_ = sprintf '%05b' => $_;
:: > tr _01_NY_;
:: > say "$::_:$_";
:: > }
::
:: Nice.
::
:: > No silly typeglobs needed.
::
:: You forgot
::
:: use 5.10.0;
And I "forgot" #!/usr/bin/perl, I "forgot" "vi whatever",
I "forgot" "perl whatever", etc, etc.
I just focus on the important bit, and don't like to clutter the messages
with details.
Abigail
--
perl -Mstrict -we '$_ = "goto C.print chop;\n=rekcaH lreP rehtona tsuJ";C1:eval'
------------------------------
Date: Wed, 02 Apr 2008 15:08:06 +0200
From: Frank Seitz <devnull4711@web.de>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <65hepoF2fp9u0U2@mid.individual.net>
Abigail wrote:
> Frank Seitz (devnull4711@web.de) wrote on VCCCXXVIII September MCMXCIII
> :: You forgot
> ::
> :: use 5.10.0;
>
> And I "forgot" #!/usr/bin/perl, I "forgot" "vi whatever",
> I "forgot" "perl whatever", etc, etc.
>
> I just focus on the important bit, and don't like to clutter the messages
> with details.
Okay, but without this statement your program doesn't run -
even under Perl 5.10. So it *is* important.
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
------------------------------
Date: Wed, 2 Apr 2008 06:12:10 -0700 (PDT)
From: w.c.humann@arcor.de
Subject: Re: Good documentation or good source examples for Image::Magick or converter from commandline to perl
Message-Id: <2567b429-e667-4382-8a2f-88d7eca12167@d1g2000hsg.googlegroups.com>
On Apr 2, 12:13=A0am, nntpman68 <news1...@free.fr> wrote:
>
> Perhaps I manage to google for an example, though I didn't get a useful
> hit so far
>
Hope you're using the right search tool in google for code-search,
e.g. like this:
http://www.google.com/codesearch?hl=3Den&q=3D%22use+Image%3A%3AMagick%22+%22=
-%3EAnnotate%22+text%5Cs%2A%3D%3E+lang:perl
Wolfram
------------------------------
Date: Wed, 02 Apr 2008 11:02:12 GMT
From: Seppo Ingalsuo <seppo.ingalsuo@iki.fi>
Subject: Re: ID3v2 cover art insertion with Perl?
Message-Id: <UIJIj.90$pv2.32@read4.inet.fi>
Seppo Ingalsuo wrote:
> There are Perl bindings for taglib in Audio::TagLib in CPAN. I'm able to
> generate basic ID3v1 tags with it but nothing else since the
> documentation is missing/minimal and I'm far from fluent in Perl to get
> the information from Audio::TagLib source code. Any pointers how to do
> proper ID3v2 APIC tags with Perl would be really helpful.
As response to myself this seems to work ... :^)
my $mp3 = Audio::TagLib::MPEG::File->new($outfile);
my $id3v2 = $mp3->ID3v2Tag(1);
$id3v2->setArtist(Audio::TagLib::String->new($artist));
$id3v2->setAlbum(Audio::TagLib::String->new($album));
$id3v2->setTitle(Audio::TagLib::String->new($title));
$id3v2->setYear($date);
$id3v2->setTrack($track);
$id3v2->setGenre(Audio::TagLib::String->new($genre));
if (open(PICFILE, "$flacdir/cover.jpg")) {
$filesize = (-s PICFILE);
binmode(PICFILE);
read(PICFILE, $imgdata, $filesize);
close(PICFILE);
my $imgbv = Audio::TagLib::ByteVector->new();
$imgbv->setData($imgdata,$filesize);
my $bv = Audio::TagLib::ByteVector->new("APIC");
my $field =
Audio::TagLib::ID3v2::AttachedPictureFrame->new($bv, "UTF8");
$field->setPicture($imgbv);
$field->setTextEncoding("UTF8");
$field->setMimeType(Audio::TagLib::String->new("image/jpeg"));
$field->setType("Other");
$field->setDescription(Audio::TagLib::String->new("Cover
(front)"));
$id3v2->addFrame($field);
}
$mp3->save();
BR,
Seppo
------------------------------
Date: Wed, 2 Apr 2008 03:21:45 -0700 (PDT)
From: vivekanand.naik@gmail.com
Subject: mismatch between Perl 5.6 and Perl 5.8 in printing high precision values.
Message-Id: <1412482f-84c9-42af-9310-f86eba9a18be@e6g2000prf.googlegroups.com>
printf("%.32g\n",0.99999999976716936);
Perl 5.6.1 output:
0.99999999976716936 --> GOOD
Perl 5.8.6 output:
0.99999999976716925 --> ERROR
Any reason for such mismatch ?
Please let me know how to avoid that or any alternative approach if
any.
Thanks
Vivek
------------------------------
Date: Wed, 02 Apr 2008 12:02:44 +0100
From: RedGrittyBrick <RedGrittyBrick@SpamWeary.foo>
Subject: Re: mismatch between Perl 5.6 and Perl 5.8 in printing high precision values.
Message-Id: <47f367d7$0$26076$db0fefd9@news.zen.co.uk>
vivekanand.naik@gmail.com wrote:
> printf("%.32g\n",0.99999999976716936);
>
> Perl 5.6.1 output:
> 0.99999999976716936 --> GOOD
>
> Perl 5.8.6 output:
> 0.99999999976716925 --> ERROR
>
>
> Any reason for such mismatch ?
> Please let me know how to avoid that or any alternative approach if
> any.
>
print Math::BigFloat->new("0.99999999976716936")->bstr();
--
RGB
------------------------------
Date: Wed, 02 Apr 2008 13:18:42 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: mismatch between Perl 5.6 and Perl 5.8 in printing high precision values.
Message-Id: <fsvq2i$24it$1@nserver.hrz.tu-freiberg.de>
vivekanand.naik@gmail.com wrote:
> printf("%.32g\n",0.99999999976716936);
>
> Perl 5.6.1 output:
> 0.99999999976716936 --> GOOD
>
> Perl 5.8.6 output:
> 0.99999999976716925 --> ERROR
> Any reason for such mismatch ?
> Please let me know how to avoid that or any alternative approach if
> any.
This is in the interval from 1e-16 to 1e-15, which
is the accuracy of a IEEE 8 byte double in this
number range (52 bits for fraction). Seems to
be ok ==> 1 / (2^52).
The correct result (above) needs (imho) longer
than 8 byte doubles, like
perl -MMath::BigFloat -e'print Math::BigFloat->new("0.99999999976716936")->bstr()'
Regards
M.
------------------------------
Date: Wed, 2 Apr 2008 06:46:46 -0700 (PDT)
From: sisyphus <sisyphus359@gmail.com>
Subject: Re: mismatch between Perl 5.6 and Perl 5.8 in printing high precision values.
Message-Id: <28eff3d6-c1b4-4679-9838-38c295b4da66@i7g2000prf.googlegroups.com>
On Apr 2, 9:21=A0pm, vivekanand.n...@gmail.com wrote:
> printf("%.32g\n",0.99999999976716936);
>
> Perl 5.6.1 output:
> 0.99999999976716936 =A0--> GOOD
>
> Perl 5.8.6 output:
> 0.99999999976716925 =A0--> ERROR
>
> Any reason for such mismatch ?
I believe it's a bug in perl 5.8 (which has been carried through to
perl 5.10):
C:\_32\pscrpt>perl -e "printf(\"%.32g\n\",0.99999999976716936);"
0.99999999976716925
C:\_32\pscrpt>perl -e "printf(\"%.32g\n\",9.9999999976716936e-1);"
0.99999999976716936
Since 0.99999999976716936 =3D=3D 9.9999999976716936e-1, I can think of no
good reason that that those 2 one-liners should produce different
output - and I believe the first one liner produces an incorrect
result.
I'll submit a bug report about this - unless someone can convince me
that it's *not* a bug (or unless someone else wants to submit the
report).
Cheers,
Rob
------------------------------
Date: Wed, 02 Apr 2008 16:25:57 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: mismatch between Perl 5.6 and Perl 5.8 in printing high precision values.
Message-Id: <ft051d$27qi$1@nserver.hrz.tu-freiberg.de>
sisyphus wrote:
> On Apr 2, 9:21 pm, vivekanand.n...@gmail.com wrote:
>> printf("%.32g\n",0.99999999976716936);
>> Perl 5.6.1 output:
>> 0.99999999976716936 --> GOOD
>> Perl 5.8.6 output:
>> 0.99999999976716925 --> ERROR
> I believe it's a bug in perl 5.8 (which has been carried through to
> perl 5.10):
> C:\_32\pscrpt>perl -e "printf(\"%.32g\n\",0.99999999976716936);"
> 0.99999999976716925
> C:\_32\pscrpt>perl -e "printf(\"%.32g\n\",9.9999999976716936e-1);"
> 0.99999999976716936
>
> Since 0.99999999976716936 == 9.9999999976716936e-1, I can think of no
> good reason that that those 2 one-liners should produce different
> output - and I believe the first one liner produces an incorrect
> result.
>
> I'll submit a bug report about this - unless someone can convince me
> that it's *not* a bug (or unless someone else wants to submit the
> report).
Seems to be dependend on the underlying C library
implementation. Consider the following program round.c:
----- [round.c] -----
#include "stdio.h"
int main() {
printf("0.99999999976716936\n");
printf("%.32g | %.36f\n", 0.99999999976716936, 0.99999999976716936);
printf("%.32g | %.36f (%s)\n",9.9999999976716936e-1,9.9999999976716936e-1,"sisyphus");
return 0;
}
--------------------
Results:
=========
Linux/gcc: gcc-4.3 -o round round.c ; ./round
0.99999999976716936
0.99999999976716935634613037109375 | 0.999999999767169356346130371093750000
0.99999999976716935634613037109375 | 0.999999999767169356346130371093750000 (sisyphus)
WinXP/Visual-C++ 2005 & Visual C++6.0 (same results):
0.99999999976716936
0.99999999976716936 | 0.999999999767169360000000000000000000
0.99999999976716936 | 0.999999999767169360000000000000000000 (sisyphus)
WinXP/MinGW 3.4.2
0.99999999976716936
0.99999999976716936 | 0.999999999767169360000000000000000000
0.99999999976716936 | 0.999999999767169360000000000000000000 (sisyphus)
Regards
M.
------------------------------
Date: Wed, 02 Apr 2008 16:02:58 +0200
From: Hallvard B Furuseth <h.b.furuseth@usit.uio.no>
Subject: Re: Parse x.500 DN and change order displayed
Message-Id: <hbf.20080402evwo@bombur.uio.no>
szr writes:
>Hallvard B Furuseth wrote:
>>SecureIT writes:
>>> I am trying to change this
>>> "cn=Bob Smith+serialNumber=CR013120080827,o=ICM,c=US"
>>> to this:
>>> "serialNumber=CR013120080827+cn=Bob Smith,o=ICM,c=US"
>>
>> Without escape sequences like "\," and "\+" in the DNs (if that's
>> allowed anyway, I don't remember the details of X.500 Dn syntax), this
>> moves serialNumber first in each RDN:
>>
>> s/(^|,)([^,]*)\+(serialNumber=[^+,]*)(?=[+,])/$1$3+$2/gi;
>> die "didn't catch all 'foo+serialNumber's" if /\+serialNumber=/i;
>
> Using this regex will take care of \, and \+ escapes:
>
> s/(^|(?<!\\),)((?:[^,]|\\,)*)\+(serialNumber=(?:[^+,]|\\[+,])*)(?=(?<!\\)[+,])/$1$3+$2/gi;
Nope... not if I can create naughty "cn" values:
this: cn=a\\,cn=b+serialNumber=c,o=x
becomes serialNumber=c+cn=a\\,cn=b,o=x
instead of cn=a\\,serialNumber=c+cn=b,o=x
this: cn=b\+serialNumber=c,o=x
contains no serialNumber attribute but is modified anyway.
Not that it matters much when the OP's problem is solved anyway.
Just pointing out that once you are going to accept things that need
nontrivial parsing like escape sequences, you have to be careful to
parse it correctly. Though my variant missed out too, it should
have ended with (?=$|[+,]) to cover the last component as well.
--
Hallvard
------------------------------
Date: Wed, 02 Apr 2008 09:44:44 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: Perl Pattern matching
Message-Id: <fsvdhc$20pp$1@nserver.hrz.tu-freiberg.de>
Deepan Perl XML Parser wrote:
> Now i want to get everything between "<text><![CDATA[" and "]]></
> text>" [ie i need to capture the CDATA section]and i am using the
> below code
>
> if( $str =~ m#<text><!\[CDATA\[(.*)\]\]></text># )
> {
> print $1;
> }
Your expression is (besides the /s modifier) perfectly valid
but I'd like to make an additional remark. You could strip
the newline characters (if any) and extract more than one
CDATA section, sth. like:
my $reg = qr{
<text> # find section <text>
<!\[CDATA\[ [\r\n]? # which contains another CDATA section
(.+?) # capture the CDATA lines but ?check? \]\]
[\r\n]?\]\]> # until CDATA terminator
</text> # maybe even the <text> is closed properly
}sx;
print $1 while $str =~ /$reg/g; # extract each CDATA section
Regards
M.
------------------------------
Date: Wed, 2 Apr 2008 01:58:01 -0700 (PDT)
From: lekonna <lekonna@gmail.com>
Subject: Re: sockets giving me gray hairs. server keeps dying
Message-Id: <649266ee-80e4-4b37-b755-6a691b754a52@d62g2000hsf.googlegroups.com>
On Mar 29, 6:42 am, fishfry <BLOCKSPAMfish...@your-mailbox.com> wrote:
> In article
> <584aaebe-3585-409f-b29c-6be83ba52...@s12g2000prg.googlegroups.com>,
>
> lekonna <leko...@gmail.com> wrote:
> > Hi guys,
> > i'm having bit of a hard time getting my very simple multiplexing
> > socket server staying alive. It keeps exiting without giving any
> > messages, and since i'm running the bugger in while(1) loop i don't
> > quite get why the heck it does that.
>
> One thing you can do any time a program is "dying for no reason," [which
> of course really means, dying for some reason that we don't yet
> understand :-)] is to declare a DIE handler, and in the handler, write a
> log message and a stack trace.
>
> Secondly, in the same vein, your program should already be copiously
> sprinkled with log messages, saying "I'm doing this," and, "I'm getting
> ready to do that." Of course you will disable those messages when you
> roll your code to production; but during development, and especially
> during EARLY development, they are invaluable. If you had a lot of log
> messages in your code, you'd know the last thing your server did before
> it died.
>
> > Its a very basic echo server with some added features for keeping
> > track of users. Basicly i wanted to learn how to use sockets in flash
> > and needed something to echo the poo that i send back to me so i came
> > up with this quick and dirty solution. Now unfortunately it seems that
> > the trusty old work-horse perl keeps dying on me.
>
> One thing I truly know in this world is that sockets work perfectly well
> in Perl. I'm going to go way out on a limb here and say that the problem
> is probably in your code :-)
>
> > Heres the link to attachr with syntax highlighted version of the
> > server implementation.
> >http://attachr.com/10605
>
> > very basic server with some ugly xml hacks in it.
>
> > Is there a way to enable some sort of debug info on what actually goes
> > wrong?
>
> I didn't look at your code. But if you take my suggestions to write log
> messages before and after every interesting thing your program does
> (startup, init, creating/opening/connecting sockets, etc.); and
> implementing DIE and WARN handlers, you will soon see what's going on.
> The idea is to equip your program with the means to debug itself.
>
> One more thing that comes to mind is that people learning to write
> servers often have trouble with the logic of handling a connection
> request using the accept() function. To service a connection request you
> have to fork a child process to handle that client; or you have to
> handle the client yourself, managing multiple sockets: the listening
> socket, on which you receive connection requests; and one for each
> connected client. Typically you need to use non-blocking sockets in
> conjunction with the select() call. [And note that "select" is very
> unfortunately overloaded in Perl to a totally different function that
> has the exact same name but has nothing to do with it!]
>
> It wouldn't hurt to review your accept() logic.
>
> Hope this helps.
Thanks for the reply, actually this implementation isn't a multi
threading one, wanted to try out an single threaded version for
change. the thing is that on my windows machine the server runs
smoothly but dies without an explanation every now and then on the
linux 64bit machine.
Since there are no exit points inside the while true loop and no error
messages are output i can only phantom that it is some kind of bug in
the actual library i'm using itself. browsed quickly through the 5.8.8
x86_64-linux-thread-multi/IO lib but couldn't find a way to enable any
more debug messages as it is.
This is a tricky one, still no solution. I do believe the problem is
in my logic but seem to be unable to find more info on where we
actually exited from.
------------------------------
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 V11 Issue 1414
***************************************
