[9090] in Perl-Users-Digest
Perl-Users Digest, Issue: 2708 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 24 07:07:28 1998
Date: Sun, 24 May 98 04:00:34 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 24 May 1998 Volume: 8 Number: 2708
Today's topics:
alarm, sleep, select, sysread ... which combo will work <enaiman@ndsisrael.com>
Re: alarm, sleep, select, sysread ... which combo will <ljz@asfast.com>
ANNOUNCE: Data::Locations 4.0 <sb@sdm.de>
Re: Clearly define "free software" (Ilya Zakharevich)
Re: Clearly define "free software" <hp@pobox.com>
Re: Clearly define "free software" Klaus.Schilling@home.ivm.de
Re: Clearly define "free software" <joswig@lise.lavielle.com>
Re: constants in perl(what is grep?) <jwb79@mail.idt.net>
Re: Encoding URLs with CGI.pm. How? (Brian Lavender)
Re: GNU attacks on the open software community (Ilya Zakharevich)
Re: GNU attacks on the open software community (Abigail)
Re: GNU attacks on the open software community <dak@mailhost.neuroinformatik.ruhr-uni-bochum.de>
Re: GNU attacks on the open software community <rra@stanford.edu>
Re: Perl 5.005_xxx <ljz@asfast.com>
perl5 <=> perl4 incompatibility ? (Emil Vatralov)
Re: Problems with "print" (Guido Mensching)
Re: Suggestion Re: GNU attacks on the open software com (Ilya Zakharevich)
Re: Suggestion Re: GNU attacks on the open software com <bnelson@netcom.com>
Re: Taint, untaint, recusion and internal functions (Marc Haber)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 May 1998 06:48:22 GMT
From: "Ephrayim \"EJ\" Naiman" <enaiman@ndsisrael.com>
Subject: alarm, sleep, select, sysread ... which combo will work?
Message-Id: <01bd851d$30cb0840$77140a0a@enaimanlt.ilndc.com>
I have a script which does a "tail -f" on a date-based filename which
(obviously) changes at midnight. My script does a sleep(5) when it hits
the end of the file and then checks the file again (so far so good).
The problem is I don't want call time() after every sleep() to see if the
day has changed.
So, I thought I'd code an alarm that would go off at 12:00 AM, at which
point I would switch the filename. But then I noticed in the manual that
those two calls should not be mixed. Hmmm.... So I figured I'd switch my
sleep() with a select(). But then I noticed that one shouldn't use
select() with any buffered input/output and all of my code uses FileHandle
stuff.
1. Is the warning of mixing select() and read() even if all I do with
select() is
select(undef, undef, undef, 10)?
2. Any other ideas on how to wake up my process at 12:00 without having to
spawn
a subprocess to do the alarm and send a message via a pipe?
--
Ephrayim "EJ" Naiman
enaiman@ndsisrael.com
------------------------------
Date: 24 May 1998 04:09:40 -0400
From: Lloyd Zusman <ljz@asfast.com>
Subject: Re: alarm, sleep, select, sysread ... which combo will work?
Message-Id: <ltlnrsqed7.fsf@asfast.com>
"Ephrayim \"EJ\" Naiman" <enaiman@ndsisrael.com> writes:
> [ ... ]
>
> [ ... ] Hmmm.... So I figured I'd switch my
> sleep() with a select(). But then I noticed that one shouldn't use
> select() with any buffered input/output and all of my code uses FileHandle
> stuff.
>
> 1. Is the warning of mixing select() and read() even if all I do with
> select() is
> select(undef, undef, undef, 10)?
The warning you cite about `select' only applies in cases where you
are using that call to manage IO to file descriptors, and that is not
the case here, since each of the first three arguments to that call
are set to `undef' in your example. Hence, you can use `select' in
this manner without concern.
It's standard practice in C to use this form of `select' instead of
`sleep' to avoid problems with SIGALRM, and this generalizes to
Perl, as well.
> [ ... ]
--
Lloyd Zusman ljz@asfast.com
perl -e '$n=170;for($d=2;($d*$d)<=$n;$d+=(1+($d%2))){for($t=0;($n%$d)==0;
$t++){$n=int($n/$d);}while($t-->0){push(@r,$d);}}if($n>1){push(@r,$n);}
$x=0;map{$x+=(($_>0)?(1<<log($_-0.5)/log(2.0)+1):1)}@r;print"$x\n"'
------------------------------
Date: 24 May 1998 07:25:55 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: ANNOUNCE: Data::Locations 4.0
Message-Id: <6k8i23$n2j$1@bsdti6.sdm.de>
I am pleased to announce version 4.0 of the "Data::Locations" module:
The package is available for download either from my web site at
http://www.engelschall.com/u/sb/download/
or from any CPAN (= "Comprehensive Perl Archive Network") mirror server:
(allow a few days for propagation if necessary)
http://www.perl.com/CPAN/authors/id/STBEY/
Prerequisites:
--------------
Perl version 5.004 (subversion 0) or higher.
What does it do:
----------------
Did you already encounter the problem that you had to produce some
data in a particular order, but that some piece of the data was still
unavailable at the point in the sequence where it belonged and where
it should have been produced?
Did you also have to resort to cumbersome and tedious measures such
as storing the first and the last part of your data separately, then
producing the missing middle part, and finally putting it all together?
In this simple case, involving only one posterior insertion, you might
still put up with this solution.
But if there is more than one posterior insertion, requiring the handling
of many fragments of data, you will probably get annoyed and frustrated.
You might even have to struggle with limitations of the file system of
your operating system, or handling so many files might considerably slow
down your application due to excessive file input/output.
And if you don't know exactly beforehand how many posterior insertions
there will be (if this depends dynamically on the data being processed),
and/or if the pieces of data you need to insert need additional (nested)
insertions themselves, things will get really tricky, messy and troublesome.
In such a case you might wonder if there wasn't an elegant solution to
this problem.
This is where the "Data::Locations" module comes in: It handles such
insertion points automatically for you, no matter how many and how deeply
nested, purely in memory, requiring no (inherently slower) file input/output
operations.
(The underlying operating system will automatically take care if the amount
of data becomes too large to be handled fully in memory, by swapping out
unneeded parts.)
Moreover, it also allows you to insert the same fragment of data into
SEVERAL different places.
This increases space efficiency because the same data is stored in
memory only once, but used multiple times.
Potential infinite recursion loops are detected automatically and
refused.
In order to better understand the underlying concept, think of
"Data::Locations" as virtual files with almost random access:
You can write data to them, you can say "reserve some space here
which I will fill in later", and continue writing data.
And you can of course also read from these virtual files, at any time,
in order to see the data that a given virtual file currently contains.
When you are finished filling in all the different parts of your virtual
file, you can write its contents to a physical, real file this time, or
process it otherwise (purely in memory, if you wish).
Note that this module handles your data completely transparent, which
means that you can use it equally well for text AND binary data.
You might also be interested to know that this module and its concept
has already heavily been put to use in the automatic code generation
of large software projects.
Changes in version 4.0:
-----------------------
+ Extensive rewrite of this module and its documentation.
+ The companion modules "Tie::Handle", "Data::Locations::Proxy"
and "Data::Locations::Shell" are GONE, because "Data::Locations"
now are OBJECTS *and* FILE HANDLES *at the same time*, making
these three modules obsolete (this also means that this module
doesn't need ANY external modules anymore, except the core
modules from the standard Perl distribution "strict",
"Exporter", "Carp" and "Symbol").
+ This module now definitely needs Perl version 5.004 or better.
+ Enhanced support for Windows NT/95.
+ Added method "toplevel()".
+ BEWARE that embedding a top-level location in some other location
now automatically causes it to lose its "top-level" status, as
opposed to previous versions of this module.
Legal issues:
-------------
Copyright (c) 1997, 1998 by Steffen Beyer.
All rights reserved.
This package is free software; you can redistribute it and/or
modify it under the same terms as Perl itself, i.e., under the
terms of the "Artistic License" or the "GNU General Public License".
Credits:
--------
Many thanks go to Mr. Gero Scholz (now head of the IT department at the
Dresdner Bank in Frankfurt, Germany) for his personal support and for
writing the "ProMAC" macro processor (some sort of a precursor to Perl,
in spirit) and for implementing the concept of "locations" in it, which
inspired me to write this Perl module!
Mr. Scholz owes his own inspiration to the "DELTA" macro processor (a tool
widely used during the seventies, it seems), where a rudimentary version of
the concept of "locations" was implemented and where its name ("locations")
seems to originate from.
Author's note:
--------------
If you have any questions, suggestions or need any assistance, please
let me know!
I would in fact be glad to receive any kind of feedback from you!
I hope you will find this module beneficial.
Yours,
--
Steffen Beyer <sb@engelschall.com> http://www.engelschall.com/u/sb/
"There is enough for the need of everyone in this world,
but not for the greed of everyone." - Mahatma Gandhi
------------------------------
Date: 24 May 1998 06:12:17 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Clearly define "free software"
Message-Id: <6k8do1$lgv$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Christopher Seawood
<cls@seawood.org>],
who wrote in article <wrK91.493$r11.1001111@news.san.rr.com>:
> Stefaan A Eeckels (Stefaan.Eeckels@ecc.lu) wrote:
> : Your suggesting that linking the program in order to make it
> : run infringes the GPL is thus plain wrong.
>
> Actually, I was talking about distributing a linked program that
> consists of GPL'd and non-GPL'd parts. And believe me, this is not
> my idea, but what I was told by RMS.
Same here. This is was a frightening testcase: I distribute
readline.dll for a particular platform.
*One cannot dynalink a propriatory program with this DLL.*
Note that this is exactly look-and-feel copyrighting, since to link a
program with a DLL requires only informing the linker the name of DLL
and the name of the export point of this DLL. Thus prohibiting
someone to link with this DLL boils down (though only via technical
details of linking) to prohibiting *interface*.
This is wrong. This is horribly wrong.
Ilya
------------------------------
Date: Sun, 24 May 1998 06:35:54 GMT
From: robert havoc pennington <hp@pobox.com>
Subject: Re: Clearly define "free software"
Message-Id: <wsnvhqww4z9.fsf@harper.uchicago.edu>
ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
>
> Same here. This is was a frightening testcase: I distribute
> readline.dll for a particular platform.
>
> *One cannot dynalink a propriatory program with this DLL.*
>
> Note that this is exactly look-and-feel copyrighting, since to link a
> program with a DLL requires only informing the linker the name of DLL
> and the name of the export point of this DLL. Thus prohibiting
> someone to link with this DLL boils down (though only via technical
> details of linking) to prohibiting *interface*.
>
You are mistaken. A license can only prohibit linking with a
particular implementation of the interface. The interface itself is
not prohibited; you are free to implement it yourself and link it
with whatever you want.
Havoc Pennington ==== http://pobox.com/~hp
------------------------------
Date: 24 May 98 07:45:00 GMT
From: Klaus.Schilling@home.ivm.de
Subject: Re: Clearly define "free software"
Message-Id: <3567cffc.0@news.ivm.net>
>
> Re: Clearly define "free software"
>
> From: fantome/@/usa/./net (le Fanttme)
> References:
> <6jvuc3$dg4$1@csnews.cs.colorado.edu>
> <m33ee4mlwj.fsf@fred.muc.de>
> <jE191.242$C06.1181736@news.san.rr.com>
> <A6791.102$152.1043244@cam-news-reader1.bbnplanet.com>
>Would the recipient be restricted? Those who need the modified package
>would probably have the proprietary library, anyway. What RMS has done
>is made it so that useful programs with useful enhancements based
>against proprietary libraries (again, such as Oracle) can't be
>produced.
Proprietary software like oracle is immoral. Write a GNU-GPLed replacement for
it, if you can't live without something like oracle, and then there won't
be any problems left.
No software is truely useful unless it is free.
Klaus Schilling
------------------------------
Date: 24 May 1998 18:06:08 +0200
From: Rainer Joswig <joswig@lise.lavielle.com>
Subject: Re: Clearly define "free software"
Message-Id: <1ztjwt5b.fsf@lise.lavielle.com>
Klaus.Schilling@home.ivm.de writes:
> Proprietary software like oracle is immoral. Write a GNU-GPLed replacement for
> it, if you can't live without something like oracle, and then there won't
> be any problems left.
>
> No software is truely useful unless it is free.
Either you have forgotten the smily or
you wrote ***big*** bullshit.
Rainer Joswig
------------------------------
Date: 24 May 1998 09:21:28 GMT
From: "jim babbington" <jwb79@mail.idt.net>
Subject: Re: constants in perl(what is grep?)
Message-Id: <01bd86f4$7d1c70c0$6488fdc7@dixon>
Kevin Reid <kpreid@ibm.net> wrote in article
<1d9fi4g.iyp8b63hlitcN@slip166-72-108-214.ny.us.ibm.net>...
> Actually, I was thinking more of people who don't know what "grep" is
> (of which I am not one).
GlobalRegularExpressionPrint - GREP, it would be the beefed up version of
your
WINTEL "find" filter. FIND, however, doesn't handle wildcards, so you
might want
to visit http://www.cygnus.com and download their GNU-BIN utilities, that
contain
grep & sed, and a bunch of other goodies that I often wonder how DOS users
survived
without for so long without ::::::::::::::::::::
an example:
c:>grep win autoexec.* <--- note: "find" can't handle the * thingy
autoexec.bat:PATH=C:\DOS;C:\WINDOWS
autoexec.bat:c:\windows\win.com
<snip>
Jim
------------------------------
Date: Sun, 24 May 1998 08:41:25 GMT
From: brian@brie.com (Brian Lavender)
Subject: Re: Encoding URLs with CGI.pm. How?
Message-Id: <3567dcdf.1010860@news.jps.net>
[mailed, posted]
Here is a little example for ya.
#!/usr/bin/perl
use URI::Escape;
$safe = uri_escape("10% ding dong is enough the \/#$\n");
print $safe, "\n\n";
$original = uri_unescape ($safe);
print $original, "\n";
$verysafe = uri_escape($safe, "\56-\60");
print $verysafe, "\n\n";
On Sat, 23 May 1998 17:49:25 GMT, ljs@cableinet.co.uk (Luke Steele)
wrote:
>Hi,
>
>I'm having real difficulty working out how to encode URLs with CGI.pm.
>If I've got a scalar (called $var, say):
>
>$var = "A string containing spaces, &ersands & and various other
>charaters!!#%$&";
>
>How do convert this into a string suitable for use in a URL? I've
>read all the documentation and FAQs I've been able to lay my hands on
>but to no avail, so any help would be greatly appreciated!
--------
Brian E. Lavender
http://www.brie.com/brian/
With a PC, I always felt limited by the software available.
On Unix, I am limited only by my knowledge.
--Peter J. Schoenster
------------------------------
Date: 24 May 1998 05:25:26 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: GNU attacks on the open software community
Message-Id: <6k8b06$rcr$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Thomas Bushnell, n/BSG
<tb@mit.edu>],
who wrote in article <u1hzpg87eid.fsf@ten-thousand-dollar-bill.MIT.EDU>:
> I think psmith is incorrect, actually. If the perlfaq said "this can
> be distributed under the same terms as Perl itself" then your concerns
> would be entirely legitmate: possibly people might think that the
> examples in perlfaq were covered by the GPL, and if you don't want
> that, you should change things.
No. "as Perl itself" does not imply GPL. The reference to GPL is
there only for those few people for which words GPL associate to a
warm fuzzy feeling. AL is less restrictive than GPL, thus (formally)
a reference to GPL may be removed without any implication. (This is
completely speculative, I did not check AL against GPL word-by-word.)
> One excellent way to do that would be for perlfaq to say "this can be
> distributed under the same terms as Perl itself, with the exception
> that the example Perl programs in perlfaq are in the public domain."
This is very good, but *almost* an overkill. AL is soooo close to
"public domain". The difference may be as small as a comment
/* A part of this code was stolen from Perl source. */
Ilya
------------------------------
Date: 24 May 1998 06:01:36 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: GNU attacks on the open software community
Message-Id: <6k8d40$j3o$1@client3.news.psi.net>
Tyson Richard DOWD (trd@hydra.cs.mu.oz.au) wrote on MDCCXXVII September
MCMXCIII in <URL: news:6k85fp$th9$1@hydra.cs.mu.oz.au>:
++ abigail@fnx.com (Abigail) writes:
++
++ >Barry Margolin (barmar@bbnplanet.com) wrote on MDCCXXVI September
++ >MCMXCIII in <URL: news:e1q91.31$hF2.165182@cam-news-reader1.bbnplanet.com>:
++ >++
++ >++ That's only because Tom's work has a copyright notice preventing them from
++ >++ doing what they want with it. If Tom's work were free, by the FSF
++ >++ definition, they would be able to do things that cmcurtin would probably
++ >++ characterize as "steal". It wouldn't actually be stealing, though, since
++ >++ the nature of this type of free license is that it explicitly permits these
++ >++ activities.
++
++ >Aren't you the same Barry Margolin who claimed the list was 5 years
++ >old and the documentation wasn't there at the time? What is it? Was
++ >the item put there because the documentation wasn't there 5 years ago,
++ >or is it there because of the license?
++
++ This is just rhetoric. Both can be true, there is no contradiction
++ here.
++
++ Some perl advocates have claimed that a to-do item on the FSF's homepage
++ is insulting because doesn't seem to mention Tom C's documentation.
Not just Tom C's. Tom isn't the only person who contributed to the
documentation. The development of Perl is teamwork, including the
documentation. The item suggests there is no good documentation but
the books. Just because perlfaq and perltoot have a different license
doesn't mean the other hundreds [1] of manual pages don't fall under
GPL and/or AL.
If it is the case that the FSF hasn't update the list in 5 years, they
are making a fool of themselves. The list is a list of "urgent" things,
copyrighted 1997 and 1998, yet contains information 5 years old. There
is absolutely no indication this is an old list; in fact, given the
dates on the page, the page was changed less than half a year ago.
If the licenses of Tom C are a problem, then they are insulting the
dozens of people who contributed to the documentation that is free
even in FSFs eyes, as it has the same restrictions as the main Perl
distribution: GPL or AL, whatever your preference is.
Even if it's not insulting for Tom C, it sure is insulting for the
dozens of people who contributed to the manuals that *are* GPL/ALed.
[1] I have 450+ and 5.5+ Mb of man pages directly related to Perl.
Half, if not more, comes with the main Perl distribution.
11 and less than 500k of them consists of perltoot and perlfaq,
the manuals which might not be free enough in FSF's eyes.
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
------------------------------
Date: 24 May 1998 08:02:51 +0200
From: David Kastrup <dak@mailhost.neuroinformatik.ruhr-uni-bochum.de>
Subject: Re: GNU attacks on the open software community
Message-Id: <m2iumwxl2s.fsf@mailhost.neuroinformatik.ruhr-uni-bochum.de>
Nathan Hand <nathanh@chirp.com.au> writes:
> The kernel does not make the operating system. By itself the
> kernel is a fairly pretty but entirely useless piece of code
> that can't be used for anything by anybody.
>
> Because you can't even compile it without the GNU C compiler
> and the GNU bin utilities.
>
> > And as far as the bells and whistles of an OS, silly things like
> > bash, emacs, etc...well, shit.
>
> Silly things? Without the GNU compiler, the GNU editors, the
> GNU text utilities, the GNU bin utilities, the GNU debuggers
> and the GNU shell utilities, Linux would be nothing.
You seem to call everything "GNU" that is under the GPL. In that case
you should not forget the GNU kernel. The Linux kernel is under the
GPL, too.
Without its kernel, Linux would not be quite what it is, as well.
--
David Kastrup Phone: +49-234-700-5570
Email: dak@neuroinformatik.ruhr-uni-bochum.de Fax: +49-234-709-4209
Institut f|r Neuroinformatik, Universitdtsstr. 150, 44780 Bochum, Germany
------------------------------
Date: 24 May 1998 00:36:59 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: GNU attacks on the open software community
Message-Id: <m3btsojf1g.fsf@windlord.Stanford.EDU>
Bart Schuller <schuller@tanglefoot.lunatech.net> writes:
> So, combining this with the digging done by others in this thread, we
> come to the following conclusion:
> Perl comes with a larger body of GPL'd documentation than any GNU
> project.
> What a surprising turn of events that is.
Yeah, interesting, isn't it? Basically, the Perl community has been doing
a *lot* with the GPL, in conjunction with the Artistic License. The FSF,
however, and Stallman in particular, doesn't appear to be particularly
appreciative and is still pursuing his own agendas without much contact
with us at all.
Not that he has to, of course. I just think it would be polite. But I'm
funny that way.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 24 May 1998 01:09:20 -0400
From: Lloyd Zusman <ljz@asfast.com>
Subject: Re: Perl 5.005_xxx
Message-Id: <ltpvh4qmpr.fsf@asfast.com>
David Coldrick <davidc@selectst.com> writes:
> Tom Phoenix wrote:
>
> > I'd tell you where to find a test version, but no one should try
> > one of the test versions who can't find it. :-)
>
> My, but this is a strange newsgroup! So much energy seems to be expending in
> *not* telling people things.
>
> Give the man a break - if he wants to try a test version, giving him a URL
> would be real easy, and save him lots of fooling around, trying to find it.
> Or is this perhaps an initiation ceremony of sorts. Find the test versions,
> become a man.
>
> I dunno, stone knife circumcision might be easier . . . :-)
LOL!
Well, some of the people here believe that giving others help like
this is somehow contributing to those others becoming permanent
leeches on society who never take any initiative on their own. The
aphorism "It's better to teach a hungry man how to fish than to give
him a fish" is often brought up to justify this approach.
I would guess that Ayn Rand is very popular among those who give these
kinds of responses to questions here. :)
In partial defense of those regular contributors who take this
attitude about people posting certain kinds of questions, keep in mind
that there are a lot of inexperienced Perl users coming here asking
FAQ's. There has been a huge effort made over the past couple years
to create some excellent and very complete documentation for Perl so
that these "newbies" have a place to go to find their answers instead
of coming here and cluttering up the newsgroup with their questions.
Some people get quite annoyed at these continually posted FAQ's,
especially those who put their blood, sweat, and tears into creating
all this excellent Perl documentation.
However, it sometimes appears that those who make these comments to
"newbies" and others occasionally fall into knee-jerk patterns in
their responses. For example, someone who wants to test a beta
version of perl.005_x is more than likely not a "newbie" at all.
Furthermore, a person who wants to beta-test a new version is very
unlikely to be someone who is looking to be spoon-fed knowledge
without taking any initiative. However, the response got made anyway,
probably out of habit more than anything else.
And I have to agree with you that a lot of this does indeed look like
a manhood ritual, although I'm not sure whether I would actually
prefer the stone-knife circumcision to the stuff that goes on here.
(shudder!)
> Regards,
> David
>
> PS Not denigrating what you do in this group, Tom. I'm definitely among the
> many who greatly appreciate your contributions.
As am I, Tom, in case you didn't know.
--
Lloyd Zusman ljz@asfast.com
perl -e '$n=170;for($d=2;($d*$d)<=$n;$d+=(1+($d%2))){for($t=0;($n%$d)==0;
$t++){$n=int($n/$d);}while($t-->0){push(@r,$d);}}if($n>1){push(@r,$n);}
$x=0;map{$x+=(($_>0)?(1<<log($_-0.5)/log(2.0)+1):1)}@r;print"$x\n"'
------------------------------
Date: 24 May 1998 10:38:15 GMT
From: emil@libra.math.tau.ac.il (Emil Vatralov)
Subject: perl5 <=> perl4 incompatibility ?
Message-Id: <6k8tan$gou$1@goethe.tau.ac.il>
Keywords: split
Can someone, please, explain me why the following
small program prints differnt output in perl4 and perl5,
As for me perl4 is more compatible with manual.
perl4 -e '@c = split (/:/, "", -1); print "<$#c>\n"'
<0>
perl5 -e '@c = split (/:/, "", -1); print "<$#c>\n"'
<-1>
--
Regards,
Victor
------------------------------
Date: 24 May 1998 10:30:39 GMT
From: mensch@spinfo.uni-koeln.de (Guido Mensching)
Subject: Re: Problems with "print"
Message-Id: <6k8ssf$3jp@news.rrz.Uni-Koeln.DE>
Tom Phoenix (rootbeer@teleport.com) wrote:
: I don't think that the pos function is doing what you think it is doing.
: Could that be the problem? See perlfunc. Hope this helps!
Thanks for your help! The function itself works; e.g.:
$string =~m/house/g;
if (pos $string > 1) {print "Not found"};
If the substring "house" is found, the pos variable is > 1 and the
message "Not found" is printed to the UNIX-screen. If the program
runs interactively with a web-client, nothing is printed. It seems to
me that the program gets confused with the output-stream. Is there any way
to specify that I want the material to be printed to the web-client
from which the program was called? I tried print STDOUT, but that didn't
change things.
--
==========================================================================
Guido Mensching --- Linguistic Data Processing --- University of Cologne
mensch@spinfo.uni-koeln.de --- Tel. 49-221-4704430 --- FAX: 49-221-4705193
See http://www.spinfo.uni-koeln.de for information about our Department.
==========================================================================
------------------------------
Date: 24 May 1998 05:39:13 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Suggestion Re: GNU attacks on the open software community
Message-Id: <6k8bq1$9tq$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to
<fredrik@pythonware.com>],
who wrote in article <6k6lfs$5ct$1@nnrp1.dejanews.com>:
> In article <6k2vup$lf2$1@csnews.cs.colorado.edu>,
> tchrist@mox.perl.com (Tom Christiansen) wrote:
> >
> > I am thoroughly and utterly disgusted by every lying word you breath.
> > May your lies follow you to Hell. Begone.
>
> Ah. Both usenet and tchrist at their best, in a single post.
> Forever archived by dejanews. Isn't this a wonderful world ?
Yah. It also happens that he even puts *me* on his "do not even try
to mail me" list. Funny thing is that he continues to ask me
questions in meantime (by email ;-). I dutifully answer them,
considering that it is not my fault that he is (pretends on?) not
getting my answers. ;-)
Usually he removes me from this list after some calm-down delay ;-).
Ilya
------------------------------
Date: 24 May 1998 02:48:48 -0500
From: Bob Nelson <bnelson@netcom.com>
Subject: Re: Suggestion Re: GNU attacks on the open software community
Message-Id: <6k8jd0$i33$1@renpen.nelson.org>
In gnu.misc.discuss Thomas Bushnell, n/BSG <tb@mit.edu> wrote:
[ Recent topics pertaining to burning in hell, mental health, vi vs.
emacs, perl vs. guile, free vs. free, prose vs. poetry and
the Jazz vs. the Lakers elided. ]
> Being an out gay Christian on Usenet exposes one to a fair amount of
> hate mail, so I was well prepared for Tom's email. It's a shame he's
> do fond of the tactics of Jesse Helms and his ilk.
Ever thought about going on ``Springer'' with all this between you
and Tom C? It'd be a more appropriate venue given the general level
of the discourse as of late. The way thing are going, some hair
pullin' and chair throwin' isn't out of the question.
(BTW...I'll take Jesse Helms any day over the likes of Teddy Kennedy,
Barney Frank, [the late] Tip O'Neil and and that kind of crowd).
--
========================================================================
Bob Nelson -- Dallas, Texas, USA (bnelson@iname.com)
Well...Unix, of course. Because windoze is a pathethic toy...
God bless Texas and the death penalty
------------------------------
Date: Sun, 24 May 1998 09:43:31 GMT
From: Marc.Haber-usenet@gmx.de (Marc Haber)
Subject: Re: Taint, untaint, recusion and internal functions
Message-Id: <6k8q48$3lj$4@nz12.rz.uni-karlsruhe.de>
kpreid@ibm.net (Kevin Reid) wrote:
>I'm using a Mac; no command line here.
Ouch :-)
Greetings
Marc
--
-------------------------------------- !! No courtesy copies, please !! -----
Marc Haber | " Questions are the | Mailadresse im Header
Karlsruhe, Germany | Beginning of Wisdom " | Fon: *49 721 966 32 15
Nordisch by Nature | Lt. Worf, TNG "Rightful Heir" | Fax: *49 721 966 31 29
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 2708
**************************************
