[28383] in Perl-Users-Digest
Perl-Users Digest, Issue: 9747 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 21 09:05:55 2006
Date: Thu, 21 Sep 2006 06:05:08 -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 Thu, 21 Sep 2006 Volume: 10 Number: 9747
Today's topics:
eval or something else <simjesse@aol.com>
Re: eval or something else anno4000@radom.zrz.tu-berlin.de
Re: eval or something else <simjesse@aol.com>
Re: explaining how memory works with tie()ed hashs anno4000@radom.zrz.tu-berlin.de
Re: hashes question <christoph.lamprecht.no.spam@web.de>
Re: hashes question <rvtol+news@isolution.nl>
Re: hashes question <christoph.lamprecht.no.spam@web.de>
Re: How do I find the Nth index of array that is (whate usenet@DavidFilmer.com
Re: How do I find the Nth index of array that is (whate (reading news)
Re: How do I find the Nth index of array that is (whate <bik.mido@tiscalinet.it>
Re: How do I find the Nth index of array that is (whate <bik.mido@tiscalinet.it>
Re: How do I find the Nth index of array that is (whate <bik.mido@tiscalinet.it>
Re: How do I find the Nth index of array that is (whate <peace.is.our.profession@gmx.de>
Re: inserting lines anno4000@radom.zrz.tu-berlin.de
Re: inserting lines <bik.mido@tiscalinet.it>
Re: Ms-Word Ole and multiple independent instances. <daveandniki@ntlworld.com>
Russel Quong's "Perl in 20 pages" Mister.Fred.Ma@gmail.com
Re: Windows 2000/XP: Owner of a File <junk@dlink.org>
Re: Windows 2000/XP: Owner of a File <rvtol+news@isolution.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Sep 2006 03:35:16 -0700
From: "Bohne" <simjesse@aol.com>
Subject: eval or something else
Message-Id: <1158834916.151242.199230@m73g2000cwd.googlegroups.com>
if ($_ =~ /$EXPRESSION/$I)
My variable $I is either 'i' or ' '
How do I get perl to 'use' this value in the above?
------------------------------
Date: 21 Sep 2006 11:57:34 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: eval or something else
Message-Id: <4nfd1eFa0seoU1@news.dfncis.de>
Bohne <simjesse@aol.com> wrote in comp.lang.perl.misc:
> if ($_ =~ /$EXPRESSION/$I)
>
> My variable $I is either 'i' or ' '
> How do I get perl to 'use' this value in the above?
You don't. The modifier in a match operator isn't subject to
interpolation. You can do this:
if ( /(?$I:abc)/ ) { ...
(No need to bind the match to $_, that's the default)
For this to work you must set $I to '' if you want case-sensitivity.
Blank isn't allowed in that position.
Anno
------------------------------
Date: 21 Sep 2006 05:45:19 -0700
From: "Bohne" <simjesse@aol.com>
Subject: Re: eval or something else
Message-Id: <1158842719.761131.173510@b28g2000cwb.googlegroups.com>
Brilliant!
I love you!
------------------------------
Date: 21 Sep 2006 12:30:34 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: explaining how memory works with tie()ed hashs
Message-Id: <4nfevaFa6rbhU1@news.dfncis.de>
botfood <botfood@yahoo.com> wrote in comp.lang.perl.misc:
> I would like to know more about how perl uses memory when managing a
> hash that is tie()ed to a file on disk. Using DB_File and variable
> length records....
DB_File is Berkeley DB, so that would primarily be a question about
storage management in Berkeley DB.
> I have an application where the DB file gotten quite big, not giant,
> but around 20k records and is a file about 11MB in size. My
That's a bit more than 500 bytes per record. I'm not a bit surprised.
[...]
> In this particular case, each record is not that big, except for one
> specific type of 'book-keeping' record that is used to keep track of
> what records are considered 'complete' by this particular application.
> With a couple reports, I need to whip thru all complete records
> searching for various things.... And in another spot I know that the
> code looks for matches within this big record that contains around 20k
> 'words' consisting of about 20 digits.
For an experiment, take the extra long record(s) out of the DB and store
it/them otherwise. See if it makes a difference. I wouldn't expect so,
but who knows.
> what I am wondering is whether it is likely that the simple number of
> records eats up large amounts of memory just by being tie()ed, or if it
Tie has nothing to do with disk storage management. That's entirely
the DB's business.
> is more likely that this one particular internal index record is
> causing me problems
See above.
>when it gets pulled into memory to do things like
> m// or s// on its contents to find or edit a 'word' which is simply a
> list of the keys having a specific status.
What has "pulling into memory" to do with disk space consumption?
> The next part of the question is.... if it sounds like a large internal
> indexing record is likely to be a problem, what would some recommended
> techniques be to break that out? should I create a separate DB file to
> use as an index? I am really wondering how best to 'fake' large
> database capabilities to manage keeping track of status without eating
> tons of memory.
Databases are not primarily optimized to be as small as possible but
to be fast and flexible. Also, they often grow in relatively large
steps. It could well be that you could increase the number of records
for a long while in your 11MB until it grows again. I'd do that too:
Add random records and watch how the DB grows while you do. That
will give you a better idea of the overhead.
Anno
------------------------------
Date: Thu, 21 Sep 2006 09:57:45 +0200
From: Ch Lamprecht <christoph.lamprecht.no.spam@web.de>
Subject: Re: hashes question
Message-Id: <eetglm$3gt$1@online.de>
Tad McClellan wrote:
> David Squire <David.Squire@no.spam.from.here.au> wrote:
>
>>ed wrote:
>
>
>>> my %h = %_;
>>
>>Hmmm. Is there such a variable s %_?
>
>
>
> Yes there is. (but it doesn't do anything for the OP.)
>
> There is a $_ variable, so then there is also @_ and %_ (and
> a few more) variables.
>
>
> eg: Since there is a $@ variable, this works fine, even with strictures:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
perlvar:
Perl identifiers that begin with digits, control characters, or punctuation
characters are exempt from the effects of the package declaration and are always
forced to be in package main; they are also exempt from strict 'vars' errors.
>
> -----------------
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> @@ = qw/foo bar/;
> print "$_\n" for @@;
>
> %@ = qw/foo FOO bar BAR/;
> print "$_ => $@{$_}\n" for keys %@;
> -----------------
>
>
so this will work with any variable name starting with a control character:
use warnings;
use strict;
@? = qw/foo bar/;
print "$_\n" for @?;
%? = qw/foo FOO bar BAR/;
print "$_ => $?{$_}\n" for keys (%?);
Christoph
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
------------------------------
Date: Thu, 21 Sep 2006 10:13:52 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: hashes question
Message-Id: <eetot7.1e0.1@news.isolution.nl>
Ch Lamprecht schreef:
> so this will work with any variable name starting with a
> control character:
>
> use warnings;
> use strict;
>
> @? = qw/foo bar/;
> print "$_\n" for @?;
>
> %? = qw/foo FOO bar BAR/;
> print "$_ => $?{$_}\n" for keys (%?);
I see no "variable name starting with a
control character" in your example.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 21 Sep 2006 10:55:08 +0200
From: Ch Lamprecht <christoph.lamprecht.no.spam@web.de>
Subject: Re: hashes question
Message-Id: <eetk19$a5c$1@online.de>
Dr.Ruud wrote:
> Ch Lamprecht schreef:
>
>
>>so this will work with any variable name starting with a
>>control character:
>>
>>use warnings;
>>use strict;
>>
>>@? = qw/foo bar/;
>>print "$_\n" for @?;
>>
>>%? = qw/foo FOO bar BAR/;
>>print "$_ => $?{$_}\n" for keys (%?);
>
>
> I see no "variable name starting with a
> control character" in your example.
>
Of course you are right.
s/control/punctuation/
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
------------------------------
Date: 21 Sep 2006 01:02:32 -0700
From: usenet@DavidFilmer.com
Subject: Re: How do I find the Nth index of array that is (whatever)
Message-Id: <1158825751.954435.308650@i42g2000cwa.googlegroups.com>
Michele Dondi wrote:
> print +(grep !$array[$_], 0..$#array)[2], "\n";
That's really cool. But I don't get the reason for the "+" - wuzzat?
It doesn't seem to matter with/without the + in my script.
FWIW, this question relates to a little fun script I cobbled up to
generate all 960 possible back-row variations under Fischer Random
Chess (aka Chess960 or FRC):
http://en.wikipedia.org/wiki/Chess960
Under FRC, any backrow is valid provided the bishops are on opposite
colors and the king is between the two rooks (these constraints allow
960 possible unique configurations, and make it difficult to gain an
advantage by memorizing the "opening book" of initial
moves/countermoves). You can create a backrow with dice like this:
- roll d4 and place a bishop on the Nth white square
- roll d4 and place a bishop on the Nth black square
- roll d6 and place the queen on the Nth empty square
- roll d5 and place a knight on the Nth empty square
- roll d4 and place a knight on the Nth empty square
- Place rook-king-rook (in that order) on three remaining emptys
(you can simulate d4 and d5 with a six-sided die (d6) but re-roll
too-high values).
I came up with this approach, which does something fancy with the
knights to prevent duplicate rows:
#!/usr/bin/perl
use strict; use warnings;
use List::Util qw{shuffle}; #if you want to randomize list
my @frc; # All 960 backrow variations of Fischer Random Chess
foreach my $b1 (0..3) { # black bishop (d4)
foreach my $b2 (0..3) { # white bishop (d4)
foreach my $q (0..5) { # queen (d6)
foreach my $n1 (0..3) { # knight (d4!)
foreach my $n2 ( ($n1+1)..4 ) { # the other knight
my @row;
@row[ $b1*2 , $b2*2 + 1 ] = qw{B B};
$row[ (grep !$row[$_], 0..7)[$q] ] = 'Q';
@row[ (grep !$row[$_], 0..7)[$n1,$n2]] = qw{N N};
@row[ (grep !$row[$_], 0..7) ] = qw{R K R};
push @frc, join('', @row);
}
}
}
}
}
print $_ + 1, "\t$frc[$_]\n" for 0 ? shuffle 0..$#frc : 0..$#frc;
#if nonzero, list is shuffled ---^
__END__
It was a fun little project. It is one of the rare times I have used
array indexes in Perl.
I showed this code to another programmer (more skilled than I) and he
suggested a different approach which might work more cleanly than the
greps; I'll play around with his idea (just for fun) and see which I
like better. If I like the other approach, I'll post it also (just for
fun).
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Thu, 21 Sep 2006 08:51:13 GMT
From: "Mumia W. (reading news)" <paduille.4058.mumia.w@earthlink.net>
Subject: Re: How do I find the Nth index of array that is (whatever)
Message-Id: <5osQg.4210$UG4.3106@newsread2.news.pas.earthlink.net>
On 09/21/2006 03:02 AM, usenet@DavidFilmer.com wrote:
> Michele Dondi wrote:
>> print +(grep !$array[$_], 0..$#array)[2], "\n";
>
> That's really cool. But I don't get the reason for the "+" - wuzzat?
> It doesn't seem to matter with/without the + in my script.
> [...]
That "+" is there to prevent the interpreter from treating print as a
function (and possibly emitting a warning because of it).
--
paduille.4058.mumia.w@earthlink.net
------------------------------
Date: 21 Sep 2006 12:01:36 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How do I find the Nth index of array that is (whatever)
Message-Id: <mdm4h25q03gsfmpgd3etc887stvca40qdp@4ax.com>
On Wed, 20 Sep 2006 11:27:21 -0400, Ted Zlatanov <tzz@lifelogs.com>
wrote:
>This uses an xor, then adds up the value at $offset until the sum
>reaches 3. It can probably be improved and shortened.
Interesting approach; but...
>my @array = ('foo', '', 'bar', '', '', '', 'baz', '');
>my @barray = map { $_ xor 1 } @array;
(i) Your xor amounts to a C<!>. Thus
print Dumper [map { $_ xor 1 } @array], [map !$_, @array];
$VAR1 = [
'',
1,
'',
1,
1,
1,
'',
1
];
$VAR2 = [
'',
1,
'',
1,
1,
1,
'',
1
];
>my $offset = 0;
>my $sum = 0;
>
>foreach (@barray)
(ii) You have *two* loops: one implicit in the map() and this explicit
one, whereas one would suffice:
#!/usr/bin/perl -l
use warnings;
use strict;
use Data::Dumper;
my @array = ('foo', '', 'bar', '', '', '', 'baz', '');
my $cnt;
for (0..$#array) {
$cnt += !$array[$_];
print, last if $cnt == 3;
}
__END__
Of course if put into a sub it can become quite different:
sub findnth {
my $cnt=shift;
$cnt -= !$_[$_] or return $_ for 0..$#_;
}
print findnth 3, @array;
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 21 Sep 2006 12:01:37 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How do I find the Nth index of array that is (whatever)
Message-Id: <cgm4h2lcmc6ejk57adqns1vn5crer2i6hq@4ax.com>
On Wed, 20 Sep 2006 11:59:30 +0200, Mirco Wahab
<peace.is.our.profession@gmx.de> wrote:
>> print +(grep !$array[$_], 0..$#array)[2], "\n";
>
>This looks nice (I didn't think of pulling all
>false elements to a list). Another approach would
>be the 'naive' map:
>
> ...
> my $loc = $search_for;
> my ($index) = map !$array[$_] && !--$loc ?$_:(), 1..@array;
^^^^^^^^^
^^^^^^^^^
You know,
map f($_) ? $_ : (), @list;
is just the same as
grep f($_), @list;
thus even with your approach map() is not necessary and slightly
clumsy:
my ($index) = grep !$array[$_] && !--$loc, 0..$#array;
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 21 Sep 2006 12:08:53 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How do I find the Nth index of array that is (whatever)
Message-Id: <b0p4h252jdm8rvv4ji63094t584gspljaj@4ax.com>
On 21 Sep 2006 01:02:32 -0700, usenet@DavidFilmer.com wrote:
>Michele Dondi wrote:
>> print +(grep !$array[$_], 0..$#array)[2], "\n";
>
>That's really cool. But I don't get the reason for the "+" - wuzzat?
>It doesn't seem to matter with/without the + in my script.
Try without:
syntax error at foo.pl line 9, near ")["
Execution of foo.pl aborted due to compilation errors.
Basically it's not to have the paren interpreted as the opening
print()'s one. It' like having another pair of parens around the whole
print() args, but it's lighter IMHO.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 21 Sep 2006 12:43:38 +0200
From: Mirco Wahab <peace.is.our.profession@gmx.de>
Subject: Re: How do I find the Nth index of array that is (whatever)
Message-Id: <eetql4$211$1@mlucom4.urz.uni-halle.de>
Thus spoke Michele Dondi (on 2006-09-21 12:01):
> You know,
>
> map f($_) ? $_ : (), @list;
>
> is just the same as
>
> grep f($_), @list;
Yes, that should be ... :-((
> thus even with your approach map() is not necessary
> and slightly clumsy:
It was somehow a 'fast shot' - but did (at last) work
(after canceling the initial [1..N] and reposting it).
But the (your) 'indexing+grep' combination:
my $loc = nth_occurence_of_false;
my ($index) = grep !$array[$_] && !--$loc, 0..$#array;
looks to me like the most beautiful,
maybe 'idiomatic' solution.
Regards & thanks
Mirco
------------------------------
Date: 21 Sep 2006 09:56:08 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: inserting lines
Message-Id: <4nf5toFa2c15U1@news.dfncis.de>
Jim Gibson <jgibson@mail.arc.nasa.gov> wrote in comp.lang.perl.misc:
> In article <L7dQg.38696$_k2.697116@news2.nokia.com>, PG
> <noreply@hotmail.com> wrote:
>
> > I want to know how to add a line , say "foobar" , after a line which says,
> > for example "string1", in a inout file.
> >
> > how can I do this ?
> >
> > (I'm pretty new to Perl)
>
> This is a "Frequently Asked Question". Unfortunately, the FAQ for Perl
> only has one recommendation: using the Tie::File module. If you are new
> to Perl, learning about the "tie" concept may confuse you, as may using
> modules, although you will definitely benefit from learning how to use
> modules.
I too find it unfortunate that the FAQ doesn't explain the process
in more detail. Typical file-manipulation tools (most notably editors)
give the user the impression that a file is something like an array
of lines on disk. Many beginning programmers have this mental image.
Understanding that a file is really one homogeneous lump of bytes
is a necessary step for a new programmer. This FAQ would be a good
opportunity to set the concept right and explain the consequences.
Instead it does all it can to preserve the inappropriate mental
image.
I think the original content of the FAQ (which explained the manual
process of inserting lines etc.) should be put back in, rewritten if
necessary. A good opportunity to win wealth and fame with a doc
change :)
Anno
------------------------------
Date: 21 Sep 2006 12:01:38 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: inserting lines
Message-Id: <fii4h21ufc5oo8mu5j7k6ci3ca0r6bbsts@4ax.com>
On Wed, 20 Sep 2006 17:31:52 +0100, David Squire
<David.Squire@no.spam.from.here.au> wrote:
>... but this does not solve the OP's problem, which does not mention
>substitution, but rather an additional line.
If a substitution *does* insert an additional line, then it does solve
the OP's problem.
>Still waiting to here what the OP has tried...
Indeed!
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 21 Sep 2006 11:42:42 +0200
From: "Dave" <daveandniki@ntlworld.com>
Subject: Re: Ms-Word Ole and multiple independent instances.
Message-Id: <45125e9b$0$5101$ba4acef3@news.orange.fr>
"Rudy Van Eeckhout" <rudy.vaneeckhout@gmail.com> wrote in message
news:1158744313.551371.156760@m73g2000cwd.googlegroups.com...
> Hello all,
>
> I do have several perl scrips whicht opens by ole an word instance
> which is used to print a document to a certain printer. Now we noted
> that these documents sometimes appear on the wrong printer. After some
> investiation is did seen next effect.
> First assume next script
>
> my $Word= Win32::OLE->CreateObject('Word.Application', 'Quit');
> $openWord->{'Visible'} = 0;
> $Word->{ActivePrinter} = "$printer";
> <STDIN> ; #Wait for a cariage return
> print $Word->{ActivePrinter} ."\n" ;
>
> When i run this script with $printer set to printerA and i do wait to
> give a cariage return until i did run the script in a second form with
> $printer set to printerB. The both script will print as active printer
> printerB. This means that the assingment of Activeprinter is done for
> all instances which are running.
>
> Even when you try this manualy by opening 2 word sessions you can see
> that the printer changes over the different sessions.
>
> If you start msword from the command line with the /w option the
> problem disapears.
> Now i can not find out how to do this over perl OLE.
>
> Is there anybody who knows how to sole this over OLE?
>
> Kind regards.
>
> Rudy.
>
I think this is more of a Word issue than a perl issue, and I suspect
(without looking into it) that activeprinter is a global setting for word
rather than a per-document setting.
In the example script you give you set the activeprinter early, then wait
for input and then print to it. If instead you set the activeprinter just
before printing you would have fewer problems. You might still get the odd
glitch if two scripts are running concurrently and both try to change the
setting at nearly the same time, but this would happen far less often than
the current issue which is that you set the printer, wait (during which time
another process may set it to something else) and then print.
Dave
------------------------------
Date: 21 Sep 2006 04:06:49 -0700
From: Mister.Fred.Ma@gmail.com
Subject: Russel Quong's "Perl in 20 pages"
Message-Id: <1158836809.241944.88590@d34g2000cwd.googlegroups.com>
Does anyone know where the latest version can be found? A cached
version of Document version 2001a is available at
http://tinyurl.com/h6c7d
(http://72.14.207.104/search?q=cache:vEXjoSaJs20J:quong.best.vwh.net/perlin20/+http://quong.best.vwh.net/perlin20/&hl=en&gl=ca&ct=clnk&cd=1).
It's the latest I can find, but the server hosting the original is not
available. I haven't seen recent references to the document on Google
or Groups. Thanks.
------------------------------
Date: 21 Sep 2006 03:41:14 -0700
From: "Aqua" <junk@dlink.org>
Subject: Re: Windows 2000/XP: Owner of a File
Message-Id: <1158835274.360557.49340@h48g2000cwc.googlegroups.com>
Dear Dr.Ruud,
> If CPAN has nothing, look into:
> http://www.sysinternals.com/Utilities/ShareEnum.html
> http://www.sysinternals.com/Utilities/AccessEnum.html
I googled "PERL FILE Owner" and I found a sample which uses
Win32::OLE..
Thanks and Regards
Dominic
------------------------------
Date: Thu, 21 Sep 2006 14:44:11 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Windows 2000/XP: Owner of a File
Message-Id: <eeu8in.1h4.1@news.isolution.nl>
Aqua schreef:
> Ruud:
>> If CPAN has nothing, look into:
>> http://www.sysinternals.com/Utilities/ShareEnum.html
>> http://www.sysinternals.com/Utilities/AccessEnum.html
>
> I googled "PERL FILE Owner" and I found a sample which uses
> Win32::OLE..
See also:
"HOW TO: Use the File Ownership Script Tool (Fileowners.pl) in Windows
2000"
http://support.microsoft.com/default.aspx?scid=kb;en-us;320046
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
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:
#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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 9747
***************************************
