[28631] in Perl-Users-Digest
Perl-Users Digest, Issue: 9995 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 22 00:05:58 2006
Date: Tue, 21 Nov 2006 21:05:04 -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 Tue, 21 Nov 2006 Volume: 10 Number: 9995
Today's topics:
accessing numeric variables from textfield input in a rallabs@adelphia.net
Re: accessing numeric variables from textfield input in <attn.steven.kuo@gmail.com>
ANNOUNCE: CGI::ContactForm 1.40 <noreply@gunnar.cc>
Can perl create process or thread to do things concurre quakewang@mail.whut.edu.cn
Re: Can perl create process or thread to do things conc <spamtrap@dot-app.org>
Re: Do I *have* to use 'OOP' to use modules? <abigail@abigail.be>
Re: Do I *have* to use 'OOP' to use modules? <nospam-abuse@ilyaz.org>
Re: Do I *have* to use 'OOP' to use modules? <abigail@abigail.be>
Re: Do I *have* to use 'OOP' to use modules? <nospam-abuse@ilyaz.org>
Re: DOS-Box script is running in set always on top <veatchla@yahoo.com>
Passing an object to a module <gmills@library.berkeley.edu>
Re: Passing an object to a module <sbryce@scottbryce.com>
Re: Passing an object to a module <noreply@gunnar.cc>
Re: string assignment and concatenation <justin.0611@purestblue.com>
use print to write binary data to a filehandle seems no quakewang@mail.whut.edu.cn
Re: use print to write binary data to a filehandle seem <mritty@gmail.com>
Re: use print to write binary data to a filehandle seem quakewang@mail.whut.edu.cn
Re: use print to write binary data to a filehandle seem <spamtrap@dot-app.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Nov 2006 17:25:16 -0800
From: rallabs@adelphia.net
Subject: accessing numeric variables from textfield input in a form
Message-Id: <1164158716.846507.131620@k70g2000cwa.googlegroups.com>
Dear Perl Experts: A weird thing is happening to me when I try to use
numeric input from a textfield form. The following two scripts, named
'in_sides.cgi' and 'findhyp.cgi', illustrate the problem.
'findhyp' is supposed to do some math on the two input variables
from 'in_sides.cgi', and it does it successfully, but when I try to
store the two input variables into an array (line 25 of the script
'findhyp'), the resulting array has only one element says the
script, and it gives a nonsensical foreach result. In addition, two
messages appear in the error log, saying: "$side[0] not numeric in line
25" and "$side[1] not numeric in line 25". I only get these complaints
when I try to store the variables into the array, but not otherwise. I
have seen in several references, eg "Perl and CGI for the WWW" by
Elizabeth Castro, that string variables automatically convert to
numeric when used in an arithmetic expression, and so I tried on line
24 of the second script to add zero to each variable, but it didn't
work. The error message for line 25 refers to the variables as
'$side[0]' or '$side[1]' even though they are now called
'$pct'. If anybody can explain this I'll be forever grateful.
Thanks in advance.
Mike
The first script ('in_sides.cgi') is:
#!/usr/bin/perl -wT
#this is in_sides.cgi
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use strict;
use diagnostics;
use URI::Escape;
$CGI::DISABLE_UPLOADS=1;
$CGI::POST_MAX=500;
my $co = new CGI;
print $co->header("text/html");
print $co->start_html;
print $co->center($co->h1("This is where we input the two sides to the
right triangle\n"));
my @sidesarray;
$sidesarray[0]='a:';
$sidesarray[1]='b:';
print $co->startform(-method=>"POST",-action=>"findhyp.cgi");
foreach (0..$#sidesarray){
print $co->h3($sidesarray[$_]," ",textfield("side[$_]"));
}
print $co->p,$co->submit,$co->reset,
$co->endform;
exit;
and the second script ('findhyp.cgi') is:
#!/usr/bin/perl -wT
#This is findhyp.cgi
use strict;
use warnings;
use CGI qw(:standard);
$CGI::DISABLE_UPLOADS=1;
$CGI::POST_MAX = 102_400; #100KB
my $cc = new CGI;
print $cc->header;
print $cc->start_html(-title=>'findhyp');
my @percentS;
my $sumsq=0.0;
if (param()){
my @param=param();#these are the two numbers from textboxes on previous
page
foreach my $s (param () ) {
my $ss=param($s);
print $cc->h2("The variable \$s is $ss\n");
$sumsq=$sumsq + param($s)*param($s); #sums up squares of two sides
}
my $squirt=sqrt($sumsq);
print $cc->h2("The variable \$sumsq is $sumsq\n");
print $cc->h2("The variable \$squirt is $squirt\n");
foreach my $s ( param() ) {
my $pcnt=0+param($s);# this is supposed to make the $pcnt variable
numeric according to Castro p24
$percentS[$s] =$pcnt; #we're getting 2 messages in the errorlog saying
"$side[n] not numeric in line 25"; one for each pass thru the foreach
}
}
my $numelements=scalar(@percentS);
print $cc->h2("The number of elements in array \@percentS is
$numelements\n");
print $cc->h2("The index number of the last element is $#percentS\n");
exit;
------------------------------
Date: 21 Nov 2006 18:00:35 -0800
From: "attn.steven.kuo@gmail.com" <attn.steven.kuo@gmail.com>
Subject: Re: accessing numeric variables from textfield input in a form
Message-Id: <1164160835.419073.152860@b28g2000cwb.googlegroups.com>
rallabs@adelphia.net wrote:
(snipped)
> two
> messages appear in the error log, saying: "$side[0] not numeric in line
> 25" and "$side[1] not numeric in line 25".
(snipped)
> and the second script ('findhyp.cgi') is:
> #!/usr/bin/perl -wT
> #This is findhyp.cgi
> use strict;
> use warnings;
> use CGI qw(:standard);
> $CGI::DISABLE_UPLOADS=1;
> $CGI::POST_MAX = 102_400; #100KB
> my $cc = new CGI;
> print $cc->header;
> print $cc->start_html(-title=>'findhyp');
> my @percentS;
> my $sumsq=0.0;
> if (param()){
> my @param=param();#these are the two numbers from textboxes on previous
> page
> foreach my $s (param () ) {
> my $ss=param($s);
> print $cc->h2("The variable \$s is $ss\n");
> $sumsq=$sumsq + param($s)*param($s); #sums up squares of two sides
> }
> my $squirt=sqrt($sumsq);
> print $cc->h2("The variable \$sumsq is $sumsq\n");
> print $cc->h2("The variable \$squirt is $squirt\n");
> foreach my $s ( param() ) {
> my $pcnt=0+param($s);# this is supposed to make the $pcnt variable
> numeric according to Castro p24
> $percentS[$s] =$pcnt; #we're getting 2 messages in the errorlog saying
> "$side[n] not numeric in line 25"; one for each pass thru the foreach
You need an integer index to access a particular
element of the array @percentS. The value in
your $s variable is not an integer.
Was param($s) the integer you wanted?
If so, try:
$percentS[ param($s) ] = $pcnt;
instead of
$percentS[ $s ] = $pcnt;
--
Hope this helps,
Steven
------------------------------
Date: Wed, 22 Nov 2006 01:04:08 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: ANNOUNCE: CGI::ContactForm 1.40
Message-Id: <4shifqFvl65nU1@mid.individual.net>
CGI::ContactForm is a module for generating web contact forms. It lets
you create an unlimited number of forms with a minimum of effort, and
makes it possible for e.g. web hosting providers to offer their
customers an easy way to set up a contact form.
Version 1.40 includes a feature that makes automated submissions by spam
robots more difficult, without the inconvenience of CAPTCHA. Also, since
some people don't like that a copy is sent to the submitted sender
address, an option has been added to not send sender copies.
http://search.cpan.org/src/GUNNAR/CGI-ContactForm-1.40/readme.html
Enjoy!
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 21 Nov 2006 19:36:10 -0800
From: quakewang@mail.whut.edu.cn
Subject: Can perl create process or thread to do things concurrently?
Message-Id: <1164166570.917711.91130@m73g2000cwd.googlegroups.com>
hi,
Can perl create process or thread to do things concurrently?
like "fork"?
seems the <<camel book>> did not say about it.
thanks.
------------------------------
Date: Tue, 21 Nov 2006 23:24:18 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Can perl create process or thread to do things concurrently?
Message-Id: <m2mz6k2jnx.fsf@Sherm-Pendleys-Computer.local>
quakewang@mail.whut.edu.cn writes:
> Can perl create process or thread to do things concurrently?
>
> like "fork"?
Yes - in fact Perl also uses a function named fork(). For details:
perldoc -f fork
perldoc -q fork
A threading tutorial:
perldoc perlthrtut
For more about communicating with other processes:
perldoc perlipc
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 22 Nov 2006 01:36:48 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Do I *have* to use 'OOP' to use modules?
Message-Id: <slrnem7acb.c8.abigail@alexandra.abigail.be>
Ben Morrow (benmorrow@tiscali.co.uk) wrote on MMMMDCCCXXX September
MCMXCIII in <URL:news:8d6c34-5vc.ln1@osiris.mauzo.dyndns.org>:
}}
}} Quoth anno4000@radom.zrz.tu-berlin.de:
}} >
}} > Here lies the objective advantage of inside-out classes: They
}} > are freely inheritable (can be made base classes, without conflict)
}} > by any other class, inside-out or not.
}}
}} And, almost more importantly, can subclass any other class, inside-out
}} or not. That is, given a random class Foo whose implementation I am not
}} privy to, I can create an inside-out subclass Bar that definitely
}} doesn't tread on Foo's internals. Of course, I can only get at Foo's
}} attributes through Foo's public methods, but I should be doing that
}} anyway.
Actually, you will still get to Foo's attributes in whatever way it
provides access. If Foo is implemented as a hashref, you can still
get to Foo's internals by accessing the hash, even if Bar is an inside-out
object.
Now, inside-out objects can subclass a lot, but there are limitation.
Multiple inheritance is still going to be very hard, and seldomly possible.
Not only will MI be almost impossible if the classes you subclass from
use different implementations (say one uses a hashref, the other an
array, or both use a hashref but the intersection of their sets of
attribute names isn't empty), MI will be very very hard if people do
any configuration inside the constructor. Even if both classes you want
to subclass from are inside out objects, it will be very hard.
I've been advocating the last couple of years that the only acceptable
way to write a constructor is:
package Class;
sub new {bless \my $var => shift}
my $obj = Class -> new;
But I'm starting to wonder, why bother with a class method at all?
After all, it's not 'new' that's the constructor - it's bless.
Why not just get rid of 'new', and just write:
my $obj = bless \my $var => 'Class';
if you want an object of class 'Class'.
Of course, you would still need to write '$obj = Class -> new', if Class
inherits a non-inside-out-object, but then Class doesn't need a new method.
Abigail
--
use lib sub {($\) = split /\./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
------------------------------
Date: Wed, 22 Nov 2006 01:46:53 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Do I *have* to use 'OOP' to use modules?
Message-Id: <ek0a6d$270t$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
<anno4000@radom.zrz.tu-berlin.de>], who wrote in article <4sh529Fvt13sU1@mid.dfncis.de>:
> > > $val = $o->__attr_get($a_name);
> > > $o->__attr_set($a_name, $val);
> > >
> > > $val = $o->__attr_get_($superclass_name, $a_name); # Allow "SUPER" as well
> > > $o->__attr_set_($superclass_name, $a_name, $val); # Likewise
> > >
> > $class->__attr__def__($a_name [, $accessor_method, $mutator_method] );
> >
> > with default $accessor_method, $mutator_method keeping the attribute
> > in some appropriate out-of-band location ($class-dependent). So one
> > could even encode this into ->import, thus making
> >
> > use attr qw(list of attribute names);
> >
> > work...
> To answer your question from the parent posting, "Why not do it this
> way" I'd first have to see how well the scheme works in practice.
Hmm, I hoped that somebody *knows* what an attribute *is*, so is able
to see whether the API is sufficient...
> Another question is: It's implemented as a pragma, so people are
> free to build their classes that way or not. Does that matter?
> This is the problem of many excellent CPAN modules in the Class::
> and Object:: spaces: They work well and solve many problems -- in
> a world where everybody uses them.
I need to think about it more...
> Here lies the objective advantage of inside-out classes: They
> are freely inheritable (can be made base classes, without conflict)
> by any other class, inside-out or not.
Why you think this is not applicable to the scheme above?
Thanks,
Ilya
------------------------------
Date: 22 Nov 2006 01:47:02 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Do I *have* to use 'OOP' to use modules?
Message-Id: <slrnem7avh.c8.abigail@alexandra.abigail.be>
anno4000@radom.zrz.tu-berlin.de (anno4000@radom.zrz.tu-berlin.de) wrote
on MMMMDCCCXXX September MCMXCIII in <URL:news:4shcu7Fvs7o3U1@mid.dfncis.de>:
"" Ben Morrow <benmorrow@tiscali.co.uk> wrote in comp.lang.perl.misc:
"" >
"" > Quoth anno4000@radom.zrz.tu-berlin.de:
"" > >
"" > > Here lies the objective advantage of inside-out classes: They
"" > > are freely inheritable (can be made base classes, without conflict)
"" > > by any other class, inside-out or not.
"" >
"" > And, almost more importantly, can subclass any other class, inside-out
"" > or not. That is, given a random class Foo whose implementation I am not
"" > privy to, I can create an inside-out subclass Bar that definitely
"" > doesn't tread on Foo's internals. Of course, I can only get at Foo's
"" > attributes through Foo's public methods, but I should be doing that
"" > anyway.
""
"" I believe you mean the technique where one uses the otherwise
"" unused object proper to hold an actual object of the parent
"" class?
""
"" I don't consider that an essential property of inside-out classes
"" but rather a (useful) quirk.
Believe me, the ability of inheriting from any class, regardless of its
implementation was an essential requirement when designing inside-out objects.
"" For one, it renders your class non-inside-out. It touches, err...
"" de-references its body (the parent class' accessors do) and is thus
"" in a state of sin. The result can no longer be used as a base class
"" by anything that isn't compatible with Foo in the usual sense.
Yes, and? Sure, Foo lives in a state of sin from an IOO point of view,
but the assumption is that you don't control Foo. You got Foo from CPAN
or your cow-orker. You control Bar. Now, anyone subclassing Bar (say,
a class Baz) is either an inside-out object, or it isn't. If it is,
it doesn't care how Foo is implemented, so there's no problem. If it
isn't, then Baz itself is living 'in a state of sin'. The restrictions
that are imposed on Baz are done by Foo, not by Bar.
"" Also, this technique can only be applied once, multiple inheritance
"" from non-inside-out classes requires other means.
As noted in another post, MI is almost impossible in Perl if you don't
control the classes you inherit from. And that has less to do with the
implementation of the classes, but more with the fact that everyone and
his donkey makes the mistake of writing methods that do two unrelated
tasks: constructing an object and initializing an object. Almost all 'new'
methods construct an object, and then stuff the object with attributes.
This is what makes MI almost impossible.
Abigail
--
perl -wle 'eval {die [[qq [Just another Perl Hacker]]]};; print
${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]'
------------------------------
Date: Wed, 22 Nov 2006 01:51:09 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Do I *have* to use 'OOP' to use modules?
Message-Id: <ek0aed$275m$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Abigail
<abigail@abigail.be>], who wrote in article <slrnem6r08.c8.abigail@alexandra.abigail.be>:
> Ilya Zakharevich (nospam-abuse@ilyaz.org) wrote on MMMMDCCCXXX September
> MCMXCIII in <URL:news:ejvdjb$1hqg$1@agate.berkeley.edu>:
> ''
> '' Thinking about it a little bit more, I see absolutely no reason to
> '' have attributes in the language proper. What is lost if all one has
> '' is a module `attr' with methods:
>
> Usability.
Could you be more explicit, please?
Or do you suggest that
$val = $obj--->>>{a_name}; # Or whatever the syntax is
is *undisputably* preferable to
$val = $obj->__get_a_name;
???
Puzzled,
Ilya
------------------------------
Date: Tue, 21 Nov 2006 20:34:28 -0600
From: l v <veatchla@yahoo.com>
Subject: Re: DOS-Box script is running in set always on top
Message-Id: <12m7dpgsfpi56b4@news.supernews.com>
Daniel Kelber wrote:
> Hi Len,
>
> l v schrieb:
>> Is this option available in a native windows DOS box?
>
> Yes, this works: dropping a file from win explorer into a DOS box
> writes the path and filename to STDIN (tested under WinXP).
I was refering to the "keep on top" part.
>
>> If you drag from windows explorer and hover over the dos box in the
>> taskbar, the dos box will open on top. You then drop on the now opened
>> dos box.
>
> It would be better an faster if hovering over the taskbar is not
> necessary.... :-)
Sure it would. But then companies like Actual Tools couldn't sell their
product. :)
>
> Daniel
>
--
Len
------------------------------
Date: 21 Nov 2006 16:18:32 -0800
From: "gmills" <gmills@library.berkeley.edu>
Subject: Passing an object to a module
Message-Id: <1164154712.595331.108720@h54g2000cwb.googlegroups.com>
Hello -
I am creating a module that does some work for various CGI in my
system. I would like to pass the CGI object to subroutines in my
module, but I can't figure out how to do it. Right now, I'm taking a
reference to the variable that holds the object in my CGI, like this:
use CGI;
use MYMODULE;
$q = new CGI;
MYMODULE::subroutine(\$q);
But if, for example, in MYMODULE, I do this:
use CGI;
sub subroutine {
$qref = shift;
$q = $$qref;
foreach $name ($q->params) {
I get the message that CGI::params is an undefined subroutine, when it
should be the names of the parameters passed to the CGI script.
Can anyone tell me what I am doing wrong?
Thanks;
Garey Mills
------------------------------
Date: Tue, 21 Nov 2006 17:52:21 -0700
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Passing an object to a module
Message-Id: <o9-dnbIpWeneAv7YnZ2dnUVZ_u2dnZ2d@comcast.com>
gmills wrote:
> Hello -
>
> I am creating a module that does some work for various CGI in my
> system. I would like to pass the CGI object to subroutines in my
> module, but I can't figure out how to do it. Right now, I'm taking a
> reference to the variable that holds the object in my CGI, like this:
<code snipped>
That variable is a reference to a hash.
use strict;
use warnings;
use CGI;
my $query = new CGI;
my $string = somesubroutine($query);
print "Content-type: text/plain\n\n";
print $string;
sub somesubroutine
{
my $cgi = shift;
return $cgi->param('abc')
}
------------------------------
Date: Wed, 22 Nov 2006 02:09:45 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Passing an object to a module
Message-Id: <4shmarFvrl00U1@mid.individual.net>
gmills wrote:
>
> foreach $name ($q->params) {
-------------------------------^
http://perldoc.perl.org/CGI.html#FETCHING-THE-NAMES-OF-ALL-THE-PARAMETERS-PASSED-TO-YOUR-SCRIPT%3a
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 21 Nov 2006 23:16:08 +0000
From: Justin C <justin.0611@purestblue.com>
Subject: Re: string assignment and concatenation
Message-Id: <justin.0611-59CE40.23160821112006@stigmata>
In article <20061120180344.554$Ul@newsreader.com>, xhoster@gmail.com
wrote:
> justin.news@purestblue.com wrote:
> >
> > As you can see I've tried two methods for concatenation and neither
> > seems to do what I'd expect. $oldname never gets .jpg appended and
> > $newname starts of being .jpg, then .jpgpj, and lastly (for 3 digit
> > numbers) .jpgjpg. I can see what is happening with $newname but don't
> > understand why.
>
> It sounds to me like you have "\r" (aka ^M) or other special characters in
> your csv file. When you print such strings to your terminal, it causes
> weird things to happen. Instead of just printing to the sceen, redirect
> output to a file and open it in a good text editor.
I thought I'd already posted a reply to this but it's not showing on my
news server.
Yes, you are correct, it's stray ^M on each line. I've removed them
using the method proposed by Dean. The (slightly) weird thing is I'd
already opened the CSV file in vi and seen nothing, but a pipe of the
output readily showed the stray control chars.
Thank you Xho, and Dean, for your help with this.
--
Justin C, by the sea.
------------------------------
Date: 21 Nov 2006 18:47:05 -0800
From: quakewang@mail.whut.edu.cn
Subject: use print to write binary data to a filehandle seems not correct
Message-Id: <1164163625.216991.279680@m73g2000cwd.googlegroups.com>
hi,
I get a image data from the internet and then save it into a
newcreated file, but seems the saved data is not the same as the
original one.
$file_name++;
my $success = open FILE_HD, "> $file_name";
if ( ! $success) {
# The open failed
warn $file_name . "open failed! [$!]\n";
}
print FILE_HD $response->content;
close FILE_HD;
why?
I shall use which function to write the binary data?
thanks.
------------------------------
Date: 21 Nov 2006 19:07:23 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: use print to write binary data to a filehandle seems not correct
Message-Id: <1164164843.591975.95150@e3g2000cwe.googlegroups.com>
quakewang@mail.whut.edu.cn wrote:
> I get a image data from the internet and then save it into a
> newcreated file, but seems the saved data is not the same as the
> original one.
>
> $file_name++;
> my $success = open FILE_HD, "> $file_name";
> if ( ! $success) {
> # The open failed
> warn $file_name . "open failed! [$!]\n";
> }
> print FILE_HD $response->content;
> close FILE_HD;
>
> why?
>
> I shall use which function to write the binary data?
You haven't given enough information to lead to any reasonably certain
solution, but have you read:
perldoc -f binmode
?
Paul Lalli
------------------------------
Date: 21 Nov 2006 19:31:18 -0800
From: quakewang@mail.whut.edu.cn
Subject: Re: use print to write binary data to a filehandle seems not correct
Message-Id: <1164166277.984072.5840@h54g2000cwb.googlegroups.com>
Goooooooooooooooooooooooooooooooooood!!!!!!!!!!!!!!!
Yes, I have read the "perldoc -f binmode" now, and I change my code to
add the following line after I open the file handle:
#use binary layer
binmode FILE_HD, ":raw";
then all is good, it is running and get pic for me now,
============================
You said: "You haven't given enough information to lead to any
reasonably certain solution."
can you point out me a little furthur, what shall I give for this
question, or what I do not know about filehandle, and I/O layers?
thanks
------------------------------
Date: Tue, 21 Nov 2006 23:17:15 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: use print to write binary data to a filehandle seems not correct
Message-Id: <m2r6vw2jzo.fsf@Sherm-Pendleys-Computer.local>
quakewang@mail.whut.edu.cn writes:
> can you point out me a little furthur, what shall I give for this
> question, or what I do not know about filehandle, and I/O layers?
For more information about I/O layers, have a look at:
perldoc PerlIO
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
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 9995
***************************************
