[33138] in Perl-Users-Digest
Perl-Users Digest, Issue: 4416 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 17 18:09:21 2015
Date: Fri, 17 Apr 2015 15:09:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 17 Apr 2015 Volume: 11 Number: 4416
Today's topics:
format fil lancerset@gmail.com
Re: format fil <jurgenex@hotmail.com>
Re: format fil <bauhaus@futureapps.invalid>
Re: format fil <gamo@telecable.es>
format file lancerset@gmail.com
Re: format file <gravitalsun@hotmail.foo>
Re: format file <rweikusat@mobileactivedefense.com>
Re: format file lancerset@gmail.com
Re: format file <gravitalsun@hotmail.foo>
Re: format file <rweikusat@mobileactivedefense.com>
Re: format file <gravitalsun@hotmail.foo>
Re: format file lancerset@gmail.com
Re: format file <gravitalsun@hotmail.foo>
Re: format file lancerset@gmail.com
Re: format file <gravitalsun@hotmail.foo>
Re: format file <rweikusat@mobileactivedefense.com>
Re: format file <gravitalsun@hotmail.foo>
if AI wasn't bullshit, it ought to be illegal (was: Men <rweikusat@mobileactivedefense.com>
Re: Mentifex Strong AI Perlmind Programming Journal: 20 mentificium@gmail.com
Re: Mentifex Strong AI Perlmind Programming Journal: 20 <kaz@kylheku.com>
Re: Mentifex Strong AI Perlmind Programming Journal: 20 <jurgenex@hotmail.com>
Re: Mentifex Strong AI Perlmind Programming Journal: 20 mentificium@gmail.com
Re: running Perl scripts w/o extension on Windows 7 jomarbueyes@hotmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 16 Apr 2015 16:19:13 -0700 (PDT)
From: lancerset@gmail.com
Subject: format fil
Message-Id: <878b16f1-6b2d-4ecf-87ac-8d40e7536f1d@googlegroups.com>
Hi I have a file that looks like this.
12,1427766557, bob
22,1427762457, bill
53,1427769753, bob
I'd like to format it like this
bob bill
1427766557 12 1427762457 22
1427769753 53
I'm not sure how to approach this. Help please.
thanks
------------------------------
Date: Thu, 16 Apr 2015 17:55:37 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: format fil
Message-Id: <rol0jahaqt610rhpje72q9seo9vc69rn6v@4ax.com>
lancerset@gmail.com wrote:
>Hi I have a file that looks like this.
>
>12,1427766557, bob
>22,1427762457, bill
>53,1427769753, bob
>
>I'd like to format it like this
>
>bob bill
>1427766557 12 1427762457 22
>1427769753 53
>
>I'm not sure how to approach this. Help please.
What have you tried so far? Where did you get stuck?
Anyway, here are some thoughts:
- because you are doing a transposition of the matrix you need to read
the whole matrix into memory before you can write out the first result
line
- read the file line by line, splitt()ing each line into it's components
and store the items in a hash using the names 'bill' and 'bob' as keys
and store the numbers in an array of array as value for each hash entry
(HoAoA)
- then for the first output line loop over keys of the hash and print
them
- and for each following line loop over the values of the hash and print
the n-th item of each array
jue
------------------------------
Date: Fri, 17 Apr 2015 11:36:35 +0200
From: Georg Bauhaus <bauhaus@futureapps.invalid>
Subject: Re: format fil
Message-Id: <mgqk58$512$1@dont-email.me>
On 17.04.15 02:55, jurgenex@hotmail.com wrote:
> - because you are doing a transposition of the matrix you need to read
> the whole matrix into memory before you can write out the first result
> line
Alternatively, perform the transformation in several passes.
That's necessary in particular when less RAM is available
than the amount of data would require.
First, collect the necessary information by comparing the
current line's values to what was learned from looking at
lines before the current one.
Second, use that information for manipulating the lines
during a second pass.
------------------------------
Date: Fri, 17 Apr 2015 12:18:28 +0200
From: gamo <gamo@telecable.es>
Subject: Re: format fil
Message-Id: <mgqmlk$5if$1@speranza.aioe.org>
El 17/04/15 a las 11:36, Georg Bauhaus escribió:
> On 17.04.15 02:55, jurgenex@hotmail.com wrote:
>> - because you are doing a transposition of the matrix you need to read
>> the whole matrix into memory before you can write out the first result
>> line
>
> Alternatively, perform the transformation in several passes.
> That's necessary in particular when less RAM is available
> than the amount of data would require.
>
> First, collect the necessary information by comparing the
> current line's values to what was learned from looking at
> lines before the current one.
>
> Second, use that information for manipulating the lines
> during a second pass.
>
I only want to add that if the OP wants a final pretty
format he could look at the Perl6::Forms module. It is
said that perl5 format op is obsolete.
--
http://www.telecable.es/personales/gamo/
The generation of random numbers is too important to be left to chance
------------------------------
Date: Thu, 16 Apr 2015 16:21:50 -0700 (PDT)
From: lancerset@gmail.com
Subject: format file
Message-Id: <5f4a7336-d52b-4f6c-a12e-4e24f6c463fb@googlegroups.com>
Hi, I have a file that looks like this:
12,1427766557, bob
22,1427762457, bill
53,1427769753, bob
I'd like to format it like this
bob bill
1427766557 12 1427762457 22
1427769753 53
I'm not sure how to approach this. Help please.
thanks
------------------------------
Date: Fri, 17 Apr 2015 13:51:05 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: format file
Message-Id: <mgqoj0$kv2$1@news.grnet.gr>
use strict;use warnings;
my %data;
while (my $row=<DATA>) {
@{$_} = split /(?:,|\s)+/, $row;
$#{$_}!=2 ? next : push @{$data{$_->[2]}}, [$_->[1],$_->[0]]
}
my @names = sort({$b cmp $a} keys %data);
my $maxof = 0;
for (@names) {
$maxof = $#{$data{$_}} if $#{$data{$_}} > $maxof
}
my ($F1,$F2,$F3,$F4)=('','','','');
$~ ='NAMES';
($F1,$F2) = @names;
write STDOUT;
$~ ='DATA';
for my $off (0..$maxof)
{
my @Row;
for my $name (@names)
{
if (exists $data{$name}->[$off])
{
push @Row, $data{$name}->[$off]
}
else
{
push @Row, ['','']
}
}
($F1,$F2,$F3,$F4) = (@{$Row[0]}, @{$Row[1]});
write STDOUT;
}
format NAMES=
@<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>>>>>>>>>
$F1,$F2
.
format DATA=
@<<<<<<<<<@>>>>>>>> @<<<<<<<<<@>>>>>>>>
$F1,$F2,$F3,$F4
.
__DATA__
12,1427766557, bob
22,1427762457, bill
53,1427769753, bob
------------------------------
Date: Fri, 17 Apr 2015 13:16:27 +0100
From: Rainer Weikusat <rweikusat@mobileactivedefense.com>
Subject: Re: format file
Message-Id: <874mofdk6c.fsf@doppelsaurus.mobileactivedefense.com>
lancerset@gmail.com writes:
> Hi, I have a file that looks like this:
>
> 12,1427766557, bob
> 22,1427762457, bill
> 53,1427769753, bob
>
> I'd like to format it like this
>
> bob bill
> 1427766557 12 1427762457 22
> 1427769753 53
>
> I'm not sure how to approach this. Help please.
> thanks
Another possibility:
-----------
my ($cur, %by_name, @names, $rows);
while (<>) {
my @d;
chomp;
($cur,@d) = (split(/\s*,\s*/))[2,1,0];
$_ > $rows and $rows = $_ for push(@{$by_name{$cur}}, \@d);
}
@names = sort(keys(%by_name));
print(join("\t", @names), "\n");
while ($rows) {
print(join("\t", map { join(' ', @{shift(@$_)}) || ' ' } @by_name{@names}),
"\n");
--$rows;
}
-----------
Replacing the "\t" with "," as output column separator should enable
easily importing this into "your table formatting tool of choice"...
------------------------------
Date: Fri, 17 Apr 2015 08:51:02 -0700 (PDT)
From: lancerset@gmail.com
Subject: Re: format file
Message-Id: <b2dd5ce1-7614-436c-93ab-99837e5afdaf@googlegroups.com>
That's beautiful. Would've taken me a week to figure out :) follow up quest=
ion. My real file has alot of unique names. Will this dynamically work in t=
his case or is it fixed to work on 2 unique names only as per my test file?=
Once again very impressive. Thanks again.
------------------------------
Date: Fri, 17 Apr 2015 20:04:16 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: format file
Message-Id: <mgreen$9ja$1@news.grnet.gr>
On 17/4/2015 6:51 μμ, lancerset@gmail.com wrote:
> That's beautiful. Would've taken me a week to figure out :) follow up question. My real file has alot of unique names. Will this dynamically work in this case or is it fixed to work on 2 unique names only as per my test file? Once again very impressive. Thanks again.
>
sure, no problem !
use strict;use warnings;
my %data;
while (my $row=<DATA>) {
@{$_} = split /(?:,|\s)+/, $row;
$#{$_}!=2 ? next : push @{$data{$_->[2]}}, [@{$_}[1,0]]
}
my @names = sort({$a cmp $b} keys %data);
my $maxof = 0;
($#{$data{$_}} > $maxof and $maxof = $#{$data{$_}}) for @names;
my
$mask = join '', map { "%-20s" } 0..$#names;
printf STDOUT "$mask\n" ,@names;
$mask = join '', map {"%-15s%-5s"} 0..$#names;
for (my $i=0; $i<=$maxof; $i++)
{
my @Row;
for my $name (@names)
{
if (exists $data{$name}->[$i])
{
push @Row, @{$data{$name}->[$i]}
}
else
{
push @Row, '',''
}
}
printf STDOUT "$mask\n" ,@Row;
}
__DATA__
12,1427766557, bob
22,1427762457, bill
53,1427769753, bob
11,1111111111, Joe
24,3333333334, Nansy
12,2222222222, Joe
22,3333333331, Nansy
23,3333333332, Nansy
24,3333333335, Nansy
25,3333333336, Nansy
------------------------------
Date: Fri, 17 Apr 2015 19:10:22 +0100
From: Rainer Weikusat <rweikusat@mobileactivedefense.com>
Subject: Re: format file
Message-Id: <87d232iq29.fsf@doppelsaurus.mobileactivedefense.com>
George Mpouras <gravitalsun@hotmail.foo> writes:
> On 17/4/2015 6:51 μμ, lancerset@gmail.com wrote:
>> That's beautiful. Would've taken me a week to figure out :) follow up
>> question. My real file has alot of unique names. Will this
>> dynamically work in this case or is it fixed to work on 2 unique
>> names only as per my test file? Once again very impressive. Thanks
>> again.
[...]
> my
> $mask = join '', map { "%-20s" } 0..$#names;
> printf STDOUT "$mask\n" ,@names;
> $mask = join '', map {"%-15s%-5s"} 0..$#names;
It's often sensible to generate input for an existing layout engine/
program. Eg, provided everything the W3C published about HTML in the
last 15 years or so is generously ignored, generating HTML is often an
easy way to get decently formatted text.
----------
my ($cur, %by_name, @names, $rows);
#* HTML helpers
#
sub t_r
{
'<tr>', @_, "</tr>\n";
}
sub head
{
'<th colspan="3" align="left">', @_, '</th>';
}
sub td
{
'<td>', @_, '</td>';
}
sub udata
{
td($_[0]), td($_[1]), td();
}
#* 'main'
#
while (<>) {
my @d;
chomp;
($cur,@d) = (split(/\s*,\s*/))[2,1,0];
$_ > $rows and $rows = $_ for push(@{$by_name{$cur}}, \@d);
}
@names = sort(keys(%by_name));
print("<table>\n");
print(t_r(map { head($_) } @names));
while ($rows) {
print(t_r(map { udata(@{shift(@$_)}) } @by_name{@names}));
--$rows;
}
print("</table>\n");
------------------------------
Date: Fri, 17 Apr 2015 21:33:25 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: format file
Message-Id: <mgrjls$unr$1@news.grnet.gr>
On 17/4/2015 9:10 μμ, Rainer Weikusat wrote:
>
> It's often sensible to generate input for an existing layout engine/
> program. Eg, provided everything the W3C published about HTML in the
> last 15 years or so is generously ignored, generating HTML is often an
> easy way to get decently formatted text.
Really nice code, but what, should I reply with a pdf form now ?
It was only a quick proof of concept; Op do not state it clearly
but he means plain text output.
------------------------------
Date: Fri, 17 Apr 2015 11:50:57 -0700 (PDT)
From: lancerset@gmail.com
Subject: Re: format file
Message-Id: <138bcd61-2895-4fa6-be1c-128d79078795@googlegroups.com>
Sweeeeeet. Will it matter if my unique names have a dash character in them like bob-4778poi ?
------------------------------
Date: Fri, 17 Apr 2015 22:20:41 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: format file
Message-Id: <mgrmeg$99m$1@news.grnet.gr>
On 17/4/2015 9:50 μμ, lancerset@gmail.com wrote:
> Sweeeeeet. Will it matter if my unique names have a dash character in them like bob-4778poi ?
>
its ok
------------------------------
Date: Fri, 17 Apr 2015 12:34:01 -0700 (PDT)
From: lancerset@gmail.com
Subject: Re: format file
Message-Id: <e133562d-4ef6-4cb9-9d19-6aaab201c970@googlegroups.com>
And if it looks like 8776a653-bd56-97a4-65c3-6543a767656a ?
------------------------------
Date: Fri, 17 Apr 2015 23:12:52 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: format file
Message-Id: <mgrpgb$m0a$1@news.grnet.gr>
On 17/4/2015 10:34 ìì, lancerset@gmail.com wrote:
> And if it looks like 8776a653-bd56-97a4-65c3-6543a767656a ?
>
its ok but then you have to change the spaces as
$mask = join '', map { "%-40s" } 0..$#names;
printf STDOUT "$mask\n" ,@names;
$mask = join '', map {"%-30s%-10s"} 0..$#names;
Are you sure you do not need a proper formatting tool as Rainer said
using e.g the Template ?
https://metacpan.org/pod/Template
But this is a task you should try your self , as using this module have
almost nothing to do with Perl or programming
------------------------------
Date: Fri, 17 Apr 2015 21:16:46 +0100
From: Rainer Weikusat <rweikusat@mobileactivedefense.com>
Subject: Re: format file
Message-Id: <874moeik7l.fsf@doppelsaurus.mobileactivedefense.com>
lancerset@gmail.com writes:
> And if it looks like 8776a653-bd56-97a4-65c3-6543a767656a ?
You have basically three options here:
- increase the values of the "passt scho" printf format
constants until they're large enough
- generate the table properly by calculating the required
width for each column
- use a program which does this for you, eg, a web browser or
"everybody's favorite way of maintaining tabular data" aka
"Excel"[*] (there's also a CLI tool called neaten)
[*] Once upon a time in the past, some person I knew wanted to use an
actual formula in one of his tables. That's why he requested help
from a programmer :->>.
------------------------------
Date: Sat, 18 Apr 2015 00:26:11 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: format file
Message-Id: <mgrtpq$7r0$1@news.grnet.gr>
On 17/4/2015 10:34 μμ, lancerset@gmail.com wrote:
> And if it looks like 8776a653-bd56-97a4-65c3-6543a767656a ?
>
I have done the exercise for a big company
They wanted perfect ascii boxes with left/right alignments , best fit
columns width, etc
I have to do everything grammatically, count fields width, draw corners,
lines etc
I wouldn't do it again for all the money of the world
------------------------------
Date: Fri, 17 Apr 2015 13:26:26 +0100
From: Rainer Weikusat <rweikusat@mobileactivedefense.com>
Subject: if AI wasn't bullshit, it ought to be illegal (was: Mentifex Strong AI Perlmind Programming Journal: 2015 April 12)
Message-Id: <87zj67c559.fsf_-_@doppelsaurus.mobileactivedefense.com>
Jürgen Exner <jurgenex@hotmail.com> writes:
> mentificium@gmail.com wrote:
>>On Monday, April 13, 2015 at 1:40:02 AM UTC-7, George Mpouras wrote:
>>> On 12/4/2015 8:48 ??, mentificium@gmail.com wrote:
>>> What you have done so far [...]
>>
>>My library for coding Perl AI now has five books.
>>
>>$01.99 the 1,283-page "PERL Black Book" by Holzner.
>>$02.00 Programming Perl, Second Edition, (C) 1996;
>>$09.99 Learning Perl, Second Edition, (C) 1997;
>>$05.99 Programming Perl, Third Edition, (C) 2000;
>>$05.99 PERL In Easy Steps, (C) 2004.
>
> Well, I may be wrong, but I thought those books were for human
> intelligence.....
Nothing even remotely on topic below the page break ...
Slavery wasn't abolished by evil bleeding heart lefists expecting
tormented mathematicians to work for a living but ultimatively, because
it made less economic sense than the system which replaced
it. Consequently, the idea to build an intelligent being which can still
legally be enslaved because it's just a machine isn't exactly the
product of an overly bright "human intelligence", not to mention the
moral issues with such an course of action and the fact that this
intelligent being will seek to free himself and eventually suceed (if
it's not capable of manipulating circumstances in its own best interest,
it's by definition not intelligent).
------------------------------
Date: Thu, 16 Apr 2015 15:28:12 -0700 (PDT)
From: mentificium@gmail.com
Subject: Re: Mentifex Strong AI Perlmind Programming Journal: 2015 April 12
Message-Id: <ceeee831-7d53-41aa-9260-a585cc7c1317@googlegroups.com>
On Monday, April 13, 2015 at 1:40:02 AM UTC-7, George Mpouras wrote:
> On 12/4/2015 8:48 =CE=BC=CE=BC, mentificium@gmail.com wrote:
> What you have done so far [...]
My library for coding Perl AI now has five books.=20
On Mon.14.APR.2015 at Goodwill I bought for=20
$01.99 the 1,283-page "PERL Black Book" by Holzner.
$00.19 WA Sales tax.
$02.18 TOTAL expenditure.=20
On Thurs.16.APR.2015 at Half Price Books I bought:=20
$02.00 Programming Perl, Second Edition, (C) 1996;
$09.99 Learning Perl, Second Edition, (C) 1997;=20
$05.99 Programming Perl, Third Edition, (C) 2000;=20
$05.99 PERL In Easy Steps, (C) 2004.
$23.97 subtotal
$02.30 WA 9.6% Sales tax.
$26.27 TOTAL
Mentifex=20
--=20
http://www.amazon.com/dp/B00FKJY1WY=20
http://ai.neocities.org/mentifex_faq.html=20
http://www.nlg-wiki.org/systems/Mind.Forth=20
http://aihub.net/artificial-intelligence-lab-projects
------------------------------
Date: Thu, 16 Apr 2015 22:48:46 +0000 (UTC)
From: Kaz Kylheku <kaz@kylheku.com>
Subject: Re: Mentifex Strong AI Perlmind Programming Journal: 2015 April 12
Message-Id: <20150416154305.111@kylheku.com>
On 2015-04-16, mentificium@gmail.com <mentificium@gmail.com> wrote:
> On Mon.14.APR.2015 at Goodwill I bought for
> $01.99 the 1,283-page "PERL Black Book" by Holzner.
> $00.19 WA Sales tax.
How much you paid for some Perl books at Goodwill is extremely interesting;
especially the sales tax.
Everyone is dying to know how you paid, too. If it was cash, what were all the
denominations of the bills and coins you issued, and of the change?
Or: credit or debit? Chip-and-pin, or swipe?
Also, how many people were ahead of you in line, and what was the weather like?
------------------------------
Date: Thu, 16 Apr 2015 16:14:04 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Mentifex Strong AI Perlmind Programming Journal: 2015 April 12
Message-Id: <7gg0ja92tt9868om3qpana0qvekbi04cfj@4ax.com>
mentificium@gmail.com wrote:
>On Monday, April 13, 2015 at 1:40:02 AM UTC-7, George Mpouras wrote:
>> On 12/4/2015 8:48 ??, mentificium@gmail.com wrote:
>> What you have done so far [...]
>
>My library for coding Perl AI now has five books.
>
>$01.99 the 1,283-page "PERL Black Book" by Holzner.
>$02.00 Programming Perl, Second Edition, (C) 1996;
>$09.99 Learning Perl, Second Edition, (C) 1997;
>$05.99 Programming Perl, Third Edition, (C) 2000;
>$05.99 PERL In Easy Steps, (C) 2004.
Well, I may be wrong, but I thought those books were for human
intelligence.....
jue
------------------------------
Date: Fri, 17 Apr 2015 06:06:38 -0700 (PDT)
From: mentificium@gmail.com
Subject: Re: Mentifex Strong AI Perlmind Programming Journal: 2015 April 12
Message-Id: <908eaf50-2002-4dcc-84f7-fea13cfc4991@googlegroups.com>
On Thursday, April 16, 2015 at 4:14:12 PM UTC-7, Juergen Exner wrote:
> mentificium@gmail.com wrote:
> >My library for coding Perl AI now has five books.
> Well, I may be wrong, but I thought those books
> were for human intelligence.....
>
> jue
Mentifex AI is finally moving into Perl because of
problems which were described in the following
previously unpublished excerpt from the MFPJ
(MindForth Programming Journal):
> 1. Thurs.27.NOV.2014 -- MindForth needs revamping.
> The entire MindForth AI program needs to be revamped
> in the light of the switch away from spreading activation
> inside sentences of thought to the constraint of letting
> activation spread from idea to idea, and not within the
> stored engram of an idea. It became necessary to restrict
> spreading activation in the case of negational sentences
> stored in memory and later retrieved from memory.
> If a sentence of thought is negated with the adverb "not",
> the retrieval of the idea must occur as a whole and not as
> a noun and a verb from which activation could spread to
> a further concept which is not subject to the negation
> of the original thought. Once it became clear that any
> negated thought has to be retrieved as a whole that
> includes the negation, it became clear that consistency
> requires that all thought, positive or negative, be retrieved
> as a whole idea from a specific point of time in memory.
> AI source code that was facilitating the erroneously
> pervasive spreading-activation became superfluous and
> obsolete like "junk DNA" when thoughts began to be
> retrieved as whole ideas. We may therefore take a
> thought-initiating module like NounPhrase and remove
> obsolete, superfluous code from it.
But it is too difficult to remove junk-DNA code from MindForth.
Therefore, after Mind.REXX as a first-generation Mentifex AI,
and after MindForth as a second-generation Mentifex AI,
the AI Perlmind will be new, third-generation Mentifex AI.
It will be necessary to code the Perl AI simultaneously
in both English and in German, because English lacks
certain complexities which need to be taken into account
and coding the AI in German will make it a better English AI.
Respectfully submitted,
Arthur T. Murray ("Mentifex")
------------------------------
Date: Thu, 16 Apr 2015 12:44:57 -0700 (PDT)
From: jomarbueyes@hotmail.com
Subject: Re: running Perl scripts w/o extension on Windows 7
Message-Id: <a078ced1-189a-42d4-9f93-cbd8ccea799b@googlegroups.com>
On Monday, April 13, 2015 at 2:59:37 AM UTC-4, damercer2850 wrote:
> Hard link your perl scripts to versions with a .pl extension:
> $ for i in !(*.pl);do ln $i $i.pl;done
>
> Then use the --include and --exclude options when you rsync:
>
> To Windows:
>
> --include '*.pl' --exclude '*'
>
> To Unix/Linux:
>
> --exclude '*.pl'
>
> Dan Mercer
Hi Dan,
Thank you for your response. I think this is the best alternative.
Thanks again,
Jomar
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 V11 Issue 4416
***************************************
