[18031] in Perl-Users-Digest
Perl-Users Digest, Issue: 191 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 1 09:10:32 2001
Date: Thu, 1 Feb 2001 06:10:17 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <981036617-v10-i191@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 1 Feb 2001 Volume: 10 Number: 191
Today's topics:
Re: Should this code work? (hymie!)
Re: Should this code work? (Steve)
Re: Should this code work? (Steve)
Re: Should this code work? (Gwyn Judd)
Re: Should this code work? (Steve)
sort: how do I ignore a specific word? <fundthis.see@fsck>
Re: sort: how do I ignore a specific word? <godzilla@stomp.stomp.tokyo>
Re: sort: how do I ignore a specific word? (Gwyn Judd)
Re: sort: how do I ignore a specific word? <miguenther@lucent.com>
Re: sort: how do I ignore a specific word? (Bernard El-Hagin)
Re: sort: how do I ignore a specific word? <miguenther@lucent.com>
Re: sorting IP addresses <nospam@nospam.com>
Re: sorting IP addresses <uri@sysarch.com>
Re: strange behaviour of Net::SMTP <nospam@nospam.com>
Very Newbie: perlcc on NT <graham_j_bailey@my-deja.com>
Re: What is the perlrun switch for "use" and "use lib"? (Rafael Garcia-Suarez)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 01 Feb 2001 10:05:51 -0000
From: hymie@lactose.smart.net (hymie!)
Subject: Re: Should this code work?
Message-Id: <t7id7vp4h4o89f@corp.supernews.com>
In our last episode, the evil Dr. Lacto had captured our hero,
"Godzilla!" <godzilla@stomp.stomp.tokyo>, who said:
>Steve wrote:
>
>> Godzilla!" wrote:
>> >Steve wrote:
>
>> > > $this_directory = "$form_data{'selected_directory'}"; # User form
>> > > $path_to_myfile = '/home/path/to/'.$this_directory.'/myfile.txt';
>
>> (snipped)
>
>> > Clearly there is a problem with setting your path
>> > as indicated by you. Issue a print command to
>> > discover what data $form_data{'selected_directory'}
>> > contains or, does not contain. Very simple debug:
>
>> > print $form_data{'selected_directory'};
>
>> print $form_data{'selected_directory'};
>> gives the correct path: /home/path/to/target_directory/myfile.txt
>
>No, it does not. $form_data{selected_directory} does not
>contain this data you cite.
Very presumptuous of you to know what his data is. Here's a better follow
up question:
What does $path_to_myfile contain ? Perhaps it contains
/home/path/to/home/path/to/target_directory/myfile.txt/myfile.txt
hymie! http://www.smart.net/~hymowitz hymie@lactose.smart.net
===============================================================================
I can't complain, but sometimes I still do. --Joe Walsh
===============================================================================
------------------------------
Date: Thu, 01 Feb 2001 09:53:48 GMT
From: pawsindoors@hotmail.com (Steve)
Subject: Re: Should this code work?
Message-Id: <3a79317a.6279539@news.freeserve.net>
On Wed, 31 Jan 2001 21:49:50 GMT, tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
wrote:
>I was shocked! How could Steve <pawsindoors@hotmail.com>
>say such a terrible thing:
>>Could someone please help me to understand why the following does not
>>work:
>
>Well you don't say what is actually supposed to do.
I want to read a file (myfile.txt) (in a directory which is pointed to
by the incoming form data $form_data{'selected_directory'}) into the
array, @catalog. I want to update the array (storing that in
@updated_catalog. Then I want to write the new array over the contents
of myfile.txt.
The problem I have is that whilst I am able to read the file using
this code I cannot for some reason write back to it.
>>$this_directory = "$form_data{'selected_directory'}"; # User form
>
>Useless stringification.
>
>>$path_to_myfile = '/home/path/to/'.$this_directory.'/myfile.txt';
>>
>>open(LOGFILE, "<$path_to_myfile") || &errormesssage;
>> flock(LOGFILE, 2);
>> @catalog = <LOGFILE>; # Reads the file okay
>> flock(LOGFILE, 8);
>>close(LOGFILE);
>
>You shouldn't use plain numbers for flock. Better to do:
>
>use Fcntl ':flock';
>
>flock LOGFILE, LOCK_EX;
Okay - I need to find out more about this but is it likely that it is
causing my problem with open(LOGFILE, ">$path_to_myfile") ?
>Also you have a horrible race condition. What happens if another process
>attempts to update the file in between this one reading from the file
>and then writing to it. You need to hold the lock for the whole
>operation. You should probably open the file in update mode '+<', get a
>lock, read it all in, truncate the file and then write the new data. You
>might want to read the information in:
>
>perldoc -f flock
>perldoc -q lock
I originally had the file opening as +< but broke it into two parts to
try work out where the problem lies.
I recognise I have plenty to learn but at the moment I am seeking an
answer as to whether or not the code as I originally published it
should work and if not then why not.
Steve
------------------------------
Date: Thu, 01 Feb 2001 09:53:46 GMT
From: pawsindoors@hotmail.com (Steve)
Subject: Re: Should this code work?
Message-Id: <3a792c95.5027266@news.freeserve.net>
On Wed, 31 Jan 2001 15:01:18 -0800, "Godzilla!"
<godzilla@stomp.stomp.tokyo> wrote:
>> gives the correct path: /home/path/to/target_directory/myfile.txt
>
>No, it does not. $form_data{selected_directory} does not
>contain this data you cite. Your variable contains or
>does not contain data. However, what you show is
>generated by your script. Print your variable
>and confirm it holds correct data. This would
>take only a few minutes and perhaps save you
>hours of effort.
Sorry you are right I gave you the print result from the wrong
variable.
Here again are the variables:
$this_directory = "$form_data{'selected_directory'}"; # User form
$path_to_myfile = '/home/path/to/'.$this_directory.'/myfile.txt';
Here is the result of printing them out:
$form_data{selected_directory} prints: target_direstory
$this_directory prints: target_directory
$path_to_myfile prints: /home/path/to/target_directory/myfile.txt
The incoming $form_data{selected_directory} does enable me to open
myfile.txt to read but not to write
>Your current comments directly contradict your previous
>comments. These current comments are also self-contradictory.
>You say a literal string works and, you say a variable string
>works, so there is no problem. Previously, you stated your
>variable string does not work. Now you say it does. This
>is rather self-contradictory.
Again, my appologies. If I prime the $this_directory
variable with the data "target_directory" from within the routine then
I am able to both read from and write to the 'myfile.txt' file.
>> >Based on your comment, a problem exists with your
>> >read and parse routine
>
>> okay this is sounding likely I will look at this.
I have been using cgi-lib.pl v 2.8
(Steven Brenner http://cgi-lib.berkeley.edu/2.18/cgi-lib.pl.txt)
to read and parse form data.
>Then you have not tested your $form_data{'selected_directory'}
>variable and, within this article, you say you have. This
>makes two major contradictions in your statements.
I hope I have now shown that I have tested the variables. I think
that the code in itself, albeit simple, should work and allow me to
update the file myfile.txt. I posted my question as a last resort
because I felt (and still feel) that I am misunderstanding some
fundamental point.
>Making these types of argumentative contradictory
>statements lessens any likelihood I will assist
>you further.
Thank you for helping me this far.
Steve
------------------------------
Date: Thu, 01 Feb 2001 12:36:01 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Should this code work?
Message-Id: <slrn97imb3.21j.tjla@thislove.dyndns.org>
I was shocked! How could Steve <pawsindoors@hotmail.com>
say such a terrible thing:
>On Wed, 31 Jan 2001 21:49:50 GMT, tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
>wrote:
>Okay - I need to find out more about this but is it likely that it is
>causing my problem with open(LOGFILE, ">$path_to_myfile");?
Beats me. Why don't you print out what is in $path_to_myfile and see
what it really contains? Also you might like to print out some of the
data you are supposedly reading in.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
In case of atomic attack, all work rules will be temporarily suspended.
------------------------------
Date: Thu, 01 Feb 2001 13:00:40 GMT
From: pawsindoors@hotmail.com (Steve)
Subject: Re: Should this code work?
Message-Id: <3a795a53.16738877@news.freeserve.net>
On Thu, 01 Feb 2001 12:36:01 GMT, tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
wrote:
>I was shocked! How could Steve <pawsindoors@hotmail.com>
>say such a terrible thing:
>>On Wed, 31 Jan 2001 21:49:50 GMT, tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
>>wrote:
>
>>Okay - I need to find out more about this but is it likely that it is
>>causing my problem with open(LOGFILE, ">$path_to_myfile");?
>
>Beats me. Why don't you print out what is in $path_to_myfile and see
>what it really contains?
I did this, here is the result: (They are as I expected them to be)
$form_data{'selected_directory'} prints: target_direstory
$this_directory prints: target_directory
$path_to_myfile prints: /home/path/to/target_directory/myfile.txt
> Also you might like to print out some of the
>data you are supposedly reading in.
I did this also. I printed out the @catalog, it holds the contents of
myfile.txt as expected. I printed out the contents of @updated_catalog
after the foreach() loop and it has correctly updated the @catalog
data.
When I prime the variable $this_directory with the data
'target_directory' from within the routine, or even within another
routine it all works. It only fails when it comes in as
$form_data{'selected_directory'}, (even though this contains the
correct data 'target_directory'.
Godzilla! has suggested that the problem is in the read parse routine.
Thanks
Steve.
------------------------------
Date: Thu, 1 Feb 2001 02:17:30 -0500
From: "Cyclops" <fundthis.see@fsck>
Subject: sort: how do I ignore a specific word?
Message-Id: <3a790b30@news.isc.rit.edu>
I'm using sort to sort a huge @movies array, which contains movie titles.
Now, when I want to sort movie titles in alphabetical order, any title that
starts with "The" should have that word be ignored and the rest of the title
evaluated.
Each element in the array has the structure
year|title|director|genre
I thought the code would be like this:
@sorted= sort { ($a=~ /\|(The(.*?))|\|(.*?)/) cmp ($b=~
/\|(The(.*?))|\|(.*?)/) } @movies
Doesn't work, and I'm sure I'm blind to an obvious answer. For now, I just
use
@sorted= sort { ($a=~ /\|(.*?)\|/) cmp ($b=~ /\|(.*?)\|/) } @titles
which just sorts all the titles in alpha order, and all the "The" titles get
stuck on T, instead of their respective positions. I'm a relative newbie to
perl coding and regex, so please forgive me if you see the above code as
horrific. =)
I appreciate any help from the perl community. I just started learning perl
a couple of weeks ago, and I think it's the most flexible language I've
seen.
-DavidJ
------------------------------
Date: Thu, 01 Feb 2001 01:31:17 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: sort: how do I ignore a specific word?
Message-Id: <3A792CE5.2B1CB63@stomp.stomp.tokyo>
Cyclops wrote:
(various snippage)
> I'm using sort to sort a huge @movies array, which contains
> movie titles. Now, when I want to sort movie titles in
> alphabetical order, any title that starts with "The" should
> have that word be ignored and the rest of the title evaluated.
> I thought the code would be like this:
(The Snippage)
> Doesn't work, and I'm sure I'm blind to an obvious answer.
There are times you can see The Stars and
still not see The Light.
Remove "The" from your title, append it to the
end of your title, do your sort and then swap
The Thing back around. Movie titles with a
preceding "The" are relatively few.
$title =~ s/The (.*)/$1 The/;
(sort)
$title =~ s/(.*) The/The $1/;
Substring would accomplish this even quicker
and with greater efficiency. Better yet,
edit your data base to have "The" appended
in all cases, permanently, then swap it for
your final print. Your sort problems
instantly vanish.
Godzilla!
--
* amazed Marshall Dillon played a giant carrot in The Thing *
------------------------------
Date: Thu, 01 Feb 2001 09:52:53 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: sort: how do I ignore a specific word?
Message-Id: <slrn97icp7.1al.tjla@thislove.dyndns.org>
I was shocked! How could Cyclops <fundthis.see@fsck>
say such a terrible thing:
>I'm using sort to sort a huge @movies array, which contains movie titles.
>Now, when I want to sort movie titles in alphabetical order, any title that
>starts with "The" should have that word be ignored and the rest of the title
>evaluated.
>
>Each element in the array has the structure
>year|title|director|genre
>
>I thought the code would be like this:
>
>@sorted= sort { ($a=~ /\|(The(.*?))|\|(.*?)/) cmp ($b=~
>/\|(The(.*?))|\|(.*?)/) } @movies
>
>Doesn't work, and I'm sure I'm blind to an obvious answer.
I feel you are trying to do a little much. Consider what happens if a
directors name starts with the letters 'The'. Perhaps it would be
better to split out the titles first. That word gives me an idea:
($titlea = $a) =~ s/[^|]*\|([^|]*)\|.*/$1/;
So now we have the bits that we want, why don't we just remove the
string 'The' from the front?
$titlea =~ s/^The//;
Now if you do the same for the other string you are pretty much there:
sub compare_titles
{
($titlea = $a) =~ s/[^|]*\|([^|]*)\|.*/$1/;
($titleb = $b) =~ s/[^|]*\|([^|]*)\|.*/$1/;
$titlea =~ s/^The//;
$titleb =~ s/^The//;
$titlea cmp $titleb
}
sort compare_titles @movies;
This is more or less untested.
You might like to consider altering how your data is being stored.
Instead of storing year, title, genre and director data in one string
and parsing it out as needed, why not use a more capable data structure
such as an array or even better a hash so you don't have to worry about
pulling the data out every time. It is likely to be more efficient too
(at the mention of which someone will no doubt leap down my throat
because I didn't do the whole Gutman-Rossler or Schwartzian Transform
thing which you can read about by typing 'perldoc -q sort'). I hope that
helps just a little.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
"Well, he'd better have those pants in the south range repaired be midday or
there'll be hell to pay!" --Owen
"Star Wars A New Hope (tm)", "Pants" Style
------------------------------
Date: Thu, 1 Feb 2001 11:02:57 +0100
From: "Michael Guenther" <miguenther@lucent.com>
Subject: Re: sort: how do I ignore a specific word?
Message-Id: <95bcc0$qqu@nntpa.cb.lucent.com>
Hi
1th go with Godzilla to make it easy and fast.
2nd. if this is not possible try:
@sorted = sort {nothe($a) cmp nothe($b)} @movies;
sub nothe{
$_[0]=~/\|(.*?)\|/;
$hlp = $1;
$hlp =~s/^The//;
retrun $hlp;
}
I'm sure it is not the best or the fastes way to do it but it will work.
------------------------------
Date: Thu, 1 Feb 2001 10:38:14 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: sort: how do I ignore a specific word?
Message-Id: <slrn97if4l.2q0.bernard.el-hagin@gdndev25.lido-tech>
On Thu, 1 Feb 2001 11:02:57 +0100, Michael Guenther
<miguenther@lucent.com> wrote:
>Hi
>
>1th go with Godzilla to make it easy and fast.
>
>2nd. if this is not possible try:
>
>@sorted = sort {nothe($a) cmp nothe($b)} @movies;
>
>sub nothe{
> $_[0]=~/\|(.*?)\|/;
> $hlp = $1;
> $hlp =~s/^The//;
> retrun $hlp;
>}
>
>I'm sure it is not the best or the fastes way to do it but it will work.
No it won't. It'll barf with a syntax error.
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: Thu, 1 Feb 2001 12:22:00 +0100
From: "Michael Guenther" <miguenther@lucent.com>
Subject: Re: sort: how do I ignore a specific word?
Message-Id: <95bh01$r8e@nntpa.cb.lucent.com>
> No it won't. It'll barf with a syntax error.
Sorry fast typing ...
The take the complete part ( copy and paste) ;-)
#######################
@movies=("1999|Flints|zaaa|zolor","2000|The Blinds
II|aaaa|color","1787|Aaaaa|bbbb|fff|","1998|zzz|gggg|jjj");
@sorted = sort {nothe($a) cmp nothe($b)} @movies;
foreach (@sorted) {
print $_."\n";
}
sub nothe{
$_[0]=~/\|(.*?)\|/;
$hlp = $1;
$hlp =~s/^The //;
return $hlp;
}
#################
Michael
------------------------------
Date: 1 Feb 2001 10:12:41 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: sorting IP addresses
Message-Id: <95bcqp$7i9$1@216.155.33.136>
In article <x7bssnro4q.fsf@home.sysarch.com>, Uri Guttman
<uri@sysarch.com> wrote:
| @list = map { unpack( 'C4', $_ ) }
| sort
| map pack( 'C4', split(/\./, $_ ), @ARGV ;
| *^*
| that looks interesting. maybe i will write a paper on it. :)
hey Uri, isn't there a ) missing from the above? *^*
:-)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Thu, 01 Feb 2001 10:37:50 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: sorting IP addresses
Message-Id: <x78znqsn7l.fsf@home.sysarch.com>
>>>>> "TW" == The WebDragon <nospam@nospam.com> writes:
TW> In article <x7bssnro4q.fsf@home.sysarch.com>, Uri Guttman
TW> <uri@sysarch.com> wrote:
TW> | @list = map { unpack( 'C4', $_ ) }
TW> | sort
TW> | map pack( 'C4', split(/\./, $_ ), @ARGV ;
TW> | *^*
TW> | that looks interesting. maybe i will write a paper on it. :)
TW> hey Uri, isn't there a ) missing from the above? *^*
yeah, but who tests code here and i don't have a list of IP addresses to
sort. :)
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 1 Feb 2001 09:40:58 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: strange behaviour of Net::SMTP
Message-Id: <95bava$7i9$0@216.155.33.136>
In article <95a0l1$4en$1@nnrp1.deja.com>, Brendon Caligari
<bcaligari@my-deja.com> wrote:
| RFC821 defines the "simple mail transfer protocol" (implemented in
| Net::SMTP). It deals with connecting to an mta (message transfer
| agent) to deliver messages. RFC 822 defines the actual 'message
| format' (for arpa internet text messages). As such there is no
| relationship between rfc821 and 822.
ahh ok, gotcha.
| There are modules to create nice rfc822
| compliant messages, but usually the following
I might have to look into these. Graham Barr's MailTools-1.15 looks
decent. I've installed this, and will work through it .. thanks for the
tip. :)
| headers are enough if all you are doing is
| sending simple emails. Message body is best
| kept to short lines, and plainest ascii.
| Otherwise mime extensions have to be added
| and the message encoded as Quoted=Printable,
| etc (there are modules for all those).
|
|
| Message-ID: <someweirdstring@host.yourdomain>
| From: "realname" <username@hostname>
| To: "real name" <username@hostname>
| Date: 31 Jan 2001 00:00:00 GMT
| Subject: ..some subject
|
| This Message body is separated from
| headers by a blank line
|
|
| B
|
it looks like this:
-=-
[snipped all the routing info]
Date: Thu, 1 Feb 2001 03:53:03 -0500
From: <webmaster@webdragon.net>
Message-Id: <200102010853.f118r3g10892@trinity.magpage.com>
Subject: testing MacPerl SMTP access
To: mactech@webdragon.net (rfc822 Compliance issue To: added by system
POTENTIAL SPAM)
X-SLUIDL: E2A0F989-F7D711D4-A3DC0008-C7A4EBBF
Perl sent this message. Nifty, eh? :-)
Just another Perl Hacker hard at work. =]
-=-
very strange.
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Thu, 01 Feb 2001 09:59:44 GMT
From: Graham Bailey <graham_j_bailey@my-deja.com>
Subject: Very Newbie: perlcc on NT
Message-Id: <95bc2e$851$1@nnrp1.deja.com>
Help!!
I have written some Perl scripts that enable me to create Oracle
databases in a consistent manner for a development team. I would like
to deploy these scripts now but, in their present form, there will be a
requirement to install Perl on the servers before I can execute the
scripts.
My aim is to make the scripts into "stand-alone" executables, such that
no Perl installation is required. I am trying to use the Perl
compiler: perlcc to perform this task but I am hitting a problem where
perlcc cannot find a particular file:
D:\oracle\ora816\admin\utilities\database_creator\perl_scripts>perlcc -
b hello_world.p
----------------------------------------------------------------------
Compiling hello_world.p:
----------------------------------------------------------------------
Making Bytecode(hello_world.pc) for hello_world.p!
C:\Perl\bin\Perl.exe -IC:/Perl/lib -IC:/Perl/site/lib -I. -MB::Stash -
c hello_world.p
C:\Perl\bin\Perl.exe -IC:/Perl/lib -IC:/Perl/site/lib -I. -MO=Bytecode,-
umain,-u
attributes,-uDB,-u<none>,-uWin32 hello_world.p
The system cannot find the file specified.
ERROR: In generating code for hello_world.p!
(I used hello_world.p because it doesn't contain any references to
modules - I am using ActiveState Perl 5.6.0 Build 623)
Is the solution fairly straightforward or am I missing something
fundamental here. I have checked out other threads in this forum -
some of them quite lengthy, going off at tangents and not providing an
answer.
Can someone give me a straightforward answer without having a pop at
me - my core skills are as an Oracle DBA and I am just starting out
with Perl.
Thanks in advance...
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 01 Feb 2001 08:16:17 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: What is the perlrun switch for "use" and "use lib"?
Message-Id: <slrn97i6rp.c3f.rgarciasuarez@rafael.kazibao.net>
John Lin wrote in comp.lang.perl.misc:
> Dear all,
>
> How to translate the following "use" and "use lib"
> into command line switches?
>
> use FindBin;
> use lib $FindBin::Bin;
perl -MFindBin '-Mlib $FindBin::Bin'
A little experiment to show if that works :
$ perl '-Mlib $x' -sle '$"="\n";print"@INC"' --
-x=/toto
/toto
/home/rafael/perllib
/usr/local/lib/perl5/5.6.0/i686-linux
/usr/local/lib/perl5/5.6.0
/usr/local/lib/perl5/site_perl/5.6.0/i686-linux
/usr/local/lib/perl5/site_perl/5.6.0
/usr/local/lib/perl5/site_perl
.
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 191
**************************************
