[17563] in Perl-Users-Digest
Perl-Users Digest, Issue: 4983 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 28 18:15:39 2000
Date: Tue, 28 Nov 2000 15:15:18 -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: <975453318-v9-i4983@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 28 Nov 2000 Volume: 9 Number: 4983
Today's topics:
Skipping lines in a file <jstone211@my-deja.com>
Re: Skipping lines in a file (Flint Slacker)
Re: Skipping lines in a file (Tad McClellan)
Re: Skipping lines in a file <jeff@vpservices.com>
Re: splitting a string into an array and preserving the (Andrew N. McGuire)
Re: splitting a string into an array and preserving the <bart.lateur@skynet.be>
Re: splitting a string into an array and preserving the <iltzu@sci.invalid>
Re: splitting a string into an array and preserving the (Tom Christiansen)
Subroutine Question <infro@yahoo.com>
Re: Subroutine Question <aqumsieh@hyperchip.com>
Re: Subroutine Question <jeff@vpservices.com>
Re: system() and backticks working intermittently on Tr <dwilgaREMOVE@mtholyoke.edu>
Re: system() and backticks working intermittently on Tr <sb299@netzero.net>
system() argument: multiple spaces collapsed into singl <jeff.r.olson@westgroup.com>
Tracking memory usage of data structure <steve@see-signature.com>
Unmatched Single Quote <kliquori@outsourceint.com>
Re: Unmatched Single Quote (Flint Slacker)
Re: Unmatched Single Quote (John J. Trammell)
Re: Unmatched Single Quote <claytons@nortelnetworks.com>
Re: Unmatched Single Quote <iltzu@sci.invalid>
Using Net::FTP eggrock@my-deja.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 28 Nov 2000 19:12:55 GMT
From: J. Stone <jstone211@my-deja.com>
Subject: Skipping lines in a file
Message-Id: <90103g$7vh$1@nnrp1.deja.com>
What is the most graceful way to skip a number of lines in a file?
Here is a code sample that shows how I currently accomplish this:
while (<INFILE>){
chop;
if (m/PORTFOLIO TOTALS:/){
$line = <INFILE>;
$line = <INFILE>;
$line = <INFILE>;
.
.
.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 28 Nov 2000 19:50:07 GMT
From: flint@flintslacker.com (Flint Slacker)
Subject: Re: Skipping lines in a file
Message-Id: <3a250acb.6813844@news.tcn.net>
I like using labels myself....
LOOP: while(<INFILE>) {
chomp;
next LOOP if(/pattern/); #don't process
last LOOP if(/^$/); #exit
push(@lines, $_); #good line
......
}
Flint
On Tue, 28 Nov 2000 19:12:55 GMT, J. Stone <jstone211@my-deja.com>
wrote:
>What is the most graceful way to skip a number of lines in a file?
>Here is a code sample that shows how I currently accomplish this:
>
> while (<INFILE>){
> chop;
> if (m/PORTFOLIO TOTALS:/){
> $line = <INFILE>;
> $line = <INFILE>;
> $line = <INFILE>;
> .
> .
> .
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: Tue, 28 Nov 2000 14:23:27 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Skipping lines in a file
Message-Id: <slrn9281hf.12l.tadmc@magna.metronet.com>
J. Stone <jstone211@my-deja.com> wrote:
>What is the most graceful way to skip a number of lines in a file?
perldoc -f next
>Here is a code sample that shows how I currently accomplish this:
>
> while (<INFILE>){
> chop;
You should use chomp() there instead of chop().
next unless m/PORTFOLIO TOTALS:/;
> $line = <INFILE>;
> $line = <INFILE>;
> $line = <INFILE>;
Better be sure that you aren't reading past the end of file there...
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 28 Nov 2000 12:33:04 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Skipping lines in a file
Message-Id: <3A241680.B06A520C@vpservices.com>
"J. Stone" wrote:
>
> What is the most graceful way to skip a number of lines in a file?
> Here is a code sample that shows how I currently accomplish this:
>
> while (<INFILE>){
> chop;
> if (m/PORTFOLIO TOTALS:/){
> $line = <INFILE>;
> $line = <INFILE>;
> $line = <INFILE>;
> .
I'm not sure this is any more graceful, but you could use $. to find the
current line number in a file. For example:
my $skip_end = 0;
my $lines_to_skip = 3;
while (<INFILE>){
chomp;
$skip_end = $. + $lines_to_skip if m/PORTFOLIO TOTALS:/;
next if $. <= $skip_end;
# process $_;
}
Or, if you want to include the line that contains "PORTFOLIO TOTALS:" in
your processing, put the line starting with "next" before the line
starting with "$skip_end".
--
Jeff
------------------------------
Date: 28 Nov 2000 13:25:44 -0600
From: anmcguire@ce.mediaone.net (Andrew N. McGuire)
Subject: Re: splitting a string into an array and preserving the "\n"
Message-Id: <874s0r526f.fsf@hawk.ce.mediaone.net>
>>>>> "TC" == Tom Christiansen <tchrist@perl.com> writes:
TC> In article <57n72tgljp2frhteh49j7hk2qvdft79u6a@news.supernews.net>,
TC> Bernie Cosell <bernie@fantasyfarm.com> wrote:
>> Foo... This must be some definition from "Tom's private dictionary", since
>> I doubt that much of anyone else uses "online" with this meaning...
TC> Scriptie kiddies can makie their own wordies and stealie the goodie
TC> ones thatie we've always usied, but I categorically reject the
TC> notion that "online" is limited to meaning "on the Comprehensive
TC> Perl Archive Network". That's stupid.
TC> "Online documentation" is documentation that is available via
TC> computer; that is, in electronic form ("softcopy").
Precisely.
Not to fan the flames, but the online documentation concurs with
you, as do I (as if my opinion really matters in this case):
( anm@hawk ~ ) man man | col -b | head ( 1 pts/4 )
man(1) man(1)
NAME
man - format and display the on-line manual pages
manpath - determine user's search path for man pages
anm
--
perl -wMstrict -e '
$a=[[qw[J u s t]],[qw[A n o t h e r]],[qw[P e r l]],[qw[H a c k e r]]];$.++
;$@=$#$a;$$=[reverse sort map$#$_=>@$a]->[$|];for$](--$...$$){for$}($|..$@)
{$$[$]][$}]=$a->[$}][$]]}}$,=$";$\=$/;print map defined()?$_:$,,@$_ for @$;
'
------------------------------
Date: Tue, 28 Nov 2000 21:29:29 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: splitting a string into an array and preserving the "\n"
Message-Id: <8l882tk02hc5tbqq922u066f9fh1iho2gv@4ax.com>
Tom Christiansen wrote:
>"Online documentation" is documentation that is available via
>computer; that is, in electronic form ("softcopy").
Currently, the common meaning for "available online" is: you can get at
it, using your computer, even if it isn't stored on your own computer
(or computers, or local network). Currently, that usually means
Internet, in whatever form (web, FTP, gopher, ...). So, the Yellow Pages
are available online (they are, here). My private diary, isn't.
--
Bart.
------------------------------
Date: 28 Nov 2000 21:35:30 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: splitting a string into an array and preserving the "\n"
Message-Id: <975447083.7842@itz.pp.sci.fi>
In article <3a23e2ee@cs.colorado.edu>, Tom Christiansen wrote:
>
[perl5.005delta.pod]
>It doesn't have to be on CPAN to be online. Is it on your
>computer? That is the question.
Probably not for the OP. In case you weren't reading carefully, the
reason for this whole thread was the OP being stuck with perl 5.004.
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post
something, we discuss its implications. If the discussion happens to
answer a question you've asked, that's incidental." -- nobull in clpm
------------------------------
Date: 28 Nov 2000 14:46:08 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: splitting a string into an array and preserving the "\n"
Message-Id: <3a2427a0@cs.colorado.edu>
In article <8l882tk02hc5tbqq922u066f9fh1iho2gv@4ax.com>,
Bart Lateur <bart.lateur@skynet.be> wrote:
>Tom Christiansen wrote:
>
>>"Online documentation" is documentation that is available via
>>computer; that is, in electronic form ("softcopy").
>
>Currently, the common meaning for "available online" is: you can get at
>it, using your computer, even if it isn't stored on your own computer
>(or computers, or local network). Currently, that usually means
>Internet, in whatever form (web, FTP, gopher, ...). So, the Yellow Pages
>are available online (they are, here). My private diary, isn't.
Why thank you; that's very nice. It's also risibly wrong. There's
no reason to kowtow to confusion by the uninformed masses. Instead,
inform them. Just blindly putting up with glaring inaccuracies
is what gets us bacteerias and noocyular missives. All the world
is not Texas, you know.
"Online" hardly means "Internet". Bah. Teach the kiddies.
--tom
------------------------------
Date: Tue, 28 Nov 2000 13:11:12 -0600
From: dan <infro@yahoo.com>
Subject: Subroutine Question
Message-Id: <3A24034F.66CEB10C@yahoo.com>
Hi is there a way to exit a subroutine without exiting the program?
sub word{
open(CHECK, 'who.txt');
@curent = <CHECK>;
close(CHECK);
foreach $line(@curent) {
if ($line eq $input){
&part2; # when I leave I don't want to come back.
}
}
}
sub part2{
print "welcome $FORM{'name'}<br>";
}
At this point I would like to return to the main script and not back to
&word to finish loop. Any help would be great.
Thanks
Dan
------------------------------
Date: Tue, 28 Nov 2000 19:25:51 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Subroutine Question
Message-Id: <7au28rq4ow.fsf@merlin.hyperchip.com>
dan <infro@yahoo.com> writes:
> Hi is there a way to exit a subroutine without exiting the program?
>
> sub word{
> open(CHECK, 'who.txt');
> @curent = <CHECK>;
> close(CHECK);
> foreach $line(@curent) {
> if ($line eq $input){
> &part2; # when I leave I don't want to come back.
return;
> }
> }
> }
>
> sub part2{
> print "welcome $FORM{'name'}<br>";
> }
--Ala
------------------------------
Date: Tue, 28 Nov 2000 11:29:28 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Subroutine Question
Message-Id: <3A240798.2EA0E461@vpservices.com>
dan wrote:
>
> Hi is there a way to exit a subroutine without exiting the program?
> ...
> At this point I would like to return to the main script
^^^^^^
You said it yourself. You want to RETURN from the subroutine. So place
the line "return;" (without the quotes) in the place you want to return
to the main script.
--
Jeff
------------------------------
Date: Tue, 28 Nov 2000 19:47:12 GMT
From: Dan Wilga <dwilgaREMOVE@mtholyoke.edu>
Subject: Re: system() and backticks working intermittently on Tru64 UNIX
Message-Id: <dwilgaREMOVE-CD4EFE.14470728112000@news.mtholyoke.edu>
In article <HSyU5.38432$751.1170768@typhoon.ne.mediaone.net>, "Steve
Bourgeois" <sb299@netzero.net> wrote:
> I have an application written in perl that makes various calls out to the
> OS with system() and backticks.
>
> The problem is that hosting out to the OS occasionally does nothing when
> it is executed.
>
> For example, something like $results = `ps -ef |grep zz` will return a NULL
> string
We had been running Apache 1.3.9 on Linux, and one of the people here was
having intermittent problems with the $ENV{PATH} Apache was sending it.
The immediate solution was to simply give the full path to the system command
being executed. The long-term fix was to update Apache.
You might want to print out the contents of $ENV{PATH} to see if they are
munged.
Dan Wilga dwilgaREMOVE@mtholyoke.edu
** Remove the REMOVE in my address address to reply reply **
------------------------------
Date: Tue, 28 Nov 2000 19:01:15 GMT
From: "Steve Bourgeois" <sb299@netzero.net>
Subject: Re: system() and backticks working intermittently on Tru64 UNIX
Message-Id: <%hTU5.40646$751.1247333@typhoon.ne.mediaone.net>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:9008j6$hfl$1@lublin.zrz.tu-berlin.de...
> Steve Bourgeois <sb299@netzero.net> wrote in comp.lang.perl.misc:
> >
> >I have an application written in perl that makes various calls out to the
> >OS with system() and backticks.
> >
> >The problem is that hosting out to the OS occasionally does nothing when
> >it is executed.
> >
> >For example, something like $results = `ps -ef |grep zz` will return a
NULL
> >string
> >and STDERR is not set.
>
> There is nothing unusual about this. If grep doesn't match anything,
> it will print nothing, not even to STDERR.
>
> If I add this code to a loop with retry logic, it
> >will eventually
> >execute successfully after a few retries.
>
> This behavior is typical for the Unix ps command, which shows a
> snapshot of the process table: Sometimes it will show processes
> that are started along with itself (like "grep zz" in the pipeline
> above), and sometimes it won't. There's no guarantee either way.
I was just the using the above "ps" command as a simple example to
demonstrate
the type of problem I have been seeing.
Here is a more specific example:
$pcount = `ps -ef|grep doesnotexist |grep -v grep |wc -l`;
This command should ALWAYS return a number, but it would occasionally
return NULL. After a few retries, it eventually returns a number.
The problem that I am encountering happens with all kinds of commands:
ps, rsh, mailx, ping, and so on...
Bascially, I am saying that I could execute system("touch /tmp/junk") or $rc
= `echo hello`
and itermittantly they do nothing.
>
> >I have been seeing this problem with Digital/Tru64 UNIX versions 3.2 - >
5.1
> >and
> >perl versions 5.004 -> 5.6. It also occurs more frequently as the
hardware
> >that
> >we're running on has increased in horsepower...
>
> Sure, this behavior is dependent on many factors. You'll see it more
> with one machine and less with another, but it also depends on system
> load.
How so??? Shouldn't "echo hello" just print "hello" more slowly on a loaded
system?
For that matter, I have seen the problem I'm having happen on an idle
system...
>
> Strangely enough, this
code
> >also
> >runs on Windows NT and we have never seen this issue on that platform.
>
> That's a completely different kind of task scheduler. I guess it doesn't
> have the problem (if it is a problem) of the typical Unix schedulers.
>
> In summary, the effects you are seeing depend on the underlying OS, not
> Perl.
I agree as long as you are talking about a bug with the OS or the Perl port
to it.
>
> Anno
------------------------------
Date: Tue, 28 Nov 2000 17:02:10 -0600
From: "Jeffrey R. Olson" <jeff.r.olson@westgroup.com>
Subject: system() argument: multiple spaces collapsed into single space
Message-Id: <3a243940$1@woodstock.int.westgroup.com>
I'm running ActivePerl 522 on Windows NT 4.0, and am having the following
problem with the system() function:
I've created a simple example of the problem I'm having. Say I have a
script test1.pl:
#---------
my $infile = "hello world";
print "\$infile in test1.pl: $infile\n";
system qq(perl "test2.pl" "$infile");
#---------
And say test2.pl looks like this:
#---------
my $infile = shift;
print "\$infile in test2.pl: $infile\n";
#---------
Upon running test1.pl, the output is this:
$infile in test1.pl: hello world
$infile in test2.pl: hello world
Note how the two spaces between "hello" and "world" are collapsed into a
single space. In fact, it seems that any number of consecutive spaces is
collapsed into a single space.
This problem is causing havoc with a script I have written that passes file
names to another script. Does anyone have any ideas why this is happening?
Better yet, any ideas on how to get Perl to maintain the original $infile?
:-)
Thanks,
Jeff
____________________________
Jeff Olson
Portal & E-Solutions Development Group, West Group
651.687.4858
jeff.r.olson@westgroup.com
------------------------------
Date: Tue, 28 Nov 2000 12:04:12 -0700
From: "Steve Wolfe" <steve@see-signature.com>
Subject: Tracking memory usage of data structure
Message-Id: <783109.jg6.ln@helix>
I am attempting to write a caching system, and while I'm doing the
planning, I've run into a few things that I don't have the answers to. Any
information would be greatly appreciated.
The largest head-scratcher I've hit is controlling the size of the cache.
For speed, I've planned on keeping the data in a hash of hashrefs, with the
secondary hashes having values consisting of several scalars, and another
hashref. I'm not sure how I can keep tabs on how much memory is being used
by the data structure. I suppose it would be possible to simply watch the
overall memory usage of the entire program, but it would be nicer to just
keep tabs on the hash.
Also, if anyone could point me to an online tutorial on optimized cache
expiration algorithms, I'd appreciate it. : )
steve
--
------------------
domain for replies is "codon"
------------------------------
Date: Tue, 28 Nov 2000 20:35:30 GMT
From: kliquori <kliquori@outsourceint.com>
Subject: Unmatched Single Quote
Message-Id: <9014uh$ci1$1@nnrp1.deja.com>
I'm having a problem with an "Unmatched single quote." I have an html text
field in a form that is being submitted to a Perl CGI script which then makes
an entry into a mySQL database. It works OK - except when entering an
apostrophe into the text field. Then the script complains about the
"Unmatched single quote." I've tried various means of quoting around the
variable but nothing seems to work. On the form I have: Issue: <input
type="text" name="issuefld"> I grab this field in the CGI script with: $issue
= $q->param( "issuefld" ); I try to insert it into the db in the same script
with: $dbh->do( "insert into NetworkOutage (Issue) values ('$issue')") or die
"Cannot do: " .$dbh->errstr();
Any ideas on how to deal with that ' ??
TIA . . . Kevin
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 28 Nov 2000 21:05:36 GMT
From: flint@flintslacker.com (Flint Slacker)
Subject: Re: Unmatched Single Quote
Message-Id: <3a261cc4.11415301@news.tcn.net>
Try switching the character to decimal code.
$text = "This is \" a test.";
$text =~ s/"/"/gm;
or
$text =~ s/"/"/gm;
Now when printed you get:
This is " a test.
and when displayed in html
This is " a test
I would have used a single quote but I can't remember the decimal code
for it.
Flint
On Tue, 28 Nov 2000 20:35:30 GMT, kliquori <kliquori@outsourceint.com>
wrote:
>I'm having a problem with an "Unmatched single quote." I have an html text
>field in a form that is being submitted to a Perl CGI script which then makes
>an entry into a mySQL database. It works OK - except when entering an
>apostrophe into the text field. Then the script complains about the
>"Unmatched single quote." I've tried various means of quoting around the
>variable but nothing seems to work. On the form I have: Issue: <input
>type="text" name="issuefld"> I grab this field in the CGI script with: $issue
>= $q->param( "issuefld" ); I try to insert it into the db in the same script
>with: $dbh->do( "insert into NetworkOutage (Issue) values ('$issue')") or die
>"Cannot do: " .$dbh->errstr();
>
>Any ideas on how to deal with that ' ??
>TIA . . . Kevin
>
>
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: 28 Nov 2000 21:10:49 GMT
From: trammell@nitz.hep.umn.edu (John J. Trammell)
Subject: Re: Unmatched Single Quote
Message-Id: <slrn927dh9.f5m.trammell@nitz.hep.umn.edu>
On Tue, 28 Nov 2000 20:35:30 GMT, kliquori <kliquori@outsourceint.com> wrote:
>I'm having a problem with an "Unmatched single quote." I have an html text
>field in a form that is being submitted to a Perl CGI script which then makes
>an entry into a mySQL database. It works OK - except when entering an
>apostrophe into the text field. Then the script complains about the
>"Unmatched single quote." I've tried various means of quoting around the
>variable but nothing seems to work. On the form I have: Issue: <input
>type="text" name="issuefld"> I grab this field in the CGI script with: $issue
>= $q->param( "issuefld" ); I try to insert it into the db in the same script
>with: $dbh->do( "insert into NetworkOutage (Issue) values ('$issue')") or die
>"Cannot do: " .$dbh->errstr();
That's what bind variables are for. Perldoc DBI, look for bind_param().
--
John J. Trammell
johntrammell@yahoo.com
------------------------------
Date: Tue, 28 Nov 2000 16:27:35 -0500
From: Clayton Scott <claytons@nortelnetworks.com>
Subject: Re: Unmatched Single Quote
Message-Id: <3A242347.5CFF193D@nortelnetworks.com>
kliquori wrote:
>
> I'm having a problem with an "Unmatched single quote." I have an html text
> field in a form that is being submitted to a Perl CGI script which then makes
> an entry into a mySQL database. It works OK - except when entering an
> apostrophe into the text field. Then the script complains about the
> "Unmatched single quote." I've tried various means of quoting around the
> variable but nothing seems to work. On the form I have: Issue: <input
> type="text" name="issuefld"> I grab this field in the CGI script with: $issue
> = $q->param( "issuefld" ); I try to insert it into the db in the same script
> with: $dbh->do( "insert into NetworkOutage (Issue) values ('$issue')") or die
Look up parameter binding and do() in the docs:
$dbh->do( "insert into NetworkOutage (Issue) values (?)", undef, $issue)
or die "Cannot do: " .$dbh->errstr();
or
$dbh->quote($issue);
$dbh->do( "insert into NetworkOutage (Issue) values ('$issue')") or die;
Read the docs. perldoc DBI
Clayton
--
Clayton Scott
------------------------------
Date: 28 Nov 2000 21:53:57 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Unmatched Single Quote
Message-Id: <975448075.10512@itz.pp.sci.fi>
In article <9014uh$ci1$1@nnrp1.deja.com>, kliquori wrote:
> I grab this field in the CGI script with:
>
> $issue = $q->param( "issuefld" );
>
> I try to insert it into the db in the same script with:
>
> $dbh->do( "insert into NetworkOutage (Issue) values ('$issue')")
> or die "Cannot do: " .$dbh->errstr();
[Whitespace added for readability.]
my $issue = $dbh->quote( $q->param('issuefld') );
$dbh->do("insert into NetworkOutage (Issue) values ($issue)")
or die "Cannot do: " . $dbh->errstr();
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post
something, we discuss its implications. If the discussion happens to
answer a question you've asked, that's incidental." -- nobull in clpm
------------------------------
Date: Tue, 28 Nov 2000 22:38:47 GMT
From: eggrock@my-deja.com
Subject: Using Net::FTP
Message-Id: <901c5m$iud$1@nnrp1.deja.com>
$ftp->rmdir($directory) || die "blah"; #dies on success
$ftp->rmdir($directory) && die "blah"; #dies on failure
$ftp->[other commands]($blah) || die "blah"; #dies on failure
I've only tried five or six of the calls in Net::FTP, but it seems as if
this one call (rmdir) returns the opposite of the others, as I've been
using '|| die' for the rest.
Anyone know why this would differ, or am I missing something (again)?
The only thing out of the ordinary is that the part that does the FTP is
a "require"'d script. Otherwise its:
$ftp = Net::FTP->new($host, Debug => 0) || die "$@";
$ftp->login($id, $pass) || die "blah";
$ftp->cwd($dir) || die "blah";
$ftp->rmdir($dir_to_remove) || die "blah";
$ftp->quit;
Just curious. Sorry if this is a dupe.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
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 4983
**************************************
