[16756] in Perl-Users-Digest
Perl-Users Digest, Issue: 4168 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 29 18:15:50 2000
Date: Tue, 29 Aug 2000 15:15:30 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <967587330-v9-i4168@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 29 Aug 2000 Volume: 9 Number: 4168
Today's topics:
Re: processing files in a directory and stuff <abe@ztreet.demon.nl>
Question about variable use lishy1950@my-deja.com
Re: Question about variable use <dietmar.staab@t-online.de>
Re: Question about variable use <tina@streetmail.com>
Re: reading a line from the serial port <dale@icr.com.au>
Re: Reg Exp Problem - What is wrong with this?? <elijah@workspot.net>
Regexp help required marty_t@my-deja.com
Re: replace some word in text file <lr@hpl.hp.com>
REQ is there a script .... <sven-s@hushmail.com>
Rounding Alarm() lag in Win32 ? <jari@subspace.nu>
Re: Searching for SQL statements <jevon@islandtelecom.com>
Re: selling perl to management (Abigail)
Re: TMTOWTDI - but how best to do this ?? (Tony L. Svanstrom)
Re: Unclosed HTML Tags <bart.lateur@skynet.be>
Use Mail:Sender with Use CGI. <hyachan@yahoo.com>
Re: Variable masks earlier declaration <cresentmoon@geocities.com>
Re: Variable masks earlier declaration <tina@streetmail.com>
Re: Variable masks earlier declaration (Malcolm Dew-Jones)
Re: Win32 path with spaces <lr@hpl.hp.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 Aug 2000 23:08:44 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: processing files in a directory and stuff
Message-Id: <mi3oqs011gqd25huk3a8fq9unnhgan0vpk@4ax.com>
On Mon, 28 Aug 2000 19:34:04 -0700, Gorbeast
<gorbeast@SPAMSUCKS.subduction.org> wrote:
In view of what Eric Bohlman already wrote, lots of style issues (in an
attempt to encourage you :-)
>
You missed the #! line, but warnings are nice :-)
#!c:/Perl/bin/perl -w
> use strict;
> my $file;
> my $line;
> my @fields;
> my %probes_found;
> my $probe_id;
For the moment, %probes_found is the only one I would declare here.
>
> open (RESULTS, '>C:\Perl\bin\results.txt') || die "Couldn't open
> results.txt: $!";
Win32 does take '/' as a directory separator, it makes life so easy.
I would declare those paths as variables as it results in cleaner code:
my $base_dir = 'c:/perl/bin';
my $res_file = "$base_dir/results.txt";
my $src_dir = "$base_dir/foo";
and open the results file:
open RESULTS, "> $res_file" or die "Can't open '$res_file': $!";
> opendir(DIR, 'C:\Perl\bin\foo') or die "cant open directory
> C:\\Perl\\bin\\foo: $!" ;
and opendir() the directory:
opendir DIR, $src_dir or die "Can't opendir '$src_dir': $!";
>
> while (defined($file = readdir(DIR))) {
I don't like that, you should test for fileness of a directory entry if
you want to process files. I would use grep() to get that list of files
and a 'foreach' to loop through them:
foreach my $file ( grep -f "$src_dir/$_" => readdir DIR ) {
The 'my $file' limits the scope of $file to the foreach construct as
there is no need for '$file' to live outside it.
>
> open(FILE, "C\:\\Perl\\bin\\foo\\$file") or warn "can't open $file: $!";
>
open FILE, "$src_dir/$file" or
warn "Can't open '$file': $!\n" and next;
Putting "\n" at the end of the warning, keeps the message clean (without
program name/linenumber stuff perl otherwise adds) as it is meant to be
just a warning message.
The 'and next' bit skips the rest of the loop as there is no need to
read from unopened file handles etc. You just want to process the next
file (if any).
> my @data = <FILE>;
>
> foreach $line(@data) {
Like Eric said, if you're processing the file line by line, there's no
need to read the whole file first and then process it line by line.
while ( <FILE> ) {
>
> chomp;
>
> $line =~ tr/ / /s;
>
> @fields = split(/ /, $line);
The default split() takes care of multiple white spaces between
'fields'. Since you only seem to be interested in the first field:
my $field = (split)[0];
would take care of things (assuming $_ is set from my 'while').
BTW: if that "\t" is really the start of each data line, the 'tr/ / /s'
doesn't affect the beginning of the line. If on the other hand lines
start with multiple spaces split(/ /) will return an empty string as the
first 'field'.
> print RESULTS "$fields[0]\n";
This would then become:
print RESULT "$field\n";
And inside this loop is where you would count any occurrence of '$field'
using the %probes_found hash:
$probes_found{$field}++;
>
> }
That curlie marks the end of (my 'while ( <FILE> )') your 'foreach $line
(@data)' loop.
>
> # }
That curlie should have marked the end of (my 'foreach $file...') your
'while ($file = readdir)..' loop. By commenting it out, the next
closedir() stops the directory read in your 'while' after the first
file/directory entry.
> closedir(DIR);
After closing the results file, you can now print the counts per key:
print "$_ - $probes_found{$_}\n" for keys %probes_found;
--
Good luck,
Abe
------------------------------
Date: Tue, 29 Aug 2000 20:08:33 GMT
From: lishy1950@my-deja.com
Subject: Question about variable use
Message-Id: <8oh57f$3ld$1@nnrp1.deja.com>
Hello
I'm trying to set an array of a list of file names in a directory. What
I have currently is something like this:
@FILELIST=(`ls /dir/subdir/subdir/filename.txt.*`);
It's not working. Should it be brackets instead of () ?
Any help would be appreciated. Thanks!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 29 Aug 2000 22:29:34 +0100
From: "Dietmar Staab" <dietmar.staab@t-online.de>
Subject: Re: Question about variable use
Message-Id: <8oh6ji$40h$17$1@news.t-online.com>
In article <8oh57f$3ld$1@nnrp1.deja.com>, lishy1950@my-deja.com wrote:
> Hello I'm trying to set an array of a list of file names in a directory.
> What I have currently is something like this:
>
> @FILELIST=(`ls /dir/subdir/subdir/filename.txt.*`);
>
> It's not working. Should it be brackets instead of () ?
>
> Any help would be appreciated. Thanks!
perhaps readdir is what you want.
D.
------------------------------
Date: 29 Aug 2000 21:10:00 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Question about variable use
Message-Id: <8oh8r8$akfq2$8@ID-24002.news.cis.dfn.de>
hi,
lishy1950@my-deja.com wrote:
> I'm trying to set an array of a list of file names in a directory. What
> I have currently is something like this:
> @FILELIST=(`ls /dir/subdir/subdir/filename.txt.*`);
> It's not working. Should it be brackets instead of () ?
what does "it's not working" mean?
does the script compile?
does the command die with an error message?
does @FILELIST contain anything?
anyway, i'd recommend using opendir:
perldoc -f opendir
that's much more portable and robust.
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \__,_\___/\___/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: Wed, 30 Aug 2000 08:08:16 +1000
From: Dale Walker <dale@icr.com.au>
Subject: Re: reading a line from the serial port
Message-Id: <39AC3450.AE5EAC4F@icr.com.au>
Greg Bacon wrote:
>
> In article <39ABCA71.6595D445@icr.com.au>,
> Dale Walker <dale@icr.com.au> wrote:
>
> : Hi guys, I'm trying to read and manipulate the logging output from our
> : phone system (attached via serial port)...
>
> Have you seen the entry in Section 8 of the FAQ that deals with
> serial communication?
>
> Greg
> --
Yeah Greg I have now... Since my last post, I've been trying every
combination I can think of..
Just doesn't want to play the game...
--
Dale Walker dale@icr.com.au
------------------------------
Date: 29 Aug 2000 20:15:58 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: Reg Exp Problem - What is wrong with this??
Message-Id: <eli$0008291601@qz.little-neck.ny.us>
In comp.lang.perl.misc, Scott <shamilton@plateausystems.holdthespam.com> wrote:
> I am writing a filter to look for specific strings in submitted textarea
> fields, specifically HTTP links (thanks to all who helped with that one) and
> also email addresses, to turn into mailto links.
Ah. If that's what you are doing, be very careful about what HTML
you let people submit. There are very devious ways of sticking
malicious javascript into HTML.
> Here's the problem: under certain circumstances, and I'm not sure exactly
> what those are, when the following regular expression is evaluated, the Perl
> script seems to bomb out (all I get is an HTTP 500 response):
What's in your error log? Have you tried running it from the command
line? (I create subshells, set environement variables like it is
being run from a CGI gateway and just run them. There are many other
ways, some of which may seem easier to you.)
> s!((?:[\w\-]*\.?)+\@(?:[\w\-])+(?:\.[\w\-]+)*)!<a
> href="mailto:$1">$1</a>!xig
You've got a pattern in there that could match nothing, and then
you've put a '+' at the end of it. That's bad. You've also got
unnecessary parens in there.
s!([\w\-.]+\@[\w\-]+(?:\.[\w-]+)*)!<a
href="mailto:$1">$1</a>!g
That's roughly compatibible with your attempt, except it allows
'j.hover@big.gov' and the like, whereas yours would have left the
initial 'j.' out of the address. By the way: '-' does not need
to be backslashed if it is the first or last character in a
[class]. Also the /x option does nothing for that RE, since you
don't have whitespace or comments, and the /i option does nothing
since you don't have any fixed alphabetic characters in the match
part.
> Interestingly enough, when I also tried this in JavaScript (granted, without
> the (?:) parts since they didn't seem to be supported), the javascript line
> would take an EXTREMELY long time to scan a line of only about 50
> characters.
Probably the RE engine struggling with all those zero width matches.
> Without tearing apart the above reg exp line's assumptions about the email
> address format, can anyone tell me what might be wrong with it that it might
> cause such an error?
Oh, it still has plenty of problems finding arbitrary correct
email addresses (and will match plenty of bad ones) but I coulbn't
help not fixing that '.' in the localpart problem.
Elijah
------
<foo.@example.com> uses '.' wrong in the localpart but will likely get by
------------------------------
Date: Tue, 29 Aug 2000 21:39:59 GMT
From: marty_t@my-deja.com
Subject: Regexp help required
Message-Id: <8ohajc$aan$1@nnrp1.deja.com>
Hi,
I am a NOVICE Perl CGI programmer trying to learn more about regular
expressions and untainting.
I was wondering if removing the ";" from a user input was enough to
stop malicious commands being executed. (Untainting)
As far as I can understand the ";" is a command "breaker" allowing
everything after it to be run seperately, am I right? So removing this
from a string will not executed the bad command.
Secondly, can anyone help me out with writing a regexp that will do
this task. Or even better, give me a quick explaination of how to write
regular expressions.
I've checked the perlsec docs, but it didn't help me much.
Many thanks,
Marty T
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 29 Aug 2000 12:31:43 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: replace some word in text file
Message-Id: <MPG.1415af774a1b901c98acf1@nntp.hpl.hp.com>
In article <967545642.11620@relay2.sbor.ru> on Tue, 29 Aug 2000 14:39:02
+0400, Serg Piskarev <ps@sbor.ru> says...
> sorry for stupid question
> Is it possible to replace some word directly in text file (without coping
> file content to an array)?
It isn't a stupid question; it is a Frequently Asked Question, if you
realize that changing a word in a text file implies changing the line
that contains the word.
perlfaq4: "How do I change one line in a file/delete a line in a
file/insert a line in the middle of a file/append to the beginning of a
file?"
> Thanx
You're welcome.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 29 Aug 2000 19:29:32 GMT
From: Sven <sven-s@hushmail.com>
Subject: REQ is there a script ....
Message-Id: <643oqscnpbte3l2ac5fj9p0r0fbvjvuv13@4ax.com>
Is there a script that display number of days since a (in script)
given date ?
(For display in webpage via SSI-tag).
Regards,
Sven
------------------------------
Date: Tue, 29 Aug 2000 21:41:41 +0300
From: Tk <jari@subspace.nu>
Subject: Rounding Alarm() lag in Win32 ?
Message-Id: <39AC03E5.D1F83B78@subspace.nu>
Next exsample works fine in the *nix boxes: Ill get interrupt by alarm
in every 5 seconds and it sends sync message to the server.
But couse the alarm() fucntion is not implemented for the win32
platform I can't use it.
See the proplem in line 4. Client is waiting as long something is send
for it... without alarm I cant interrupt it and send sync..
Any ideas how so solve this proplem (in Win32) ???
1: SIG{ALRM} = &sync();
2: alarm(5);
3: while(1){
4: $socket -> recv($message,$maxlen);
5: if ($msg =~ /foo/ ) {
6: $socket->send("bar");
7: };
8: };
9:
10: sub sync {
11: alarm(0); #just in case
12: $socket -> send("You need to be a sync with me");
13: alarm(5);
14: };
Thnx for advance...
-Jari
------------------------------
Date: Tue, 29 Aug 2000 18:38:48 GMT
From: "Jevon MacDonald" <jevon@islandtelecom.com>
Subject: Re: Searching for SQL statements
Message-Id: <YqTq5.162$uR1.23174@sapphire.mtt.net>
I am betting on: Unlikely... Code like that isn't usually packaged and
archived very often.. What you will want to do is learn your regexp's and
look for the specific data yourself.. You will also want to familiarize with
file handling...
"Just parse it"
-- Unknown
"Philip Taylor" <phil.taylor@bigfoot.com> wrote in message
news:39abf2e4.15430261@news.btinternet.com...
> I'm trying to analyse a large number of Ingres OpenROAD program source
> files for SQL statements to produce information such as number of
> SELECTS/INSERTS etc and which tables are used. I have several hundred
> program export files to analyse.
>
> I wondered if there are any Perl facilities that can identify SQL
> statements in a source file?
>
> Any help appreciated
>
> Phil
------------------------------
Date: 29 Aug 2000 19:23:59 GMT
From: abigail@foad.org (Abigail)
Subject: Re: selling perl to management
Message-Id: <slrn8qo3bo.bbg.abigail@alexandra.foad.org>
Martien Verbruggen (mgjv@tradingpost.com.au) wrote on MMDLV September
MCMXCIII in <URL:news:slrn8qn5hv.sk8.mgjv@martien.heliotrope.home>:
"" On 28 Aug 2000 18:35:10 GMT,
"" Abigail <abigail@foad.org> wrote:
""
"" Neither of these examples are likely to occur in production code, except
"" for the AUTOLOAD one. And that could be easily written more sanely as
"" well.
That's the most idiotic attitude to the problem of Perl breaking code
I've ever heard off. No wonder Perl is hard to sell to management.
"" I'm not trying to marginalise things, but you do come up with examples
Yes you do.
"" that most likely wouldn't be defined by a standard anyway. But I do take
Then it isn't a standard.
"" your point: If there _were_ a standard, the developers could _validly_
"" make the point I just made, while now it is unfounded. If there were a
"" standard, you could complain to the developers if something broke.
""
"" But that does not stop them from changing things in the first place. it
"" just forces them to justify it in a standard.
A standard that's changed to match the current implementation isn't a
useful standard. You might as well have none.
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: Tue, 29 Aug 2000 20:16:58 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: TMTOWTDI - but how best to do this ??
Message-Id: <1eg56zc.843wn6oqpda1N%tony@svanstrom.com>
<reg_exp@my-deja.com> wrote:
> i have a problem that is somewhat like calculating a check sum, i've
> detailed it below.
Hmmm... shouldn't you do your own homework instead of getting others to
do it for you...?
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Tue, 29 Aug 2000 19:00:56 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Unclosed HTML Tags
Message-Id: <402oqs4j7mvg4l4lng15u9hkqat2sb7u9k@4ax.com>
jason wrote:
>as an aside - you'll probably get a better answer in a CGI specific
>newsgroup
I don't see why processing HTML is a better subject for the CGI
newsgroup. HTML ne CGI.
That aside, I think I'd look at HTML::Treebuilder, a side module for
HTML::Parser. Build the HTML structure tree, and regenerate the HTML.
--
Bart.
------------------------------
Date: Wed, 30 Aug 2000 15:38:31 +0800
From: Alan Chan <hyachan@yahoo.com>
Subject: Use Mail:Sender with Use CGI.
Message-Id: <39ACB9F7.C4EE5969@yahoo.com>
Hello,
I am writing a send email program using "use Mail:Sender...SMTP..."
written to /cgi-bin/sendemail.pl.
However, I am stuck with the problem if I don't use "Use CGI", how the
heck am I able to obtain the input from my web server (IIS4) so that I
want to send the email to the recipients based on a <INPUT
NAME="emailaddress"..> from the HTML page. I must make sure the "input"
and then I will call ../cgi-bin/sendemail.pl with input from the HTML
page.
Hoping for any great guys can help.
Many thanks in advance,
Alan.
------------------------------
Date: Tue, 29 Aug 2000 18:57:49 GMT
From: Farouk Khawaja <cresentmoon@geocities.com>
Subject: Re: Variable masks earlier declaration
Message-Id: <8oh131$ucv$1@nnrp1.deja.com>
Bill,
Thanks for the response. I found the problem. Believe it or not, it
was a 'case' problem. If you look at the subroutine I posted earlier,
you'll see that to make a tablerow (using CGI.pm) I used 'tr'. It
should have been 'Tr'.
Once I fixed this, everything else fell in-line. Thanks for your help.
fsk
p.s. "Silly errors" is an understatement. I'm a charter member and
grand phooba of the inept typers club. One day, it will be the death of
me. :-)
In article <967565620.7723.0.nnrp-03.c3ad6973@news.demon.co.uk>,
"W Kemp" <bill.kemp@wire2.com> wrote:
> >"my" variable $config masks earlier declaration in same scope at
> >./createIBVUser.cgi line 240.
> >syntax error at ./createIBVUser.cgi line 241, near "my "
> >Global symbol "$result" requires explicit package name at
> >./createIBVUser.cgi line 241.
> >Missing right bracket at ./createIBVUser.cgi line 362, at end of line
> >Execution of ./createIBVUser.cgi aborted due to compilation errors.
> >
> >Line 240 is:
> >238 sub addEntry($$)
> >239 {
> >240 my ($config, $t) = @_;
> >241 my ($result);
> >
> >To me this looks like a bracketing problem but I've matched up all
the
> >brackets. Or so I think.
>
> <snip>
>
> It is a bracketing problem. Innacurate typing and silly errors being
a
> forte of mine.
> I have seen this one a few times. Your code might not help because
the
> missing brackets might be before many of the other subroutines.
>
> I suggest you cut and paste (or vi ...) your code into sensible chunks
and
> 'perl -c' them to find where the odd bracket is.
> I did see a nice text editor once that coloured in the different
levels of
> brackets, but I didn't get what it was.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 29 Aug 2000 19:12:00 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Variable masks earlier declaration
Message-Id: <8oh1u0$akfq2$6@ID-24002.news.cis.dfn.de>
hi,
W Kemp <bill.kemp@wire2.com> wrote:
>>"my" variable $config masks earlier declaration in same scope at
>>./createIBVUser.cgi line 240.
>>syntax error at ./createIBVUser.cgi line 241, near "my "
>>Global symbol "$result" requires explicit package name at
>>./createIBVUser.cgi line 241.
>>Missing right bracket at ./createIBVUser.cgi line 362, at end of line
>>Execution of ./createIBVUser.cgi aborted due to compilation errors.
>>
> It is a bracketing problem. Innacurate typing and silly errors being a
> forte of mine.
> I did see a nice text editor once that coloured in the different levels of
> brackets, but I didn't get what it was.
use Vi and type "%" if the cursor is over a bracket (of
any type). it will find the one that fits to this.
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \__,_\___/\___/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: 29 Aug 2000 13:05:00 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: Variable masks earlier declaration
Message-Id: <39ac176c@news.victoria.tc.ca>
Farouk Khawaja (cresentmoon@geocities.com) wrote:
: Hi All,
: I'm getting the following error.
(snip)
: Missing right bracket at ./createIBVUser.cgi line 362, at end of line
(snip)
: To me this looks like a bracketing problem but I've matched up all the
: brackets. Or so I think.
Perl thinks not.
: sub missingFieldValue($$$)
(snip)
: $q->table({-width=>'550',
: -border=>'0',
: -cellspacing=>'2',
: -cellpadding=>'2'},
: td({-align=>'left',
: -valigh=>'top',
: -width=>'100'},
: $q->font({-face=>'arial',
: -size=>'5',
: -color=>'red'},
: -strong("Missing Field")),br,
(lots snipped)
This isn't everyones style, but I recommend you aline your brackets
visually. Brackets should always align either vertically or horizontally.
Then you won't make bracketing errors, the style needs no tools to assist,
and can be checked anywhere anytime (like when reading print outs on the
bus).
: $q->table( {-width=>'550',
: -border=>'0',
: -cellspacing=>'2',
: -cellpadding=>'2'
},
: td( {-align=>'left',
: -valigh=>'top',
: -width=>'100'
},
: $q->font( {-face=>'arial',
: -size=>'5',
: -color=>'red'
},
: -strong("Missing Field")
),br,
(.etc.)
If you reformat your code I'm sure you will find the error.
------------------------------
Date: Tue, 29 Aug 2000 11:07:54 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Win32 path with spaces
Message-Id: <MPG.14159bd786fe1c0a98acec@nntp.hpl.hp.com>
In article <kFLq5.16449$OG.490537@nntp0.chicago.il.ameritech.net> on
Tue, 29 Aug 2000 04:51:59 -0500, John Roth <johnroth@ameritech.net>
says...
...
> If it is parsing the string twice, then the problem is to get a second set
> of quotes past
> the first parse and to the command line itself. Something like
> system("\'C:/program files .... exe\"' might work.
It might work if the quotes were nested properly. Also, the backslashes
don't mean anything in this situation.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
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 V9 Issue 4168
**************************************
