[18412] in Perl-Users-Digest
Perl-Users Digest, Issue: 580 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 28 14:16:42 2001
Date: Wed, 28 Mar 2001 11:16:23 -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: <985806982-v10-i580@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 28 Mar 2001 Volume: 10 Number: 580
Today's topics:
my little project completed <nospamplease@thankyou.com>
Re: Newbie help <c_clarkson@hotmail.com>
Newbie: keep on matching until end of string <dwake@Turing.Stanford.EDU>
Re: Newbie: keep on matching until end of string <stephen.gray@internode.on.net>
Re: Newbie: keep on matching until end of string (Tad McClellan)
Re: Newbie: keep on matching until end of string (Mark Jason Dominus)
Re: Newbie: keep on matching until end of string <graham.wood@iona.com>
Open webpage <stefan@wirelessopinion.com>
Re: Open webpage (Rafael Garcia-Suarez)
Re: Open webpage <stefan@wirelessopinion.com>
Re: Open webpage (Rafael Garcia-Suarez)
Re: Open webpage <stefan@wirelessopinion.com>
OT: language shootout (Perl included) <djberg96@hotmail.com>
Re: Perl and OS X <idontreadthis56@hotmail.com>
Re: Perl CGI and GD?? <gtoomey@usa.net>
Re: perl irc channel (She Devil With A Rubber Chicken)
Perl newbie <leongyc@tp.edu.sg>
Re: Perl newbie (Rafael Garcia-Suarez)
Re: Perl newbie <krahnj@acm.org>
Re: PERL <c_clarkson@hotmail.com>
Re: perl <c_clarkson@hotmail.com>
printing colons <texasreddog@yahoo.com>
Re: printing colons (Rafael Garcia-Suarez)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 28 Mar 2001 12:10:58 -0500
From: "null" <nospamplease@thankyou.com>
Subject: my little project completed
Message-Id: <99t5tl$hmm$1@bob.news.rcn.net>
Thanks to everyone in this group for their advice/guidance.
I finished my little app and it's online at
http://www.lophty.com/rebootage/rebootageX.htm.
The front-end is shockwave (just a heads up for those who despise/fear
plugin content).
Basically you can drag around all of the sprites on the stage of the
shockwave movie and pressing "enter" sends the browser to the perl script
with all of the graphic sprite file name information and locations in a
query string appended to the url. The script parses the query string and
produces a "screen capture" of the shockwave movie stage.
The number of sprite instances, their locations on the background, etc. are
not hard-coded, so you can "hack" the query string a bit.
Not amazing or glorious, but my first foray into perl.
Thanks again for your help.
=D
-brian
------------------------------
Date: Wed, 28 Mar 2001 04:34:23 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: Newbie help
Message-Id: <047BA7CE50780F65.F147483A5F75BA4D.F743C69D2D14ED62@lp.airnews.net>
John W. Krahn <krahnj@acm.org> wrote
: Mo wrote:
[snip]
: > while (<>)
: > {
: > chop;
:
: chomp;
:
: > @words = split;
:
: my @words = reverse split;
:
: if ( @words > 2 ) {
: @words = ( reverse( splice( @words, 2, @words - 2 ) ), @words[ 0, 1
: ] );
: }
:
: print "@words<br>";
This could be shortened by avoiding the reverses:
while (<DATA>) {
chomp;
my @words = split;
@words[-2, -1] = @words[-1, -2] if @words > 1;
print "@words<br>";
}
__END__
This is what I am having trouble with. How do I Reverse the
order of last two words of #each input line from the file
ass3.txt(or any file for that matter)?? Any help would br
appreciated
HTH,
Charles K. Clarkson
------------------------------
Date: 28 Mar 2001 04:53:52 -0800
From: David Wake <dwake@Turing.Stanford.EDU>
Subject: Newbie: keep on matching until end of string
Message-Id: <9nk85ayrz3.fsf@Turing.Stanford.EDU>
Hi there,
Suppose I have a string of the following form
INTERESTING_SUBSTRING1 ... trash ... INTERESTING_SUBSTRING2 ... trash ...
repeated an unknown number (n) of times.
How do I do a match so that all the INTERESTING_SUBSTRINGs end up in $1,
$2, $3, ..., $2n?
Thanks very much for your help,
David
------------------------------
Date: Wed, 28 Mar 2001 22:59:33 +0930
From: "Stephen Gray" <stephen.gray@internode.on.net>
Subject: Re: Newbie: keep on matching until end of string
Message-Id: <3ac1e653@duster.adelaide.on.net>
Obviously the interesting substrings will all have to match a pattern which
you can write as a regular expression. For example the following will search
the string for sets of three digits followed by one character, and add the
matches to an array:
$_ = "999sasjflksjf999bkljsahfjalksh999vksjhfsj999c";
while(/\d{3}./g) { push(@matches, $&) }
print join("\n", @matches);
The /'s contain the regular expression. The g after the regular expression
makes it keep matching until the end of the string is reached, then return 0
(if you don't have the g it will successfully match the first occurance of
the pattern every time the while loop iterates). The $& variable contains
the last successful match.
For more on regular expressions see perlre.
Hope this helps.
Steve
"David Wake" <dwake@Turing.Stanford.EDU> wrote in message
news:9nk85ayrz3.fsf@Turing.Stanford.EDU...
> Hi there,
>
> Suppose I have a string of the following form
>
> INTERESTING_SUBSTRING1 ... trash ... INTERESTING_SUBSTRING2 ... trash ...
>
> repeated an unknown number (n) of times.
>
> How do I do a match so that all the INTERESTING_SUBSTRINGs end up in $1,
> $2, $3, ..., $2n?
>
> Thanks very much for your help,
>
> David
------------------------------
Date: Wed, 28 Mar 2001 08:45:50 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Newbie: keep on matching until end of string
Message-Id: <slrn9c3qoe.iku.tadmc@tadmc26.august.net>
[ Jeopardectomy performed ]
Stephen Gray <stephen.gray@internode.on.net> wrote:
>"David Wake" <dwake@Turing.Stanford.EDU> wrote in message
>news:9nk85ayrz3.fsf@Turing.Stanford.EDU...
>> INTERESTING_SUBSTRING1 ... trash ... INTERESTING_SUBSTRING2 ... trash ...
>> How do I do a match so that all the INTERESTING_SUBSTRINGs end up in $1,
>> $2, $3, ..., $2n?
>Obviously the interesting substrings will all have to match a pattern
^^^^^^^^^
Not so obvious. You can take one of _two_ approaches.
Match the interesting things, use m//g.
Match the trash, use split().
The OP did not give enough information to get a real piece of code.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Mar 2001 14:20:32 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Newbie: keep on matching until end of string
Message-Id: <3ac1f330.6e9$18@news.op.net>
Keywords: emphysematous, fantasist, lead, puddly
In article <9nk85ayrz3.fsf@Turing.Stanford.EDU>,
David Wake <dwake@Turing.Stanford.EDU> wrote:
>Suppose I have a string of the following form
>INTERESTING_SUBSTRING1 ... trash ... INTERESTING_SUBSTRING2 ... trash ...
>
>How do I do a match so that all the INTERESTING_SUBSTRINGs end up in $1,
>$2, $3, ..., $2n?
Use
@matches = ($string =~ /PATTERN/g);
It puts the matches into the elements of @matches, instead of into $1,
$2, $3..., $n, which is more useful behavior anyway.
The /g is the important feature. See the manual.
------------------------------
Date: Wed, 28 Mar 2001 15:24:21 +0100
From: "Graham Wood" <graham.wood@iona.com>
Subject: Re: Newbie: keep on matching until end of string
Message-Id: <99sp8i$2cr$1@spider.iona.com>
David Wake <dwake@Turing.Stanford.EDU> wrote in message
news:9nk85ayrz3.fsf@Turing.Stanford.EDU...
> Hi there,
>
> Suppose I have a string of the following form
>
> INTERESTING_SUBSTRING1 ... trash ... INTERESTING_SUBSTRING2 ... trash ...
>
> repeated an unknown number (n) of times.
>
> How do I do a match so that all the INTERESTING_SUBSTRINGs end up in $1,
> $2, $3, ..., $2n?
use g for "global"
(@results)=($string_you_search_in =~ m/INTERESTING_SUBSTRING/g);
will copy the first occurrence of INTERESTING_SUBSTRING into $results[0],
the second into $results[1], the third into $results[2] and so on.
Graham Wood
------------------------------
Date: Wed, 28 Mar 2001 10:41:44 GMT
From: "s.petersson" <stefan@wirelessopinion.com>
Subject: Open webpage
Message-Id: <Idjw6.3980$4N4.781080@newsc.telia.net>
Hi,
Why can't I open a file on a remote server with this?
use LWP::Simple;
$webpage=get("http://someserver/index.html");
print $webpage;
I'm not behind a firewall. i get
"Use of uninitialized value in print at test.pl line 3."
I'm using Perl 5.6.0/win2000 with LWP in site/lib
Is there another way to do this?
TIA
------------------------------
Date: Wed, 28 Mar 2001 10:46:34 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Open webpage
Message-Id: <slrn9c3g8o.ajv.rgarciasuarez@rafael.kazibao.net>
s.petersson wrote in comp.lang.perl.misc:
> Hi,
>
> Why can't I open a file on a remote server with this?
>
> use LWP::Simple;
> $webpage=get("http://someserver/index.html");
> print $webpage;
>
> I'm not behind a firewall. i get
> "Use of uninitialized value in print at test.pl line 3."
Looks like your request fails and that get() returns 'undef'. Have you
provided the right URL?
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Wed, 28 Mar 2001 11:24:06 GMT
From: "s.petersson" <stefan@wirelessopinion.com>
Subject: Re: Open webpage
Message-Id: <qRjw6.1944$sk3.659850@newsb.telia.net>
> Looks like your request fails and that get() returns 'undef'. Have you
> provided the right URL?
>
S: Yes. I even tried a page on my own local server Apache server, with the
sam result. I've also stumbled across another way of doing it with the CGI
module. Like this:
use CGI;
$someURL = "http://liquidspin.dhs.org";
$hugeLongString = get( $someURL );
from http://liquidspin.dhs.org/perl/#7 but this one complains that "get()"
is an undefined subroutine. So I'm back with LWP. Again, is there another
way?
------------------------------
Date: Wed, 28 Mar 2001 12:39:27 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Open webpage
Message-Id: <slrn9c3msd.b70.rgarciasuarez@rafael.kazibao.net>
s.petersson wrote in comp.lang.perl.misc:
> > Looks like your request fails and that get() returns 'undef'. Have you
> > provided the right URL?
> >
> S: Yes. I even tried a page on my own local server Apache server, with the
> sam result.
Works for me : trying from the command-line, with a well-known URL :
$ perl -MLWP::Simple -e '$w=get("http://www.perl.com/");print $w'
<html>
<head><title>www.perl.com - DBI is OK</title> <meta name="robots" content="index,follow">
[....]
Look at the LWP::Simple manpage. The getprint method prints also an
error message in case of failure. For more avanced error handling, use
LWP::UserAgent. If your script fails for all URLs, then something in its
environment prevents it from working.
> I've also stumbled across another way of doing it with the CGI
> module. Like this:
>
> use CGI;
> $someURL = "http://liquidspin.dhs.org";
> $hugeLongString = get( $someURL );
>
> from http://liquidspin.dhs.org/perl/#7 but this one complains that "get()"
> is an undefined subroutine. So I'm back with LWP. Again, is there another
> way?
Strange idea. The CGI module does not implement an HTTP client. It's not
appropriate here. (You could have tried Make::Coffee::Italian as well.)
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Wed, 28 Mar 2001 13:26:10 GMT
From: "s.petersson" <stefan@wirelessopinion.com>
Subject: Re: Open webpage
Message-Id: <SDlw6.1956$sk3.661509@newsb.telia.net>
> For more avanced error handling, use
> LWP::UserAgent. If your script fails for all URLs, then something in its
> environment prevents it from working.
>
S: Works with LWP::UserAgent. Thanks a lot!
------------------------------
Date: Wed, 28 Mar 2001 02:39:37 GMT
From: "Daniel Berger" <djberg96@hotmail.com>
Subject: OT: language shootout (Perl included)
Message-Id: <J9cw6.409$V6.26761@typhoon.mn.mediaone.net>
Hi all,
Thought this was an interesting benchmark comparison of a hefty
cross-section of computer languages. Perl included.
http://www.bagley.org/~doug/shootout/
------------------------------
Date: Tue, 27 Mar 2001 23:06:04 -0600
From: Keep it to Usenet please <idontreadthis56@hotmail.com>
Subject: Re: Perl and OS X
Message-Id: <idontreadthis56-D5EE48.23060427032001@newsrump.sjc.telocity.net>
In article <99l654$bbv$0@216.155.33.37>,
"Scott R. Godin" <webmaster@webdragon.unmunge.net> wrote:
> In article <m1k85eq6at.fsf@halfdome.holdit.com>,
> merlyn@stonehenge.com (Randal L. Schwartz) wrote:
>
> | Yeah, emacs 20.7 even ships "out of the box" on MacOS X! Whee!
> | (So does apache with mod_ssl and mod_perl, and Perl 5.6.)
>
> woah. =8)
Is BBEdit Carbonized? If so, that'll do Perl Syntax coloring.
--
Help! I'm being held in a .sig factory.
------------------------------
Date: Wed, 28 Mar 2001 12:53:05 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: Perl CGI and GD??
Message-Id: <N9cw6.4688$45.24341@newsfeeds.bigpond.com>
I use the following to test if a job is running. The substr sets ths pid,
and grep gets the job name.
It's worthwhile to call 'daemonize', which I obtained from a FAQ, at the
start.
----------
sub running {
return map {substr($_, 9, 5)} grep(/ipo.*perl.*sleeper/,
`/bin/ps -ef`);
}
-----------
use POSIX 'setsid';
sub daemonize {
chdir '/' or die "Can't chdir to /: $!";
open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
open STDOUT, '>/dev/null'
or die "Can't write to /dev/null: $!";
defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;
setsid or die "Can't start a new session: $!";
open STDERR, '>&STDOUT' or die "Can't dup stdout: $!";
}
-----------
"Bryan Coon" <bcoon@sequenom.com> wrote in message
news:3AC127E5.BA75D283@sequenom.com...
> Is there any way to generate images directly with GD to stdout when
> using cgi in a form? I have tried several tricks, none work.
>
> What I need is to have an image generated on the fly, and embedded in a
> form. This is not working, as the only documentation I found does
> describe how to do this, ( binmode STDOUT; print STDOUT $im->png(); )
> but this only works if you have an appropriate header (Content-type:
> image/png or whatever). I am pretty sure that I HAVE to use
> multipart:form-data here. Is this possible? Maybe I have to call a
> separate script with my image tag?
>
> Mainly I want to avoid littering my drive with a ton of little images,
> each of which will be unique (yuck!). I think it is much cleaner to do
> it inline.
>
> Thanks!
> Bryan
>
------------------------------
Date: 28 Mar 2001 15:13:33 GMT
From: redsonja@liii.com (She Devil With A Rubber Chicken)
Subject: Re: perl irc channel
Message-Id: <99sv2t$4nb$1@cedar.ggn.net>
In article <tc1omneda2sta2@corp.supernews.com>,
Chris Stith <mischief@velma.motion.net> wrote:
>
>To PayPal a donation to Randal's defense in one of the most outrageous
>and dangerous cases of law in our time, look for the PayPal button
>on Randal's website, http://www.stonehenge.com/merlyn, and let's
>let people know how silly it is to prosecute someone for something
>he was hired to do.
>
>I just made a donation, so come on and jump on the badnwagon.
I made my donation in '95 as well, but I had no idea this was still
going on!
I can tell you that I also protest what they did to him by a complete
personal boycott of Intel.
I will never buy anything with a Pentium in it. Aside from the fact
that it was 1) "creatively acquired" technology and 2) is inferior
to AMD, the third reason I refuse to buy Intel if at all possible
is what they did to Randal, and this has ever been so even before
reasons 1 & 2 came to light.
Sorry for drifting OT, but I feel strongly enough about this to
vote with my wallet; and perhaps if enough others did as well, it
would hit Intel where they deserve to be hurt the most.
--
"You know you're a geek when you log onto IRC | Do not CD c
so you can tell your friend halfway across the | taunt --------P===\==/
country which HTML hex code to use for the | happy fun /_\__
color of your wedding dress." -- Me | fencer! _\ \
------------------------------
Date: Wed, 28 Mar 2001 16:48:48 +0800
From: "yc" <leongyc@tp.edu.sg>
Subject: Perl newbie
Message-Id: <3ac19fed.0@news-svr.tp.ac.sg>
Hi,
I'm new and trying to learn perl.
Below is a simple script I've created:
open (File_Handle, "File");
while (<File_Handle>)
{
@array=split (/:/, <File_Handle>);
print ("$array[0]\n");
}
Content of File
abc:xyz:ksbv
bcd:thy:njds
vbg:kerdf:,jbdv
Don't know why I got the first line being chop off from the output and the
message:
Use of uninitialized value in concatenation (.)
Thanks in advance,
YC
------------------------------
Date: Wed, 28 Mar 2001 09:10:07 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Perl newbie
Message-Id: <slrn9c3ajs.a84.rgarciasuarez@rafael.kazibao.net>
yc wrote in comp.lang.perl.misc:
> Hi,
>
> I'm new and trying to learn perl.
>
> Below is a simple script I've created:
>
> open (File_Handle, "File");
Note : you should _always_ check return values of system calls.
open (File_Handle, "File") or die "Can't open File: $!\n";
> while (<File_Handle>)
^^^^^^^^^^^^^
You read a line here (the contents of the line is stored in $_)
> {
> @array=split (/:/, <File_Handle>);
^^^^^^^^^^^^^
and you read another line here. That's the problem.
You want
@array=split (/:/, $_);
or, more concisely,
@array=split /:/;
> print ("$array[0]\n");
> }
Post-scriptum: For your enjoyment, and to enlighten you about the
obsfuscative powers of Perl's conciseness, here's a one-line version
of your script:
perl -alnF: -e 'print$F[0]' File
--
Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Wed, 28 Mar 2001 09:23:59 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Perl newbie
Message-Id: <3AC1AF42.A918DD7A@acm.org>
yc wrote:
>
> Hi,
>
> I'm new and trying to learn perl.
>
> Below is a simple script I've created:
#!/usr/bin/perl -w
use strict;
> open (File_Handle, "File");
open( File_Handle, "File" ) or die "Could not open 'File': $!";
> while (<File_Handle>)
This reads a line from "File" and stores it in the variable $_
> {
> @array=split (/:/, <File_Handle>);
Here you are reading the second line from "File". Then the loop goes
back to 'while (<File_Handle>)' and stores the third line in $_. When it
gets back here the second time there is nothing left in the file so you
get an error message.
my @array = split /:/;
> print ("$array[0]\n");
> }
>
> Content of File
>
> abc:xyz:ksbv
> bcd:thy:njds
> vbg:kerdf:,jbdv
>
> Don't know why I got the first line being chop off from the output and the
> message:
> Use of uninitialized value in concatenation (.)
John
--
use Perl;
program
fulfillment
------------------------------
Date: Wed, 28 Mar 2001 04:44:50 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: PERL
Message-Id: <6F33A0179955EB36.CD6DA14962A50F75.4FCE22C999E6D850@lp.airnews.net>
http://www.perl.com/CPAN-local/authors/Dean_Roehrich/subjects.post
------------------------------
Date: Wed, 28 Mar 2001 04:45:20 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: perl
Message-Id: <D4D53B37D61142B3.3EB0B03E4ED279E3.7CFF39B5C25FCA93@lp.airnews.net>
http://www.perl.com/CPAN-local/authors/Dean_Roehrich/subjects.post
------------------------------
Date: Wed, 28 Mar 2001 09:35:51 -0600
From: "Ken Gerdes" <texasreddog@yahoo.com>
Subject: printing colons
Message-Id: <dwnw6.96$__1.2348@eagle.america.net>
Hi,
I am having some strange trouble printing a colon in a string in Perl. This
is the part of my script that is giving me trouble:
# if the file is a java file or jsp, just copy it
if($_ =~ /\.jsp|\.java/){
$pathtofile = $_;
chop($pathtofile);
print "\/usr\/local\/bin\/scp webl\@$fromhost\:";
#print "$pathtofile\n";
} else {
}
This code reads an input file, and determines what command to print out
based on file extension. My output should look like this:
/usr/local/bin/scp webl@bedfellow:/path/to/file
Instead, I am getting this:
:[ken@binkley perl]$ bl@bedfellow
It is putting the colon at the beginning of the line, followed by a prompt,
then the rest of the stuff! I don't get this at all! I tried backslashing
the colon, putting it on a separate line, etc, but nothing works. How can I
get it to print at the end of the statement, as above?
Please e-mail me with any answers at ken@ci2i.org.
Thanks,
Ken
------------------------------
Date: Wed, 28 Mar 2001 16:04:08 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: printing colons
Message-Id: <slrn9c42s6.bu9.rgarciasuarez@rafael.kazibao.net>
Ken Gerdes wrote in comp.lang.perl.misc:
> Hi,
>
> I am having some strange trouble printing a colon in a string in Perl. This
> is the part of my script that is giving me trouble:
>
> # if the file is a java file or jsp, just copy it
> if($_ =~ /\.jsp|\.java/){
You should anchor this pattern at the end of the string :
if(/\.(jsp.java)$/){
> $pathtofile = $_;
> chop($pathtofile);
> print "\/usr\/local\/bin\/scp webl\@$fromhost\:";
You don't need backslashes before '/' and ':'.
> #print "$pathtofile\n";
> } else {
> }
>
> This code reads an input file, and determines what command to print out
> based on file extension. My output should look like this:
>
> /usr/local/bin/scp webl@bedfellow:/path/to/file
But you commented out the print "$pathtofile\n" statement.
> Instead, I am getting this:
>
> :[ken@binkley perl]$ bl@bedfellow
|||||||||||||||||||||
/usr/local/bin/scp we
Looks like your prompt overwrites your script output.
> Please e-mail me with any answers at ken@ci2i.org.
No thanks. Post Here, Read Here.
--
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 580
**************************************
