[11368] in Perl-Users-Digest
Perl-Users Digest, Issue: 4968 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 26 11:27:29 1999
Date: Fri, 26 Feb 99 08:22:00 -0800
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, 26 Feb 1999 Volume: 8 Number: 4968
Today's topics:
FAQ 4.46: How do I process/modify each element of an ar <perlfaq-suggestions@perl.com>
FAQ 4.47: How do I select a random element from an arra <perlfaq-suggestions@perl.com>
FAQ 4.48: How do I permute N elements of a list? <perlfaq-suggestions@perl.com>
FAQ 4.49: How do I sort an array by (anything)? <perlfaq-suggestions@perl.com>
FAQ 4.50: How do I manipulate arrays of bits? <perlfaq-suggestions@perl.com>
Re: FAQ 4.50: How do I manipulate arrays of bits? (Dan Wilga)
Re: FAQ 4.50: How do I manipulate arrays of bits? (Dan Wilga)
Re: FAQ 4.50: How do I manipulate arrays of bits? (Larry Rosler)
FAQ 4.51: Why does defined() return true on empty array <perlfaq-suggestions@perl.com>
FAQ 4.52: How do I process an entire hash? <perlfaq-suggestions@perl.com>
Re: FAQ 4.53: What happens if I add or remove keys from <mpersico@erols.com>
FAQ 4.53: What happens if I add or remove keys from a h <perlfaq-suggestions@perl.com>
Re: FAQ 4.53: What happens if I add or remove keys from <tchrist@mox.perl.com>
Re: FAQ 4.53: What happens if I add or remove keys from (Benjamin Franz)
Re: FAQ 4.53: What happens if I add or remove keys from (Benjamin Franz)
Re: FAQ 4.53: What happens if I add or remove keys from <zenin@bawdycaste.org>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Feb 1999 09:12:24 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.46: How do I process/modify each element of an array?
Message-Id: <36d181e8@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
How do I process/modify each element of an array?
Use `for'/`foreach':
for (@lines) {
s/foo/bar/; # change that word
y/XZ/ZX/; # swap those letters
}
Here's another; let's compute spherical volumes:
for (@volumes = @radii) { # @volumes has changed parts
$_ **= 3;
$_ *= (4/3) * 3.14159; # this will be constant folded
}
If you want to do the same thing to modify the values of the hash, you
may not use the `values' function, oddly enough. You need a slice:
for $orbit ( @orbits{keys %orbits} ) {
($orbit **= 3) *= (4/3) * 3.14159;
}
--
You have made an excellent hit on the UNIX.--More--
------------------------------
Date: 22 Feb 1999 10:12:27 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.47: How do I select a random element from an array?
Message-Id: <36d18ffb@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
How do I select a random element from an array?
Use the rand() function (see the "rand" entry in the perlfunc manpage):
# at the top of the program:
srand; # not needed for 5.004 and later
# then later on
$index = rand @array;
$element = $array[$index];
Make sure you *only call srand once per program, if then*. If you are
calling it more than once (such as before each call to rand), you're
almost certainly doing something wrong.
--
And just as you're under no obligation to publish your source code
to please me, I'm under no obligation to help you hide it.
--Russ Allbery (rra@cs.stanford.edu)
------------------------------
Date: 22 Feb 1999 11:12:30 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.48: How do I permute N elements of a list?
Message-Id: <36d19e0e@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
How do I permute N elements of a list?
Here's a little program that generates all permutations of all the words
on each line of input. The algorithm embodied in the permute() function
should work on any list:
#!/usr/bin/perl -n
# tsc-permute: permute each word of input
permute([split], []);
sub permute {
my @items = @{ $_[0] };
my @perms = @{ $_[1] };
unless (@items) {
print "@perms\n";
} else {
my(@newitems,@newperms,$i);
foreach $i (0 .. $#items) {
@newitems = @items;
@newperms = @perms;
unshift(@newperms, splice(@newitems, $i, 1));
permute([@newitems], [@newperms]);
}
}
}
--
I think it's a new feature. Don't tell anyone it was an accident. :-)
--Larry Wall on s/foo/bar/eieio in <10911@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 22 Feb 1999 12:12:33 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.49: How do I sort an array by (anything)?
Message-Id: <36d1ac21@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
How do I sort an array by (anything)?
Supply a comparison function to sort() (described in the "sort" entry in
the perlfunc manpage):
@list = sort { $a <=> $b } @list;
The default sort function is cmp, string comparison, which would sort
`(1, 2, 10)' into `(1, 10, 2)'. `<=>', used above, is the numerical
comparison operator.
If you have a complicated function needed to pull out the part you want
to sort on, then don't do it inside the sort function. Pull it out
first, because the sort BLOCK can be called many times for the same
element. Here's an example of how to pull out the first word after the
first number on each item, and then sort those words case-insensitively.
@idx = ();
for (@data) {
($item) = /\d+\s*(\S+)/;
push @idx, uc($item);
}
@sorted = @data[ sort { $idx[$a] cmp $idx[$b] } 0 .. $#idx ];
Which could also be written this way, using a trick that's come to be
known as the Schwartzian Transform:
@sorted = map { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map { [ $_, uc((/\d+\s*(\S+)/) [0]) ] } @data;
If you need to sort on several fields, the following paradigm is useful.
@sorted = sort { field1($a) <=> field1($b) ||
field2($a) cmp field2($b) ||
field3($a) cmp field3($b)
} @data;
This can be conveniently combined with precalculation of keys as given
above.
See http://www.perl.com/CPAN/doc/FMTEYEWTK/sort.html for more about this
approach.
See also the question below on sorting hashes.
--
"Software engineering phase plans are something you make so your manager
can explain to his manager how things are going"
--Rob Pike (On the subject of managerial "bullshit")
------------------------------
Date: 22 Feb 1999 13:13:00 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.50: How do I manipulate arrays of bits?
Message-Id: <36d1ba4c@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
How do I manipulate arrays of bits?
Use pack() and unpack(), or else vec() and the bitwise operations.
For example, this sets $vec to have bit N set if $ints[N] was set:
$vec = '';
foreach(@ints) { vec($vec,$_,1) = 1 }
And here's how, given a vector in $vec, you can get those bits into your
@ints array:
sub bitvec_to_list {
my $vec = shift;
my @ints;
# Find null-byte density then select best algorithm
if ($vec =~ tr/\0// / length $vec > 0.95) {
use integer;
my $i;
# This method is faster with mostly null-bytes
while($vec =~ /[^\0]/g ) {
$i = -9 + 8 * pos $vec;
push @ints, $i if vec($vec, ++$i, 1);
push @ints, $i if vec($vec, ++$i, 1);
push @ints, $i if vec($vec, ++$i, 1);
push @ints, $i if vec($vec, ++$i, 1);
push @ints, $i if vec($vec, ++$i, 1);
push @ints, $i if vec($vec, ++$i, 1);
push @ints, $i if vec($vec, ++$i, 1);
push @ints, $i if vec($vec, ++$i, 1);
}
} else {
# This method is a fast general algorithm
use integer;
my $bits = unpack "b*", $vec;
push @ints, 0 if $bits =~ s/^(\d)// && $1;
push @ints, pos $bits while($bits =~ /1/g);
}
return \@ints;
}
This method gets faster the more sparse the bit vector is. (Courtesy of
Tim Bunce and Winfried Koenig.)
Here's a demo on how to use vec():
# vec demo
$vector = "\xff\x0f\xef\xfe";
print "Ilya's string \\xff\\x0f\\xef\\xfe represents the number ",
unpack("N", $vector), "\n";
$is_set = vec($vector, 23, 1);
print "Its 23rd bit is ", $is_set ? "set" : "clear", ".\n";
pvec($vector);
set_vec(1,1,1);
set_vec(3,1,1);
set_vec(23,1,1);
set_vec(3,1,3);
set_vec(3,2,3);
set_vec(3,4,3);
set_vec(3,4,7);
set_vec(3,8,3);
set_vec(3,8,7);
set_vec(0,32,17);
set_vec(1,32,17);
sub set_vec {
my ($offset, $width, $value) = @_;
my $vector = '';
vec($vector, $offset, $width) = $value;
print "offset=$offset width=$width value=$value\n";
pvec($vector);
}
sub pvec {
my $vector = shift;
my $bits = unpack("b*", $vector);
my $i = 0;
my $BASE = 8;
print "vector length in bytes: ", length($vector), "\n";
@bytes = unpack("A8" x length($vector), $bits);
print "bits are: @bytes\n\n";
}
--
: I've heard that there is a shell (bourne or csh) to perl filter, does
: anyone know of this or where I can get it?
Yeah, you filter it through Tom Christiansen. :-) --Larry Wall
------------------------------
Date: Tue, 23 Feb 1999 15:23:18 -0500
From: dwilgaREMOVE@mtholyoke.edu (Dan Wilga)
Subject: Re: FAQ 4.50: How do I manipulate arrays of bits?
Message-Id: <dwilgaREMOVE-2302991523180001@wilga.mtholyoke.edu>
In article <36d1ba4c@csnews>, perlfaq-suggestions@perl.com (Tom and Gnat) wrote:
> (This excerpt from perlfaq4 - Data Manipulation
> ($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
> part of the standard set of documentation included with every
> valid Perl distribution, like the one on your system.
> See also http://language.perl.com/newdocs/pod/perlfaq4.html
> if your negligent system adminstrator has been remiss in his duties.)
>
> How do I manipulate arrays of bits?
>
> Use pack() and unpack(), or else vec() and the bitwise operations.
>
> For example, this sets $vec to have bit N set if $ints[N] was set:
>
> $vec = '';
Sorry, but I couldn't resist the temptation to point out this typo. :-)
Dan Wilga dwilgaREMOVE@mtholyoke.edu
** Remove the REMOVE in my address address to reply reply **
------------------------------
Date: Tue, 23 Feb 1999 16:09:54 -0500
From: dwilgaREMOVE@mtholyoke.edu (Dan Wilga)
Subject: Re: FAQ 4.50: How do I manipulate arrays of bits?
Message-Id: <dwilgaREMOVE-2302991609540001@wilga.mtholyoke.edu>
> >
> > For example, this sets $vec to have bit N set if $ints[N] was set:
> >
> > $vec = '';
>
> Sorry, but I couldn't resist the temptation to point out this typo. :-)
>
> Dan Wilga dwilgaREMOVE@mtholyoke.edu
> ** Remove the REMOVE in my address address to reply reply **
Oh my goodness. It's this proportional font I'm using. That looks like one
double-quote instead of two singles. I'm sorry about the false report.
Dan Wilga dwilgaREMOVE@mtholyoke.edu
** Remove the REMOVE in my address address to reply reply **
------------------------------
Date: Tue, 23 Feb 1999 17:23:47 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: FAQ 4.50: How do I manipulate arrays of bits?
Message-Id: <MPG.113cf481194ce54989680@nntp.hpl.hp.com>
In article <dwilgaREMOVE-2302991609540001@wilga.mtholyoke.edu>, on Tue,
23 Feb 1999 16:09:54 -0500 dwilgaREMOVE@mtholyoke.edu says...
...
> > > $vec = '';
> >
> > Sorry, but I couldn't resist the temptation to point out this typo. :-)
...
> Oh my goodness. It's this proportional font I'm using. That looks like one
> double-quote instead of two singles. I'm sorry about the false report.
This is the reason I make an exception for the null string to the 'best
practice' of using single quotes when no interpolation is desired.
$vec = "";
is hard to misconstrue no matter what font you're using. Four chicken
scratches are better than two.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 22 Feb 1999 14:13:11 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.51: Why does defined() return true on empty arrays and hashes?
Message-Id: <36d1c867@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
Why does defined() return true on empty arrays and hashes?
The short story is that you should probably only use defined on scalars
or functions, not on aggregates (arrays and hashes). See the "defined"
entry in the perlfunc manpage in the 5.004 release or later of Perl for
more detail.
--
"Bjarne Strousup was sharing a cubicle with me at the time he was creating
C++. That's part of the reason why I don't use it." --Rob Pike
------------------------------
Date: 22 Feb 1999 15:13:15 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.52: How do I process an entire hash?
Message-Id: <36d1d67b@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
How do I process an entire hash?
Use the each() function (see the "each" entry in the perlfunc manpage)
if you don't care whether it's sorted:
while ( ($key, $value) = each %hash) {
print "$key = $value\n";
}
If you want it sorted, you'll have to use foreach() on the result of
sorting the keys as shown in an earlier question.
--
Does the same as the system call of that name.
If you don't know what it does, don't worry about it.
--Larry Wall in the perl man page regarding chroot(2)
------------------------------
Date: Wed, 24 Feb 1999 21:43:28 -0500
From: "Matthew O. Persico" <mpersico@erols.com>
Subject: Re: FAQ 4.53: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <36D4B8D0.EA2380B4@erols.com>
And, you get the occasional flame attack, which can result in some humor
and entertainment.
Eric Bohlman wrote:
>
> Bart Lateur <bart.lateur@skynet.be> wrote:
> : Zenin wrote:
>
> : >Tom Christiansen <tchrist@mox.perl.com> wrote:
>
> : >: Thank you very much. And you're right -- the duplicate questions are
> : >: going down, and I expect this to just get better. Now the group is
> : >: filled with answers and discussion instead of the same tired questions.
> : >: Isn't that great?
> : >
> : > Yep!
>
> : And it's a good time to brush off on the stuff you haven't looked at in
> : months.
>
> Furthermore, the posting of the FAQ sections allows them to receive more
> peer review. Misunderstandings, confusing wording, etc. get critiqued in
> a forum where people are likely to point them out. The peer-reviewed
> nature of Perl's documentation is one of its greatest strengths.
--
Matthew O. Persico
http://www.erols.com/mpersico
http://www.digistar.com/bzip2
------------------------------
Date: 22 Feb 1999 16:13:17 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 4.53: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <36d1e48d@csnews>
(This excerpt from perlfaq4 - Data Manipulation
($Revision: 1.43 $, $Date: 1999/01/26 09:57:23 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq4.html
if your negligent system adminstrator has been remiss in his duties.)
What happens if I add or remove keys from a hash while iterating over it?
Don't do that.
--
"You're flame-proof in the same sense that certain plastics are fluorine-proof."
--Larry Wall
------------------------------
Date: 23 Feb 1999 11:15:01 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: FAQ 4.53: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <36d2f025@csnews>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
snowhare@long-lake.nihongo.org (Benjamin Franz) writes:
:In article <36d1e48d@csnews>,
:Tom Christiansen <perlfaq-suggestions@perl.com> wrote:
:> What happens if I add or remove keys from a hash while iterating over it?
:> Don't do that.
:That's a fucking stupid answer. *IT DOESN'T ANSWER THE QUESTION*.
Why, thank you so very much for your examplary message filled with
courteous and helpful input! I will be sure to amend the next version
so that its tone and intent more closely align with your kind request.
Q: What happens if I add or remove keys from a hash while iterating
over it?
A: You break shit, you idiot. What the hell were you thinking?
And if you don't like this answer, please spam
snowhare@long-lake.nihongo.org (Benjamin Franz) because it was
his idea.
:Second, just post the damn faq files. Chopping them into a billion itty-bitty
:pieces that are then flooded to the group is annoying as hell.
Tough noogies. After the first dozen and a half legitimate and
heart-felt thank-yous, I knew that this had been the right thing to do.
Nobody reads the FAQs. They're too big. They are ignored.
Just look at how many people are actually getting good use now.
Doing it this way gives people a chance to look at things separately.
If this bothers you, then you obviously need to take some remedial
lessons in basic operations of a newsreader. Not to mention in
the social graces.
--tom
--
"Lisp has all the visual appeal of oatmeal with fingernail clippings mixed in."
--Larry Wall
------------------------------
Date: Tue, 23 Feb 1999 17:31:19 GMT
From: snowhare@long-lake.nihongo.org (Benjamin Franz)
Subject: Re: FAQ 4.53: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <HBBA2.690$8N5.6092@typhoon-sf.pbi.net>
In article <36d1e48d@csnews>,
Tom Christiansen <perlfaq-suggestions@perl.com> wrote:
>
> What happens if I add or remove keys from a hash while iterating over it?
>
> Don't do that.
That's a fucking stupid answer. *IT DOESN'T ANSWER THE QUESTION*.
"What happens if I export all my variables from my packages by default?"
Don't do that.
Or? Tom C. will flame you? Your mother-in-law won't love you? The Russian's
will launch their total nuclear capability?
Second, just post the damn faq files. Chopping them into a billion itty-bitty
pieces that are then flooded to the group is annoying as hell.
Benjamin Franz
------------------------------
Date: Tue, 23 Feb 1999 18:42:24 GMT
From: snowhare@long-lake.nihongo.org (Benjamin Franz)
Subject: Re: FAQ 4.53: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <kECA2.702$8N5.9158@typhoon-sf.pbi.net>
In article <36d2f025@csnews>, Tom Christiansen <tchrist@mox.perl.com> wrote:
>
>Tough noogies. After the first dozen and a half legitimate and
>heart-felt thank-yous, I knew that this had been the right thing to do.
>Nobody reads the FAQs. They're too big.
That is a clear mis-representation. They *were rarely posted at all*.
Posting a pointer saying 'it should be installed with your Perl if
your admin isn't incompetent' is not the same thing as posting the FAQ.
Posting it in 4 line piece dribblets is absurd in the other direction.
I enter the group and half the subject lines I see start with the letters
"FAQ".
> They are ignored.
>Just look at how many people are actually getting good use now.
>Doing it this way gives people a chance to look at things separately.
And renders the group itself into 'comp.lang.perl.faq'. I know you
don't like .misc's normal traffic - but hijacking it this way
is wrong.
>If this bothers you, then you obviously need to take some remedial
>lessons in basic operations of a newsreader.
You're right. Having watched you flame, bully and belittle dozens
of people in return for minscule increments of 'knowledge from on high'
for the last few years should have resulted in my killfile receiving
a new entry a *LONG* time ago. I'll correct that right now:
/tchrist@mox.perl.com/Kf:j
>Not to mention in the social graces.
Pot. Kettle. Black.
Benjamin Franz
------------------------------
Date: 23 Feb 1999 21:28:36 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: FAQ 4.53: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <919805411.736013@thrush.omix.com>
Benjamin Franz <snowhare@long-lake.nihongo.org> wrote:
: In article <36d2f025@csnews>, Tom Christiansen <tchrist@mox.perl.com> wrote:
: >Tough noogies. After the first dozen and a half legitimate and
: >heart-felt thank-yous, I knew that this had been the right thing to do.
: >Nobody reads the FAQs. They're too big.
:
: That is a clear mis-representation. They *were rarely posted at all*.
: Posting a pointer saying 'it should be installed with your Perl if
: your admin isn't incompetent' is not the same thing as posting the FAQ.
Maybe not, but it's damn close.
Why waste bandwidth to transmit a document that you already have if
you have perl installed?
: Posting it in 4 line piece dribblets is absurd in the other direction. I
: enter the group and half the subject lines I see start with the letters
: "FAQ".
Actually, I kind of like it.
In any event, if you've got a problem with it you either a) are
using a broken newsreader, or b) don't know how to use your
newsreader.
Search for "killfile". It's really not that hard.
: > They are ignored. Just look at how many people are actually getting good
: >use now. Doing it this way gives people a chance to look at things
: >separately.
:
: And renders the group itself into 'comp.lang.perl.faq'. I know you
: don't like .misc's normal traffic - but hijacking it this way
: is wrong.
We're talking what, %5 of the total traffic on a good day? That
%5 is likely to avoid a needless %25 of FAQ posts me thinks.
: >If this bothers you, then you obviously need to take some remedial
: >lessons in basic operations of a newsreader.
:
: You're right. Having watched you flame, bully and belittle dozens
: of people in return for minscule increments of 'knowledge from on high'
: for the last few years should have resulted in my killfile receiving
: a new entry a *LONG* time ago. I'll correct that right now:
:
: /tchrist@mox.perl.com/Kf:j
See, you do know how to use a killfile. So you have no excuse.
: >Not to mention in the social graces.
:
: Pot. Kettle. Black.
:
: Benjamin Franz
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 4968
**************************************
