[30510] in Perl-Users-Digest
Perl-Users Digest, Issue: 1753 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 29 14:09:47 2008
Date: Tue, 29 Jul 2008 11:09:10 -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 Tue, 29 Jul 2008 Volume: 11 Number: 1753
Today's topics:
Adding a quantifier to substitution mohyeldin55@gmail.com
Re: Adding a quantifier to substitution <JustMe@somewhere.de>
Re: Adding a quantifier to substitution <mritty@gmail.com>
Re: Can I upload Perl program in unicode? <benkasminbullock@gmail.com>
Re: Can I upload Perl program in unicode? <szrRE@szromanMO.comVE>
Re: Can I upload Perl program in unicode? <john1949@yahoo.com>
Extracting bits out of huge numbers <blabla@dungeon.de>
Re: FAQ 4.2 Why is int() broken? <szrRE@szromanMO.comVE>
free love tips go to website view <ragavan.cs@gmail.com>
How is 'split' working here ? <dn.perl@gmail.com>
Re: How is 'split' working here ? <mritty@gmail.com>
How to find ioctl.ph - is my version of perl busted? <Mark.Seger@hp.com>
Re: How to find ioctl.ph - is my version of perl busted <smallpond@juno.com>
Re: Is there any module to get the cdrom infomation? <npc@zomg.tk>
Re: problem with charset <rtfm.rtfm.rtfm@gmail.com>
Re: what is the expression mean? <hjp-usenet2@hjp.at>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 Jul 2008 07:31:23 -0700 (PDT)
From: mohyeldin55@gmail.com
Subject: Adding a quantifier to substitution
Message-Id: <02d49b5f-cde9-4c70-885a-bb8fd5fa2d76@l64g2000hse.googlegroups.com>
I was wondering if there is a work around to add a quantifier if I
need to replace a certain pattern with X multiples of certain
character or string like:
$str=~s/<pattern>/R{15}/g; -------> how to replace the pattern with
"R" repeated 15 times?
Thanks.
------------------------------
Date: Tue, 29 Jul 2008 17:12:34 +0200
From: Hartmut Camphausen <JustMe@somewhere.de>
Subject: Re: Adding a quantifier to substitution
Message-Id: <MPG.22f951bb9c9557f898968e@news.t-online.de>
Hi,
Am 29 Jul 2008 schrieb mohyeldin55:
> ...replace a certain pattern with X multiples of certain character or string like:
^
--'
Quite close :-)
To repeat a string several times, use the operator 'x':
my $five_times_an_a = 'a' x 5; # gives 'aaaaa'
Read perdoc perlop
hth + mfg, Hartmut
--
------------------------------------------------
Hartmut Camphausen h.camp[bei]textix[punkt]de
------------------------------
Date: Tue, 29 Jul 2008 08:32:04 -0700 (PDT)
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Adding a quantifier to substitution
Message-Id: <f8e2d3c1-0ce0-4439-926a-0beb643acf5e@s50g2000hsb.googlegroups.com>
On Jul 29, 10:31=A0am, mohyeldi...@gmail.com wrote:
> I was wondering if there is a work around to add a quantifier if I
> need to replace a certain pattern with X multiples of certain
> character or string like:
>
> $str=3D~s/<pattern>/R{15}/g; =A0-------> how to replace the pattern with
> "R" repeated 15 times?
The /e modifier of a s/// changes the replacement from a string to a
piece of Perl code to evaluate. So use that modifier, and make your
replacement be code that returns a string comprised of 15 R's:
$str =3D~ s/<pattern>/'R' x 15/ge;
Paul Lalli
------------------------------
Date: Tue, 29 Jul 2008 13:15:35 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Can I upload Perl program in unicode?
Message-Id: <g6n55n$khn$1@cgi-ml.accsnet.ne.jp>
On Tue, 29 Jul 2008 09:57:57 +0200, Christian Winter wrote:
> John schrieb:
>> If a Perl script can be encoded in UTF8, the problem must lie with the
>> upload. I use WS_FTP Pro on my Windows (sorry) machine
A lot of people here use Perl on Windows. One of my main uses for Perl
is manipulating Microsoft Word/Excel documents via Win32::OLE.
>> and vsftpd on my
>> linux server. I need to look at the setup on both.
Did you know you can use Explorer as an ftp client on Windows? It's fairly
handy.
> Also have a look at line endings, windows-style line ends
> (CRLF) generally don't mix well with Perl on *nix systems
The only problem with these on Unix systems is "bad interpreter" messages
if there is a ^M at the end of the #! line. But these messages come from the
shell, not Perl itself. Perl is able to cope with any kind of line
endings on Unix, so you can run your scripts as "perl myscript" it will
be OK.
------------------------------
Date: Tue, 29 Jul 2008 09:08:45 -0700
From: "szr" <szrRE@szromanMO.comVE>
Subject: Re: Can I upload Perl program in unicode?
Message-Id: <g6nfae0241m@news4.newsguy.com>
Ben Bullock wrote:
> On Tue, 29 Jul 2008 09:57:57 +0200, Christian Winter wrote:
>
>> John schrieb:
>
>>> If a Perl script can be encoded in UTF8, the problem must lie with
>>> the upload. I use WS_FTP Pro on my Windows (sorry) machine
>
> A lot of people here use Perl on Windows. One of my main uses for Perl
> is manipulating Microsoft Word/Excel documents via Win32::OLE.
>
>>> and vsftpd on my
>>> linux server. I need to look at the setup on both.
>
> Did you know you can use Explorer as an ftp client on Windows? It's
> fairly handy.
>
>> Also have a look at line endings, windows-style line ends
>> (CRLF) generally don't mix well with Perl on *nix systems
>
> The only problem with these on Unix systems is "bad interpreter"
> messages if there is a ^M at the end of the #! line. But these
> messages come from the shell, not Perl itself. Perl is able to cope
> with any kind of line endings on Unix, so you can run your scripts
> as "perl myscript" it will be OK.
Another little trick I've used before in such situations is, after
uploading, go to your Linux shell and open the script in 'pico', then
save the file. When pico saves the file, it will have converted any
\CR\LF sequences to just LF. I am not sure who it handles UTF8, however.
And I'm sure there are other tools for converting as well.
--
szr
------------------------------
Date: Tue, 29 Jul 2008 18:21:04 +0100
From: "John" <john1949@yahoo.com>
Subject: Re: Can I upload Perl program in unicode?
Message-Id: <g6nji0$k0i$1@news.albasani.net>
"szr" <szrRE@szromanMO.comVE> wrote in message
news:g6nfae0241m@news4.newsguy.com...
> Ben Bullock wrote:
>> On Tue, 29 Jul 2008 09:57:57 +0200, Christian Winter wrote:
>>
>>> John schrieb:
>>
>>>> If a Perl script can be encoded in UTF8, the problem must lie with
>>>> the upload. I use WS_FTP Pro on my Windows (sorry) machine
>>
>> A lot of people here use Perl on Windows. One of my main uses for Perl
>> is manipulating Microsoft Word/Excel documents via Win32::OLE.
>>
>>>> and vsftpd on my
>>>> linux server. I need to look at the setup on both.
>>
>> Did you know you can use Explorer as an ftp client on Windows? It's
>> fairly handy.
>>
>>> Also have a look at line endings, windows-style line ends
>>> (CRLF) generally don't mix well with Perl on *nix systems
>>
>> The only problem with these on Unix systems is "bad interpreter"
>> messages if there is a ^M at the end of the #! line. But these
>> messages come from the shell, not Perl itself. Perl is able to cope
>> with any kind of line endings on Unix, so you can run your scripts
>> as "perl myscript" it will be OK.
>
> Another little trick I've used before in such situations is, after
> uploading, go to your Linux shell and open the script in 'pico', then save
> the file. When pico saves the file, it will have converted any \CR\LF
> sequences to just LF. I am not sure who it handles UTF8, however. And I'm
> sure there are other tools for converting as well.
>
> --
> szr
>
Good news. It is all working fine now. I tested it with French, German,
Persian, Chinese and Greek.
I had some problems with DBI and MySQL with Perl and UTF8 but I managed to
get that to work too.
Many thanks for all the input.
Regards
John
------------------------------
Date: Tue, 29 Jul 2008 05:28:56 -0700 (PDT)
From: hofer <blabla@dungeon.de>
Subject: Extracting bits out of huge numbers
Message-Id: <ce050ae4-9a3f-406d-b9f1-52a19754e37d@z66g2000hsc.googlegroups.com>
Hi,
I'd like to work with huge integers (> 64 bit precision)
Thus I can't use ordinary perl integers.
I thought Math::BigInt wouldn't be a too bad choice.
It's easy enough go create BigInts.
my $a = Math::BigInt->new("0x7777666655544443333222211110000");
my $b = Math::BigInt->new("0x1111111111111111111111111111111");
Calculating with them is also fine:
$a->badd($b); # $a = $a + $b
Now I would like to extract certain bits out of this huge number:
Example Bits 16 bis 12 should result in 0b00001 == 0x1 == 1
Bits 17 bis 12 should result in 0b100001 == 0x21 == 33
So far I see two ways of doing this conversion.
However I'm not really appealed by either solution.
Do you know anything faster / better or even another CPAN module?
# extract bits out of binary string
sub extbits { #
my ($val,$msb,$lsb) = @_; # $val must be Math::BigInt;
my $asbinstr = $val->as_bin(); # nun als binaer string
my $withoutprefix = substr($asbinstr,2); # fuehrendes '0b'
entfernen
my $substr = substr($withoutprefix,-$msb-1,$msb-$lsb+1); # den
substring extrahieren
$substr = 0 if $substr eq ""; # sollte mindestens einen character
enthalten
my $result = Mat::BigInt->new("0b".$substr); # zurueck in
Math::BigInt verwandeln
return $result;
} #
# extract bits via shifts operations follwed by a bit wise and
sub extbits { #/*{{{*/
my ($val,$msb,$lsb) = @_; # $val must be Math::BigInt;
my $mask = Math::BigInt->new(1); # create a 1
$mask->blsft($msb-$lsb+1); # 2 ^ (number of bits to extract)
$mask->bsub(1); # now we have a mask
my $tmp = $val->copy->brsft($lsb); # shift input value to the
right
return $tmp->band($mask);
} #/*}}}*/
Thanks in advance for any other suggestions
like rewriting the function to accelerate it or using another module.
bye
H
------------------------------
Date: Tue, 29 Jul 2008 08:57:33 -0700
From: "szr" <szrRE@szromanMO.comVE>
Subject: Re: FAQ 4.2 Why is int() broken?
Message-Id: <g6neld023jr@news4.newsguy.com>
Peter J. Holzer wrote:
> On 2008-07-28 17:56, szr <szrRE@szromanMO.comVE> wrote:
>> Peter J. Holzer wrote:
>>> On 2008-07-28 06:12, Jürgen Exner <jurgenex@hotmail.com> wrote:
>>>> "szr" <szrRE@szromanMO.comVE> wrote:
>>>>> Peter J. Holzer wrote:
>>>>>> Please get it into your head that extra precision *does* *not*
>>>>>> solve this problem. To express 1/10 in binary you need an
>>>>>> infinite number of digits, just like you need an infinite number
>>>>>> of digits to express 1/3 in decimal.
>>>>>
>>>>> Maybe you meant to write something else, as 1/10 is 0.1 and does
>>>>> not require an infinite number of digits;
>>>>
>>>> Yes, it does.
>>>
>>> It doesn't, but I didn't write that. I wrote it takes an infinite
>>> number of *binary* digits.
>>>
>>> In binary, 1/10 is 0.00011001100110011...
>>
>>
>> For some reason I thought that applied to decimal expresses that
>> repeated infinately, like 1/3 => .3333..., not decimals with a fixed
>> number of dibits, which 1/0 => 0.1 is:
>>
>> $ perl -e 'my $x = 1/10; print unpack("b64", pack("d", $x)), "\n"'
>> 0101100110011001100110011001100110011001100110011001110111111100
> <--><--><--><--><--><--><--><--><--><--><--><-->
>
> Um, the repeating pattern is clearly visible here. The pattern is
> broken on the left side because of rounding (you printed the pattern
> in little endian, so the least significant digit is on the left and
> the, er, binary point is just to the right of the rightmost ">" I
> made).
I put that one in to show a comparison between the above and the ones
below. But you covered it pretty well in your following paragraph.
>>
>> $ perl -e 'my $x = 1/2; print unpack("b64", pack("d", $x)), "\n"'
>> 0000000000000000000000000000000000000000000000000000011111111100
>>
>> $ perl -e 'my $x = 1/4; print unpack("b64", pack("d", $x)), "\n"'
>> 0000000000000000000000000000000000000000000000000000101111111100
>>
>> $ perl -e 'my $x = 1/8; print unpack("b64", pack("d", $x)), "\n"'
>> 0000000000000000000000000000000000000000000000000000001111111100
>
> 1/2, 1/4, 1/8 are all exactly representable in binary, because they
> are integral multiples of powers of two. 1/10 is not, because it is
> not an integral multiple of powers of two. 1/3 is not representable
> in decimal because it is not an integral multiple of a power of 10.
> And 1/2 is not representable in base-15 because it is not an integral
> multiple of a power of 15 (but 1/3 and 1/5 are). For any given base,
> there are always only a small (but infinite :-)) number of fraction
> which are representable in that base.
True enough.
>>>>> it needs just one decimal digit
>>>>
>>>> Irrelevant because your typical computer does not use decimal
>>>> numbers but binary numbers, just like Peter said.
>>>
>>> Actually, I didn't write what "a typical computer" uses, just what
>>> happens when a binary system is used (which is what perl uses on
>>> most (all?) platforms - COBOL uses normally uses decimal).
>>
>> Even among different types of computers floating point calculations
>> are not all done the same. For instance, I have a graphing
>> calculator, which is essentially tiny computer with a 6 MHz cpu and
>> yet it can do many floating point calculations more accurately than
>> my dual core cpu desktop.
>
> I'm not up to date with calculators (the last one I bought was an
> HP-48 20 years ago), but frankly, I doubt that it is more accurate.
> It has probably less than 15 digits of mantissa. It probably does its
> computations in decimal, which makes them even less accurate, but the
> errors *match* *your* *expectations*, so you don't notice then.
My point was, on graphing calculators I've used (which has mainly
consisted of Texas Instrument TI-8*'s), the results are what you'd
expect them to me math wise for the most part. That is, what you'd
expect if you were to do it using plain ol' pencil and paper.
>> Granted, it's a calculator, but I have often wondered why it
>> seems to be able to handle such calculations better than a CPU that's
>> over 400 times faster.
>
> Different target. Calculators can be slow - they do only primitive
> computations, and if they finish them in a short but noticable time
> its still "fast enough". A modern CPU is supposed to be able to do
> hundreds of millions such computations per second. Calculators are
> also rarely used for computations where accuracy is much of an issue
> - 8 or 12 digits are enough. But they are used by people who expect
> 0.1 * 10 to be 1.0 but aren't overly surprised if 1/3*3 is 0.9999999.
Testing on a TI-89 (which does have a hefty amount of precision)
entering "1/3*3.0" yields "1." and so does "0.1*10", and Perl seems to
give the same results. On what hardware, language, or such, do you end
up getting 0.99999.. from 1/3*3.0 ?
> In short it is able to "handle such calculations" because it has been
> designed to do so. Floating point hardware has been designed to give
> the most accurate result in a very short time. You can always
> implement decimal arithmetic yourself or use a library[1] - it will
> still be a lot faster than your calculator.
As I expect it would be.
> [1] Incidentally, I know of one modern processor (the IBM Power6)
> which implements full decimal floating point arithmetic in
> hardware.
I remember back in the days of the 486 processor you had a separate
"Math Co-Processor", I wonder what would happen if they reinstituted
that idea, but on a more powerful/modern scale? I know the GPU on modern
graphics cards in some ways fills that roll, because intense graphical
programs (like newer Games) make big use of FP calculations in real
time, but would it be so bad to have an extra math process along side
the CPU like in the days of yore, to give an overall boost in FP
efficiency?
--
szr
------------------------------
Date: Tue, 29 Jul 2008 06:43:45 -0700 (PDT)
From: bala <ragavan.cs@gmail.com>
Subject: free love tips go to website view
Message-Id: <84b18f6b-034f-47d5-b601-c7119c201ebb@z11g2000prl.googlegroups.com>
http://www.healthnews5.blogspot.com/f
------------------------------
Date: Tue, 29 Jul 2008 10:22:22 -0700 (PDT)
From: "dn.perl@gmail.com" <dn.perl@gmail.com>
Subject: How is 'split' working here ?
Message-Id: <631d0b38-04a8-4754-99c8-1f0238080105@a3g2000prm.googlegroups.com>
Code :
#!/usr/bin/perl
use strict ;
my $fname = "My-range-20080511-20080514.txt" ;
my ($pattern1, $pattern2);
$pattern1 = '(.*)-(\d+)-(\d+).txt$';
my @parts = split ( /$pattern1/, $fname) ;
print "$parts[0] Z $parts[1] Z $parts[2] Z $parts[3] Z\n" ;
#######################
Output :
Z My-range Z 20080511 Z 20080514 Z
Why is $parts[0] a blank string? Besides, (\d+) is the second bracket
of pattern1, so I would expect it to be the second element, or
$parts[1], of @parts. Yet $parts[1] is something else. I am confused
as to how 'split' is working here.
Please advise. Thanks in advance.
------------------------------
Date: Tue, 29 Jul 2008 10:40:41 -0700 (PDT)
From: Paul Lalli <mritty@gmail.com>
Subject: Re: How is 'split' working here ?
Message-Id: <14b77e9c-60b7-4346-a0cd-0fbeaffbd0ba@l42g2000hsc.googlegroups.com>
On Jul 29, 1:22=A0pm, "dn.p...@gmail.com" <dn.p...@gmail.com> wrote:
> Code :
> #!/usr/bin/perl
>
> use strict ;
>
> my $fname =3D "My-range-20080511-20080514.txt" ;
> my ($pattern1, $pattern2);
> $pattern1 =3D '(.*)-(\d+)-(\d+).txt$';
>
> my @parts =3D split ( /$pattern1/, $fname) ;
> print "$parts[0] Z $parts[1] Z $parts[2] Z $parts[3] Z\n" ;
> #######################
>
> Output :
> =A0Z My-range Z 20080511 Z 20080514 Z
>
> Why is $parts[0] a blank string? Besides, (\d+) is the second bracket
> of pattern1, so I would expect it to be the second element, or
> $parts[1], of @parts. Yet $parts[1] is something else. I am confused
> as to how 'split' is working here.
>
> Please advise. Thanks in advance.
You are splitting the string "My-range-20080511-20080514.txt". The
pattern on which you are splitting atually matches the entire
pattern. Therefore, there would normally be exactly two returned
elements - an empty string in the front, and an empty string in the
back. By default, split() drops ending empty strings, however.
Make it simpler: Say my pattern is actually /-!-/. Here's what I
would get for splitting each of these strings:
'foo-!-bar' =3D> ('foo', 'bar')
'foo-!--!-bar' =3D> ('foo', '', 'bar')
'-!-bar' =3D> ('', 'bar')
'-!-bar-!-' =3D> ('', 'bar') #remember, trailing empty fields are
dropped
'-!-' =3D> ('') #again, trailing empty fields are
dropped.
Your example is the equivalent of the last example. Your split
pattern matches the entire string. That is why the first element
returned is an empty string.
HOWEVER, you did something else - you used capturing parentheses
within your pattern. When you do that, split returns not only the
pieces of the string that have been split, but also whatever was
captured. Let's take another look. This time, pretend your pattern
is /-(!)-/. That is, the same pattern, but now you're capturing the
exclamation point:
'foo-!-bar' =3D> ('foo', '!', 'bar')
'foo-!--!-bar' =3D> ('foo', '!', '', '!', 'bar')
'-!-bar' =3D> ('', '!', 'bar')
'-!-bar-!-' =3D> ('', '!', 'bar', '!') #remember, trailing empty
fields are dropped
'-!-' =3D> ('', '!') #again, trailing empty
fields are dropped.
This is what you did. Your pattern matches the entire string, so you
get an empty string returned, but you also get one result for each
capturing parentheses.
If you don't want those "extra" results, use non-capturing
parentheses:
$pattern1 =3D '(?:.*)-(?:\d+)-(?:\d+).txt$';
Alternatively, if what you're actually trying to do is find just those
captured parts, and your confusion is why that empty string appeared
in the first place, the answer is that you shouldn't be using split at
all. You should just be using the normal =3D~ operator, like so:
my @parts =3D ($fname =3D~ /$pattern1/);
Hope that helps,
Paul Lalli
------------------------------
Date: Tue, 29 Jul 2008 07:35:56 -0400
From: Mark Seger <Mark.Seger@hp.com>
Subject: How to find ioctl.ph - is my version of perl busted?
Message-Id: <g6mvb2$971$1@usenet01.boi.hp.com>
According to perlpaq8, I should be able to "require sys/ioctl.ph" but
when I run my script I get:
Can't locate features.ph in @INC (did you run h2ph?)...
I sure hope I don't have to run h2ph because I'd rather simply know if
ioctl.ph is loadable or not. I'm running on a fairly old system with
perl 5.8.0 and am wondering is this is correct behavior or if my
installation might have gotten corrupted over the years. I can't find
'features' anywhere under the perl tree.
In fact, if I comment out the "require 'features.ph'" in the ioctl.ph I
then start getting errors that it can't find ioctls.ph which is clearly
all wrong.
If my distro is indeed correct, does anyone at least know which distro
started shipping with the appropriate includes in place?
-mark
------------------------------
Date: Tue, 29 Jul 2008 08:00:40 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: How to find ioctl.ph - is my version of perl busted?
Message-Id: <dc82d49f-5d75-47ce-b617-b202caec5997@d77g2000hsb.googlegroups.com>
On Jul 29, 7:35 am, Mark Seger <Mark.Se...@hp.com> wrote:
> According to perlpaq8, I should be able to "require sys/ioctl.ph" but
> when I run my script I get:
>
> Can't locate features.ph in @INC (did you run h2ph?)...
>
> I sure hope I don't have to run h2ph because I'd rather simply know if
> ioctl.ph is loadable or not. I'm running on a fairly old system with
> perl 5.8.0 and am wondering is this is correct behavior or if my
> installation might have gotten corrupted over the years. I can't find
> 'features' anywhere under the perl tree.
>
> In fact, if I comment out the "require 'features.ph'" in the ioctl.ph I
> then start getting errors that it can't find ioctls.ph which is clearly
> all wrong.
>
> If my distro is indeed correct, does anyone at least know which distro
> started shipping with the appropriate includes in place?
>
> -mark
ioctl.ph should be in the directory at:
perl -e 'use Config; print $Config{archlib},"/sys/\n"'
--S
------------------------------
Date: Tue, 29 Jul 2008 13:20:46 +0200 (CEST)
From: npc <npc@zomg.tk>
Subject: Re: Is there any module to get the cdrom infomation?
Message-Id: <g6muee$g8e$1@aioe.org>
On Tue, 29 Jul 2008 10:35:29 +0800, lofenee wrote:
> I want to check whether a cdrom node under /dev actually exists.
search cpan for 'cdrom.' there appear to be several.
perldoc -q cpan
------------------------------
Date: Tue, 29 Jul 2008 15:55:33 +0400
From: Daneel Yaitskov <rtfm.rtfm.rtfm@gmail.com>
Subject: Re: problem with charset
Message-Id: <g6n0ij$ot2$1@aioe.org>
Hi,
I have sloved the problem!. The cause was in that that I had used the
old CGI package. All fixed up when I had installed 3.25 version of the.
Daneel
------------------------------
Date: Tue, 29 Jul 2008 18:53:13 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: what is the expression mean?
Message-Id: <slrng8uinp.6i3.hjp-usenet2@hrunkner.hjp.at>
On 2008-07-28 19:06, Eric Pozharski <whynot@pozharski.name> wrote:
> B<keys> intentionally mangles its output (C<perldoc -f keys> has more).
> (Hmm,.. documentation says that order would be different between
> different runs of the same code since 5.8.1. As of 5.8.8 it's not.
> Debian specific quirks? Again?)
No, not debian specific. The algorithm was changed again some time after
5.8.1. Now order changes only if the distribution is detected to be
particularly poor. Apparently the documentation wasn't updated.
hp (who asked the same question not too long ago)
------------------------------
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 V11 Issue 1753
***************************************
