[24568] in Perl-Users-Digest
Perl-Users Digest, Issue: 6746 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 29 18:05:51 2004
Date: Tue, 29 Jun 2004 15:05:09 -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 Tue, 29 Jun 2004 Volume: 10 Number: 6746
Today's topics:
Cyrpt::GPG example <rdww@ti.com>
Re: error logs... <emschwar@pobox.com>
Re: error logs... (Anno Siegel)
Re: error logs... <johnjcarbone@nospam.hotmail.com>
Re: error logs... <johnjcarbone@nospam.hotmail.com>
Re: error logs... <johnjcarbone@nospam.hotmail.com>
how to execute like CPAN.pm? <mikee@mikee.ath.cx>
Re: how to execute like CPAN.pm? <mritty@gmail.com>
Re: how to execute like CPAN.pm? (Peter J. Acklam)
Re: how to execute like CPAN.pm? <mikee@mikee.ath.cx>
Indented text converted to arrays of arrays <bmb@ginger.libs.uga.edu>
Re: Nonblocking Pipe Open (J. Romano)
Re: objects and code references <nospam@nospam.net>
Re: PPT UNIX Reconstruction Project at: http://www.perl <clydenospamorham@nospamorhamgetofftheline.freeservenospamorham.co.uk>
Re: Problem with Gtk2 and POE <iron@ironiq.hu>
Re: Totally stuck <bik.mido@tiscalinet.it>
Re: Trim Multiple Dirs to Max Total Space Used - by Dat <Joe.Smith@inwap.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 Jun 2004 16:11:30 -0500
From: Robert Walkup <rdww@ti.com>
Subject: Cyrpt::GPG example
Message-Id: <40E1DB02.6823BFDF@ti.com>
I am trying to decrypt a file using the Cyrpt:GPG module. I haven't had much
look at this. Has anyone used this module and does anyone have a simple example
on how to use this module to decrypt and then re-encrypt a file?
thanks robert
------------------------------
Date: Tue, 29 Jun 2004 12:18:17 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: error logs...
Message-Id: <etor7ryjkie.fsf@fc.hp.com>
"John ©" <johnjcarbone@nospam.hotmail.com> writes:
> I asked, let me repeat, asked ... the term 'ask' means something different
> than command. Please, keep acting the way you feel best, but for MY POST, I
> requested a certain type of response.
And this is USENET. You can't dictate your respondents' style, and
it's rude to attempt to do so. This is what you've been called on,
repeatedly. You think that your post should get only the kinds of
reactions you want-- sorry, it doesn't work that way.
> So even if you want to call this your culture or your community, MY
> POST was MY HOUSE in this community,
This isn't the same sort of community as in real life-- the rules are
different here. You haven't built a house; instead, you're standing
on the corner, saying, "Hey, I want you to answer my question-- but
only if you answer it the way I want you to!"
You're coming across as nearly sociopathic-- you want to get what you
want out of a community, but you are refusing to conform to the
expected norms of that community. The fact is, what is 'nice' here is
different than what you think is nice, and you'll either have to get
used to that, or cope with being ignored by the people best able to
help you, or leave.
> and if I ask you to take of your shoes in my house, I would expect
> you to comply...
This isn't that sort of community; it's more like a vicious cocktail
party. You toss out an idea, a thought, a question, and people run
with it how they will. Maybe they will laud you, maybe they will
eviscerate you; most of the time, it's somewhere in between. If you
don't like that idea, then don't post here.
> and if you don't like it, don't reply, that's all.
Don't post to clpm if you don't want people to comment-- this is a
discussion-based group, after all, not a helpdesk. Nobody here gets
paid for what they do. If you want to guarantee nice, pay someone.
> But you just don't seem to get that.
No, *you* don't seem to get how this society works.
> (and now for more thought police I am sure.)
You seem to be the only person here restricting how people may write
in response to you.
-=Eric
--
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
-- Blair Houghton.
------------------------------
Date: 29 Jun 2004 19:38:13 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: error logs...
Message-Id: <cbsgf5$938$1@mamenchi.zrz.TU-Berlin.DE>
John © <johnjcarbone@nospam.hotmail.com> wrote in comp.lang.perl.misc:
>
> "Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote
>
> > Just for your information, I am among those who very much noticed
> > your "little disclaimer". I decided not to reply to someone who is
> ^^^^^^^^^^^^^^^^^^^^^
> > trying to single-sidedly set the terms of my reply.
> >
> > Anno
>
> And that's all I ASKED ... I didn't force anyone to do anything. I asked if
> something could be done, if you weren't happy with that, then all you had to
> do was not respond... if you feel that me asking you to not be rude would
> set the terms of your reply and you didn't reply because of that, then
> BINGO, success for me ... exactly what I wanted. So thanks. I didn't want
> that type of reply anyway.
Oh boy, are you not getting it!
Anno
------------------------------
Date: Tue, 29 Jun 2004 20:04:56 GMT
From: "John ©" <johnjcarbone@nospam.hotmail.com>
Subject: Re: error logs...
Message-Id: <IXjEc.41006$aJ3.15898@nwrdny02.gnilink.net>
"Eric Schwartz" <emschwar@pobox.com> wrote a whole bunch of stuff.
So now the rules are changing again? It's a culture, but it's not a culture,
but it is a culture, but it's not that kind of culture?
People have the right to respond anyway they want, and I accept that.
But exactly how does calling me out on writing PERL instead of Perl help? I
could see if it was even a "by the way, it's written Perl", but it was so
unkind.
And like I said, I don't own other people, regardless of if I ask or not, I
do not control how people respond. I do control myself however and what I
post, so I can post however I like. If it is true for you, it is true for
me... and when you take the time to read my post, you are coming into my
'community'. I put a sign in my window, with my requests, you read it and
don't like it, move along ... or post your dismay, fine by me ... I accept
that.... but don't expect me to sit back and not respond to what I feel is a
slight.
But please continue to tell me I am wrong, that is your right... I however
have my feelings/opinions too and I will continue to express them.
Cheers,
John
------------------------------
Date: Tue, 29 Jun 2004 20:05:49 GMT
From: "John ©" <johnjcarbone@nospam.hotmail.com>
Subject: Re: error logs...
Message-Id: <xYjEc.20277$Xn.5771@nwrdny03.gnilink.net>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote
>
> Oh boy, are you not getting it!
>
> Anno
And I feel that neither are you.
Cheers,
John
------------------------------
Date: Tue, 29 Jun 2004 20:19:20 GMT
From: "John ©" <johnjcarbone@nospam.hotmail.com>
Subject: Re: error logs...
Message-Id: <c9kEc.20128$Av3.6973@nwrdny01.gnilink.net>
"Paul Lalli" <mritty@gmail.com> wrote in message
news:20040624153540.E23512@dishwasher.cs.rpi.edu...
On Thu, 24 Jun 2004, John © wrote:
>> > Have you heard of Google?
>> Google? Thanks on the internet right? You do a search for Perl, see what
you
>> get. Almost impossible to weed through the good and the bad without
prior
>> knowledge.
>You can think I'm trolling if you want, but I feel the need to point out
>that the first google return for "Perl FAQ" returns www.perl.com/perl/faq
^^^^^^^^^^^^^^^^^^^^^^
>which, of course, is the official Perl FAQ.
>Paul Lalli
I am sure you know a lot about Perl and don't need the faq, but did you even
follow that link? First of all, it goes to a lost page and then links to a
faq that is quite complicated, once again addressing the reader as if they
know Perl. So even if I would have known how to get to the faq, it doesn't
seem that it would have been any help for here.
The "Guidelines" to posting was helpful, but considering I didn't even know
to look for them (I've been in plenty of newsgroups that had no
'guidelines') and that it's only in the guidelines that it says to lurk
before you post (among other useful things), it's kind of a catch 22. So I
messed up, I am sorry. We'll all survive, won't we?
Cheers,
John
------------------------------
Date: Tue, 29 Jun 2004 19:08:32 -0000
From: Mike <mikee@mikee.ath.cx>
Subject: how to execute like CPAN.pm?
Message-Id: <10e3fhghp5fuf05@corp.supernews.com>
In know for CPAN you do a 'perl -MCPAN -e shell' and it all seems
to work just fine. I'm trying to do something similiar by:
----------------------file: x.pm
#!/usr/bin/perl
package x;
sub howard {
print "in howard\n";
}
print "in x\n";
1;
----------------------file: x.pm
I try to execute this with 'perl -Mx -e howard'. All I get back
is 'in x'. What I'm trying to do is to include a testing function
within each package similiar to how you can include a main
in each *.java file.
How is thos done?
Mike
------------------------------
Date: Tue, 29 Jun 2004 15:22:38 -0400
From: Paul Lalli <mritty@gmail.com>
Subject: Re: how to execute like CPAN.pm?
Message-Id: <20040629152047.S2559@dishwasher.cs.rpi.edu>
On Tue, 29 Jun 2004, Mike wrote:
> In know for CPAN you do a 'perl -MCPAN -e shell' and it all seems
> to work just fine. I'm trying to do something similiar by:
>
> ----------------------file: x.pm
> #!/usr/bin/perl
>
> package x;
>
> sub howard {
> print "in howard\n";
> }
> print "in x\n";
>
> 1;
> ----------------------file: x.pm
>
> I try to execute this with 'perl -Mx -e howard'. All I get back
> is 'in x'. What I'm trying to do is to include a testing function
> within each package similiar to how you can include a main
> in each *.java file.
>
> How is thos done?
Run that same one liner, and this time, enable warnings:
perl -w -Mx -e howard
You'll see that 'howard' is an undefined bareword. This is because x.pm
never exported the howard() function, so your main code (ie, that executed
by -e) has no idea what 'howard' is. Add these three lines under 'package
x':
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/howard/;
Also, get rid of the shebang. They don't belong in modules.
Paul Lalli
------------------------------
Date: 29 Jun 2004 21:33:13 +0200
From: pjacklam@online.no (Peter J. Acklam)
Subject: Re: how to execute like CPAN.pm?
Message-Id: <u0wui2h2.fsf@online.no>
Mike <mikee@mikee.ath.cx> wrote:
> In know for CPAN you do a 'perl -MCPAN -e shell' and it all seems
> to work just fine. I'm trying to do something similiar by:
>
> ----------------------file: x.pm
> #!/usr/bin/perl
>
> package x;
>
> sub howard {
> print "in howard\n";
> }
> print "in x\n";
>
> 1;
> ----------------------file: x.pm
>
> I try to execute this with 'perl -Mx -e howard'.
You should have run with the -w option, which would have given you
a hint:
$ perl -Mx -we howard
in x
Unquoted string "howard" may clash with future reserved word at -e line 1.
Useless use of a constant in void context at -e line 1.
Here is a way:
perl -Mx -we x::howard
You should definitely add
use strict;
use warnings;
to your module. Also read the module documentation that comes
with Perl. See
$ perldoc perl
for a list of module-related manual pages.
Peter
--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;
------------------------------
Date: Tue, 29 Jun 2004 19:33:44 -0000
From: Mike <mikee@mikee.ath.cx>
Subject: Re: how to execute like CPAN.pm?
Message-Id: <10e3h0ojk3oofa8@corp.supernews.com>
In article <20040629152047.S2559@dishwasher.cs.rpi.edu>, Paul Lalli wrote:
> On Tue, 29 Jun 2004, Mike wrote:
>
>> In know for CPAN you do a 'perl -MCPAN -e shell' and it all seems
>> to work just fine. I'm trying to do something similiar by:
>>
>> ----------------------file: x.pm
>> #!/usr/bin/perl
>>
>> package x;
>>
>> sub howard {
>> print "in howard\n";
>> }
>> print "in x\n";
>>
>> 1;
>> ----------------------file: x.pm
>>
>> I try to execute this with 'perl -Mx -e howard'. All I get back
>> is 'in x'. What I'm trying to do is to include a testing function
>> within each package similiar to how you can include a main
>> in each *.java file.
>>
>> How is thos done?
>
> Run that same one liner, and this time, enable warnings:
>
> perl -w -Mx -e howard
>
> You'll see that 'howard' is an undefined bareword. This is because x.pm
> never exported the howard() function, so your main code (ie, that executed
> by -e) has no idea what 'howard' is. Add these three lines under 'package
> x':
>
> require Exporter;
> @ISA = qw/Exporter/;
> @EXPORT = qw/howard/;
>
>
> Also, get rid of the shebang. They don't belong in modules.
>
> Paul Lalli
Just what I needed, thanks!
Mike
------------------------------
Date: Tue, 29 Jun 2004 17:37:50 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Indented text converted to arrays of arrays
Message-Id: <Pine.A41.4.58.0406291704520.30230@ginger.libs.uga.edu>
Greetings,
I would like to take a table of indented text like the following:
AAA
BBB
CCC
DDD
EEE
FFF
GGG
... and convert it into a nested array of arrays like the following:
[
[ 'AAA' => [
'BBB',
'CCC',
] ],
[ 'DDD' => [
[ 'EEE' => [
'FFF',
] ],
] ],
'GGG',
]
That is, if an element $a is an array ref, then $a->[0] is the text for
that level and $a->[1] is an array ref to the next level(s). Otherwise $a
is the text for that level.
The indenting is regular, the levels may be arbitrarily deep, and no
double indenting is allowed, i.e., the following is disallowed:
AAA
BBB
CCC
DDD
The solution I've come up with so far is to create the following literal
string and eval it:
[
[ 'AAA' => [
[ 'BBB' => [
] ],
[ 'CCC' => [
] ],
] ],
[ 'DDD' => [
[ 'EEE' => [
[ 'FFF' => [
] ],
] ],
] ],
[ 'GGG' => [
] ],
]
This obviously is not exactly what I describe above, but I can make it
work. However, this solution seems rather draconian, and I feel certain
there is a much simpler answer.
Regards,
Brad
------------------------------
Date: 29 Jun 2004 14:03:50 -0700
From: jl_post@hotmail.com (J. Romano)
Subject: Re: Nonblocking Pipe Open
Message-Id: <b893f5d4.0406291303.7ce6a93f@posting.google.com>
Gregory Toomey <nospam@bigpond.com> wrote in message news:<1107135.EWZglpOOTA@GMT-hosting-and-pickle-farming>...
> I need to combine pipe open + make it non-blocking. The semantics I want
> are:
>
> # based on perlopentut
> open(NET, "ping 11.22.33.44 |", O_NONBLOCK ) || die "can't fork ping";
> while (<NET>) { print }
> close(NET)
>
> which of course gets a syntax error.
> Any idea how to achieve this?
Dear Greg,
To be able to read a command's output in a non-blocking manner, you
can use the IPC::Open2 module together with IO::Select. Here is a
sample program that pings 127.0.0.1:
#!/usr/bin/perl -w
use strict;
use IPC::Open2;
use IO::Select;
$| = 1; # autoflush STDOUT
# Declare filehandles and command to use:
my ($r, $w);
my $cmd = 'ping 127.0.0.1';
# Open the process and set the selector:
my $pid = open2($r, $w, $cmd);
my $selector = IO::Select->new($r);
sleep 1; # allow some time for request to process
# print out output from process, if any exists:
while ($selector->can_read(0))
{
my $char;
sysread($r, $char, 1);
print $char;
unless ($selector->can_read(0))
{
sleep 1; # allow some time for request to process
# or else while loop will finish if there
# there is a pause in the program
}
}
__END__
I basically use IO::Select with the can_read() method to tell when
output is waiting for me to read. Note that I periodically sleep for
some time in order to give the process enough time to output some
text. Without the sleep command, the while loop would exit as soon as
ping produces a pause (because technically there is nothing waiting to
be read during a pause).
This script should work on Unix, but I'm almost entirely sure it
won't work on Win32 platforms.
Hope this helps,
-- Jean-Luc
------------------------------
Date: Tue, 29 Jun 2004 19:14:45 GMT
From: "Jeff Thies" <nospam@nospam.net>
Subject: Re: objects and code references
Message-Id: <FcjEc.18876$bs4.3030@newsread3.news.atl.earthlink.net>
"Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> wrote in message
news:2kbff6Fco4aU1@uni-berlin.de...
> Also sprach Ben Morrow:
>
> > Quoth tassilo.parseval@post.rwth-aachen.de:
> >> Also sprach Jeff Thies:
> >>
> >> > I've created an object with a method like this:
> >> >
> >> > use File::Find;
> >> >
> >> > sub someSub{
> >> > my $self=shift;
> >> > find(\&wanted,'some_directory');
> >> > ...
> >> > }
> >> >
> >> > I need for the wanted sub to read some of the object properties. I'm
unsure
> >> > how to do this.
> >> >
> >> > I can't do this:
> >> > find(\&$self->wanted,...)
> >> >
> >> > and I can't do this:
> >> > find(\&wanted($self->{some_property}),...
> >> >
> >> > So, what do I do?
> >>
> >> Create an additional sub-wrapper around File::Find's first argument:
> >>
> >> sub someSub {
> >> my $self = shift;
> >> find( sub { wanted($self) }, 'directory' );
> >
> > find sub { $self->wanted }, 'directory';
> >
> > so it's a proper method call and will do inheritance.
>
> Only if the object $self has a method 'wanted'. This isn't quite clear
> from the original posting.
Thanks, I've used it that way.
It's easy to be unclear when you are not sure how to do something!
Cheers,
Jeff
>
> Tassilo
> --
>
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
>
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
>
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 29 Jun 2004 21:49:01 +0100
From: "Clyde Ingram" <clydenospamorham@nospamorhamgetofftheline.freeservenospamorham.co.uk>
Subject: Re: PPT UNIX Reconstruction Project at: http://www.perl.com/language/ppt/
Message-Id: <5tlEc.72$tH6.49@newsfe5-win>
Abigail,
"Abigail" <abigail@abigail.nl> wrote in message
news:slrnce2d6m.h3o.abigail@alexandra.abigail.nl...
> Joe Smith (Joe.Smith@inwap.com) wrote on MMMCMLIV September MCMXCIII in
> <URL:news:BpNDc.120857$eu.87578@attbi_s02>:
> Every now and then people ask about PPT, which makes me wonder. What do
> people want from PPT?
When I first encountered PPT several years back, I was hunting urgently for
replacements for Solaris 2.6's "sort" and "comm" utilities, because they
were limited to maximum input record lengths of less than about 3,500
characters. And I needed implementations that could handle record lengths
just over (er...) 40,000 characters.
And PPT baled me out at a quick, no-effort stroke. No record length
limit -- free magic.
> There's little point in using any of the PPT tools -
> there are free C programs available which are (much) faster, and often
> have more options (PPT's "standard" was Unix Version 7 - ancient).
All the same, I am a happy customer of 2 PPT tools.
I was looking for PPT again last week, because one of my colleagues has this
irritating habit of making "system" calls to OS utilities. The latest
example was to "rcp"; and I hoped to show a Perl alternative, for all the
best-practice reasons.
CPAN throws up File::Remote, but the first of the accompanying "Notes" says
"File::Remote only works on UNIX systems". Sadly, I need a 2-platform
solution (the other being sleepy old Windoze-NT).
Thanks to all for your responses.
Regards,
Clyde
------------------------------
Date: Tue, 29 Jun 2004 22:15:17 +0200
From: Krisztian VASAS <iron@ironiq.hu>
Subject: Re: Problem with Gtk2 and POE
Message-Id: <2ke0kpF19tq0U1@uni-berlin.de>
> Rocco Caputo wrote this on 2004-06-28 19:48:
>
>> Works here. The program I tested with is nearly the same as the one on
>> POE's wiki. I just changed all the "Gtk"s to "Gtk2". Here's a copy:
>
>
> Problem solved...
>
> Wasn't installed the POE::Loop::Gtk2...
Well, now works quiet well, but I have another problem and I can't
decide what's the problem...
I write a small chat client... I use POE to handle the net connection
and the Gtk2 UI... The POE::Session starts the main window... If the
main window is ready, calls the login window...
If I miss calling the login window and connect to the server, the
program works good...
If I call the login window, the program gets a stop signal
(POE::Session->create( inline_states => _stop)...
I've tried to reduce the program to the smallest amount code that still
triggers the problem and looks like this is Gtk2's (?) fault.
Here's the code: http://www.nomorepasting.com/paste.php?pasteID=15366
Thanks...
IroNiQ
--
Web: http://ironiq.hu
Email: iron@ironiq.hu
LinuxCounter: #331532
------------------------------
Date: Tue, 29 Jun 2004 23:39:08 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Totally stuck
Message-Id: <24o3e0d41s8a5cughgsq0tp9qld4oo4vqv@4ax.com>
On 29 Jun 2004 00:32:36 -0700, darnold@northcoast.com (David Arnold)
wrote:
>I have a file named "new".
>
>\backtomargin
>
>
>In Exercises~\ref{exer2.9.1}--\ref{exer2.9.2}, if the given
Huh?!? Is this clpmisc or ctt?
>The spacing is intentional. Now, my perl file is saved as new.pl.
Ah, OK, then you want to (pre-)process a text (specifically, LaTeX)
file...
>use strict;
>use warnings;
[snip]
I was under the impression that your program was overly complex for
the task it was aimed at. OTOH I was too lazy to try to understand
*exactly* what you meant to do, so from your other post I grabbed the
"working version" and I tried it on your sample. Now, if I'm not
mistaken, the following should serve your needs and is considerably
simpler:
#!/usr/bin/perl -ln
print, next unless /\\backtomargin/;
{
local $/='';
chomp(my $par=<>);
print <<EOT;
\\begin{instructions}
$par
\\end{instructions}
EOT
}
__END__
>When I enter:
>
>perl new.pl < new
BTW: no need for '<',
perl new.pl new
will work!
HTH,
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Tue, 29 Jun 2004 18:39:52 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Trim Multiple Dirs to Max Total Space Used - by Date
Message-Id: <YHiEc.112941$2i5.98501@attbi_s52>
Randal L. Schwartz wrote:
> shift @list while @list and $size += $list[0][1] < $MAXSIZE;
> # delete the rest
> unlink or warn "Cannot delete $_: $!" for @list;
>
> Untested, but I usually get this stuff right. :)
Shouldn't that last part be:
unlink $_->[0] or warn "Cannot delete $_->[0]: $!" for @list;
-Joe
------------------------------
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 6746
***************************************
