[14041] in Perl-Users-Digest
Perl-Users Digest, Issue: 1451 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 22 00:06:35 1999
Date: Sun, 21 Nov 1999 21:05:52 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <943247152-v9-i1451@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 21 Nov 1999 Volume: 9 Number: 1451
Today's topics:
Re: alias a mailer (Martien Verbruggen)
Re: Autoresponder <rootbeer@redcat.com>
Re: Can Perl return the ASCII code for a given characte <cassell@mail.cor.epa.gov>
can't find db.h lib.db (2nd post) <bunjonwa@trek.CS.ORST.EDU>
Re: can't find db.h lib.db (John McKown)
Can't rename files with Perl5 <bruce@reedcommunications.com>
Re: Can't rename files with Perl5 (Brett W. McCoy)
Re: Case Change Text UPPER CASE to Title Case? (Craig Berry)
Re: Case Change Text UPPER CASE to Title Case? <cassell@mail.cor.epa.gov>
Re: Case Change Text UPPER CASE to Title Case? (Brett W. McCoy)
Re: Case Change Text UPPER CASE to Title Case? (Abigail)
Case statement syntax <palchin@dragnet.com.au>
Catching STDOUT to an array <Antti-Jussi.Korjonen@sonera.com>
Re: Catching STDOUT to an array lee.lindley@bigfoot.com
Re: Catching STDOUT to an array (Tad McClellan)
Combined class+object method? <geze@pp.REMOVETHIS.inet.fi>
Re: Combined class+object method? <rick.delaney@home.com>
Re: Combined class+object method? lee.lindley@bigfoot.com
Re: Combined class+object method? (Abigail)
Re: Date and Files <cassell@mail.cor.epa.gov>
Re: Date Problem - Whats the deal with this? <cassell@mail.cor.epa.gov>
Re: Datek to Quicken account converter <greg_christyNOgrSPAM@hotmail.com.invalid>
Re: Defeating web-based http proxies (Asher)
Re: Encryption Algorithm for Perl Source Code?? - activ jut@letterbox.com
Re: Encryption Algorithm for Perl Source Code?? - activ <lr@hpl.hp.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 22 Nov 1999 01:27:32 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: alias a mailer
Message-Id: <8_0_3.152$Eu1.4395@nsw.nnrp.telstra.net>
On Sun, 21 Nov 1999 08:37:29 -0800,
Larry Rosler <lr@hpl.hp.com> wrote:
> In article <slrn83fmt1.cna.mgjv@localhost.localdomain> on 21 Nov 1999
> 11:44:46 GMT, Martien Verbruggen <mgjv@localhost.localdomain> says...
> > On Sat, 20 Nov 1999 09:41:30 GMT,
> > Fox <hry@163.net> wrote:
>
> ...
>
> > > >> 554 |/www/fox/test.pl... unknown mailer error 126
> > > >That's an error from your MTA, not from perl
> > > where to change to slove this error?
> >
> > Sorry.. I don't understand. slove is not english, and I can't, even
> > trying very hard, come up with a meaning for it, allowing for many sorts
> > of typos and/or misspellings. Do you mean 'get rid of'?
>
> How hard is 'trying very hard'? I bet you didn't try creating an
> anagram signature, then running it over /usr/dict/words? You might have
> come up with a two-letter metathesis such as 'solve'.
Ack. of course :/
I honestly didn't think of that. And I did try.
--
Martien Verbruggen |
Interactive Media Division | We are born naked, wet and hungry.
Commercial Dynamics Pty. Ltd. | Then things get worse.
NSW, Australia |
------------------------------
Date: Sun, 21 Nov 1999 10:43:22 -0800
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Autoresponder
Message-Id: <Pine.GSO.4.10.9911211039100.16575-100000@user2.teleport.com>
On Sun, 21 Nov 1999, Mark Henderson wrote:
> I would like to write an autoresponder that can accept an array of
> email addresses so that I can email the confirmation back to them and
> send it on to an administrator in my organization. Any advice, code,
> or resources that you know of are greatly appreciated.
I suppose I could construe that request as asking for the entire contents
of CPAN to be mailed to you. But I'll limit myself to pointing out this
URL to get you started.
http://www.cpan.org/
Hint: Try reading the perltoc manpage, and see whether it gives you any
ideas.
Second hint: If you need something _specific_ about Perl which isn't
covered in the docs, you can ask about it here. But when you ask for
help on something as general as an "autoresponder", well, it's hard to
find a Perl module, operator, or function which couldn't be used in some
way in helping you to write it. Next time, tell us where you got stuck.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 21 Nov 1999 16:47:42 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Can Perl return the ASCII code for a given character?
Message-Id: <383892AE.89E02754@mail.cor.epa.gov>
Abigail wrote:
[the usual amazing code]
May I just say in all admiration, that this snippet is so evil
that it was probably responsible for turning Darth Vader's head
into that rotting crociferous vegetable thing?
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 21 Nov 1999 12:49:43 -0800
From: Waranun Bunjongsat <bunjonwa@trek.CS.ORST.EDU>
Subject: can't find db.h lib.db (2nd post)
Message-Id: <Pine.GSO.4.03.9911211229300.4437-100000@trek.CS.ORST.EDU>
Hi,
Sorry about disturbing you guys again .....
I have a question that I tried to build DB_File, but I can't find
db.h and lib.db. Are they supposed to come with Perl5 ?
Thanks in advance,
Waranun,
------------------------------
Date: Sun, 21 Nov 1999 08:01:05 -0500
From: joarmc@linux2.johnmckown.net (John McKown)
Subject: Re: can't find db.h lib.db
Message-Id: <slrn83fup1.qok.joarmc@linux2.johnmckown.net>
In article <Pine.GSO.4.03.9911202211580.3441-100000@trek.CS.ORST.EDU>,
Waranun Bunjongsat wrote:
> I tried to build DB_File, but I can't find db.h and lib.db. Are
>they supposed to come with Perl5 ?
On my RedHat 6.0 system, db.h came with the glibc development package,
not Perl. I don't have anything called lib.db on my system. Perhaps you
meant libdb.so? That also came with the glibc developement package.
Hope this helped,
John
------------------------------
Date: Sun, 21 Nov 1999 22:24:46 -0500
From: bruce E Reed <bruce@reedcommunications.com>
Subject: Can't rename files with Perl5
Message-Id: <3838B77E.7A0CC904@reedcommunications.com>
I am running ActivePerl on a Windows98 machine and I can not seem to
rename or delete files with perl5. I can read files and create new files
by writing out, but I can't change the names or delete them. I am
relatively new to perl5, but I believe I am using the rename command
correctly with this format:
rename($OldName,$NewName);
I have tried running programs both at the command prompt and though the
free
"Microsoft Personal Web Server" and nothing
seems to work :(
Anyone know what is going on ?
What should I do about it ?
Bruce
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 22 Nov 1999 03:28:13 GMT
From: bmccoy@news.lan2wan.com (Brett W. McCoy)
Subject: Re: Can't rename files with Perl5
Message-Id: <slrn83heab.jbm.bmccoy@dragosani.lan2wan.com>
Also sprach bruce E Reed <bruce@reedcommunications.com>:
>I am running ActivePerl on a Windows98 machine and I can not seem to
>rename or delete files with perl5. I can read files and create new files
>by writing out, but I can't change the names or delete them. I am
>relatively new to perl5, but I believe I am using the rename command
>correctly with this format:
>rename($OldName,$NewName);
Have you tried
rename($oldname, $newname) or die "Error renaming $oldname: $!\n";
$! can tell you give you information on error states, and the function
returns 0 on failure.
--
Brett W. McCoy
http://www.lan2wan.com/~bmccoy/
-----------------------------------------------------------------------
If one cannot enjoy reading a book over and over again, there is no use
in reading it at all.
-- Oscar Wilde
------------------------------
Date: Mon, 22 Nov 1999 00:16:28 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Case Change Text UPPER CASE to Title Case?
Message-Id: <s3h2qspk3ef80@corp.supernews.com>
Rick Trankle (rjt@dviews.com) wrote:
: Is there a routine for changing uppercase text between two markers to
: title case (Upper/Lower)?
:
: à SOME TEXT TO CHANGE ê
: to this:
: à Some Text To Change ê
To do this mechanically, s/(\w+)/\u\L$1/g suffices. Note however that
typically title-casing leaves some articles and prepositions in lowercase.
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "They do not preach that their God will rouse them
a little before the nuts work loose." - Kipling
------------------------------
Date: Sun, 21 Nov 1999 17:45:09 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Case Change Text UPPER CASE to Title Case?
Message-Id: <3838A025.581768FD@mail.cor.epa.gov>
Craig Berry wrote:
>
> Rick Trankle (rjt@dviews.com) wrote:
> : Is there a routine for changing uppercase text between two markers to
> : title case (Upper/Lower)?
> :
> : à SOME TEXT TO CHANGE ê
> : to this:
> : à Some Text To Change ê
>
> To do this mechanically, s/(\w+)/\u\L$1/g suffices. Note however that
> typically title-casing leaves some articles and prepositions in lowercase.
As Craig pointed out, this is strictly mechanical. It won't
work on these words:
isn't
twenty-one
to name but two. That's because of the way \w works.
But there is a more-complex solution in the FAQ.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Mon, 22 Nov 1999 03:31:58 GMT
From: bmccoy@news.lan2wan.com (Brett W. McCoy)
Subject: Re: Case Change Text UPPER CASE to Title Case?
Message-Id: <slrn83hehc.jbm.bmccoy@dragosani.lan2wan.com>
Also sprach Rick Trankle <rjt@dviews.com>:
>Is there a routine for changing uppercase text between two markers to
>title case (Upper/Lower)?
>
>à SOME TEXT TO CHANGE ê
>
>to this:
>
>à Some Text To Change ê
How long did you peruse the documentation or the archives of this
newsgroup or any FAQs?
Lookup 'ucfirst'.
--
Brett W. McCoy
http://www.lan2wan.com/~bmccoy/
-----------------------------------------------------------------------
Some men are so macho they'll get you pregnant just to kill a rabbit.
-- Maureen Murphy
------------------------------
Date: 21 Nov 1999 22:43:56 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Case Change Text UPPER CASE to Title Case?
Message-Id: <slrn83himk.m2v.abigail@alexandra.delanet.com>
Craig Berry (cberry@cinenet.net) wrote on MMCCLXXIV September MCMXCIII in
<URL:news:s3h2qspk3ef80@corp.supernews.com>:
&& Rick Trankle (rjt@dviews.com) wrote:
&& : Is there a routine for changing uppercase text between two markers to
&& : title case (Upper/Lower)?
&& :
&& : à SOME TEXT TO CHANGE ê
&& : to this:
&& : à Some Text To Change ê
&&
&& To do this mechanically, s/(\w+)/\u\L$1/g suffices. Note however that
&& typically title-casing leaves some articles and prepositions in lowercase.
That doesn't really take any of the markers into account, does it?
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54"; s/<<EOT/<<EOT/e; print;
Just another Perl Hacker
EOT
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 22 Nov 1999 10:19:16 +1100
From: "Paul" <palchin@dragnet.com.au>
Subject: Case statement syntax
Message-Id: <38387f4e.0@neptune.dragnet.com.au>
Hi everyone,
I have a simple shell script that checks to see if a name is in a file, if
it is it writes TRUE into another file, if not it writes FALSE.
Would someone know the syntax for converting this to perl please ?
here it is
#!/bin/sh
WORKDIR=/temp
USER=`grep $1 $WORKDIR/a.db`
case $USER in
*"user = $1"*) echo "TRUE" > $WORKDIR/CHECK_USER;;
*) echo "FALSE" > $WORKDIR/CHECK_USER;;
esac
thanks,
Paul
paul@dragnet.com.au
------------------------------
Date: Sun, 21 Nov 1999 19:32:56 GMT
From: Antti-Jussi Korjonen <Antti-Jussi.Korjonen@sonera.com>
Subject: Catching STDOUT to an array
Message-Id: <383848E7.B2DFDA2A@sonera.com>
Hi!
Is it possible to redirect STDOUT or STDERR to an array without
having to circle it through a file?
--
__/ __/ __/ __/ Antti-Jussi Korjonen
__/ __/ __/ __/ __/__/ Kaarikatu 15-17 A9
__/ __/ __/ __/ __/__/ 33100 TAMPERE, FINLAND
__/ __/ __/__/__/ __/ __/ tel. +358-(0)40-538 5730
Antti-Jussi.Korjonen@sonera.com
------------------------------
Date: 21 Nov 1999 21:02:20 GMT
From: lee.lindley@bigfoot.com
Subject: Re: Catching STDOUT to an array
Message-Id: <819mks$1eq$1@rguxd.viasystems.com>
Antti-Jussi Korjonen <Antti-Jussi.Korjonen@sonera.com> wrote:
:>Hi!
:>Is it possible to redirect STDOUT or STDERR to an array without
:>having to circle it through a file?
Yes. `perldoc perlop` and page down to the section on `STRING`
(if you are searching, include the backquotes).
my @array = `some_command 2>&1`;
However, if you are talking about a command that you are opening
as a writable pipe, then the answer is more complex.
`perldoc -q stderr` brings up quite a bit on this topic.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: Sun, 21 Nov 1999 13:05:39 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Catching STDOUT to an array
Message-Id: <slrn83gd3j.6hv.tadmc@magna.metronet.com>
On Sun, 21 Nov 1999 19:32:56 GMT, Antti-Jussi Korjonen
<Antti-Jussi.Korjonen@sonera.com> wrote:
>Is it possible to redirect STDOUT or STDERR to an array without
>having to circle it through a file?
see "qx/STRING/" in the perlop.pod man page.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 21 Nov 1999 19:49:31 GMT
From: "Geze" <geze@pp.REMOVETHIS.inet.fi>
Subject: Combined class+object method?
Message-Id: <f1YZ3.272$JG.9701@read2.inet.fi>
Hi.
I just recently decided to make myself familiar with Perl. Now I'm trying to
learn object-oriented perl, but I found myself stuck with a (probably easy)
problem...
I'm trying to create a method, that works both as a Class method (a
constructor, actually), and as an object method, depending on how it is
called.
Here's how the method is used:
my $obj=MyClass->method("something"); #Constructor, creates "$obj"
print $obj->method; #this should print "something".
So when it's used as a class-method, it should create an object which holds
the string passed as an argument. As an object-method, it should simply
return whatever string the object holds.
I browsed through several man-pages, but no cigar... Could anyone tell how
this should be done (or if it's even possible?)?
Geze
------------------------------
Date: Sun, 21 Nov 1999 20:56:42 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Combined class+object method?
Message-Id: <38385CAA.CA7E3C83@home.com>
Geze wrote:
>
> I'm trying to create a method, that works both as a Class method (a
> constructor, actually), and as an object method, depending on how it is
> called.
...
> I browsed through several man-pages, but no cigar... Could anyone tell how
> this should be done (or if it's even possible?)?
I can see how you might miss it browsing, but go back and read right
through.
From perlobj:
Or if you expect people to call not just CLASS->new() but also
$obj->new(), then use something like this. The initialize()
method used will be of whatever $class we blessed the object into:
sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = {};
bless $self, $class;
$self->initialize();
return $self;
}
In this example, the constructor is both a class method and an object
method. The line
my $class = ref($this) || $this;
is getting the class name in one of two ways:
1. ref($this) returns the class name if the method was called on an
object. Repeat after me, "An object is a reference".
2. $this is the class name if $this is not a reference (object).
So it becomes easy to have a method that behaves differently depending
on whether it is called on an object or class. Just use ref() to find
out which.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 21 Nov 1999 21:28:39 GMT
From: lee.lindley@bigfoot.com
Subject: Re: Combined class+object method?
Message-Id: <819o67$1tj$1@rguxd.viasystems.com>
Geze <geze@pp.REMOVETHIS.inet.fi> wrote:
:>I just recently decided to make myself familiar with Perl. Now I'm trying to
:>learn object-oriented perl, but I found myself stuck with a (probably easy)
:>problem...
:>I'm trying to create a method, that works both as a Class method (a
:>constructor, actually), and as an object method, depending on how it is
:>called.
[snip]
:>I browsed through several man-pages, but no cigar... Could anyone tell how
:>this should be done (or if it's even possible?)?
perldoc perltoot
perldoc perlobj
You seem to already know the OO terminology and concepts. The above
manual pages should be adequate for your needs. I'm not an OO
boffin, but I found perltoot to be a pretty thorough treatment.
The specific answer to your question can be found in both of
them. (Hint: ref())
If you really want to get down and dirty with OO Perl, Damian Conway's
new book has been reviewed positively.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 21 Nov 1999 16:14:28 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Combined class+object method?
Message-Id: <slrn83grsb.m2v.abigail@alexandra.delanet.com>
Geze (geze@pp.REMOVETHIS.inet.fi) wrote on MMCCLXXIII September MCMXCIII
in <URL:news:f1YZ3.272$JG.9701@read2.inet.fi>:
..
.. I just recently decided to make myself familiar with Perl. Now I'm trying to
.. learn object-oriented perl, but I found myself stuck with a (probably easy)
.. problem...
..
.. I'm trying to create a method, that works both as a Class method (a
.. constructor, actually), and as an object method, depending on how it is
.. called.
..
.. Here's how the method is used:
..
..
.. my $obj=MyClass->method("something"); #Constructor, creates "$obj"
.. print $obj->method; #this should print "something".
..
..
.. So when it's used as a class-method, it should create an object which holds
.. the string passed as an argument. As an object-method, it should simply
.. return whatever string the object holds.
If those are the only possible calls for method, just check for the
number of arguments. (Or whether the first argument is a reference).
#!/opt/perl/bin/perl -w
use strict;
package MyClass;
sub method {
@_ == 1 ? ${$_ [0]} : bless \(my $s = $_ [1]) => $_ [0];
}
package main;
print MyClass -> method ("Foo!\n") -> method;
__END__
Foo!
Looks like it works.
However, I recommend you don't misuse methods this way.
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54";
print if s/<<EOT/<<EOT/e;
Just another Perl Hacker
EOT
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 21 Nov 1999 16:50:25 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Date and Files
Message-Id: <38389351.30AF32BA@mail.cor.epa.gov>
Jaime Perez wrote:
>
> Have you ever used the Date module?
There is no 'Date' module. There are several very useful modules
like Date::Calc and Date::Manip, but no module just called Date.
Also, it is considered good form in this newsgroup to put your
replies *after* the quoted text, so that others may continue
the thread. That is, after all, standard Usenet manners. I'm
sure you'll do so next time.
Thanks in advance,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 21 Nov 1999 17:18:02 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Date Problem - Whats the deal with this?
Message-Id: <383899CA.B78D2FB5@mail.cor.epa.gov>
Abigail wrote:
> larry (larrymac@strato.net) wrote on MMCCLXXIII September MCMXCIII in
> <URL:news:SzJZ3.32519$YI2.1567924@typ11.nn.bcandid.com>:
[snip]
> -- Its returning 10/20/99 on 11/20/99 yet when I look at the file dates on the
[snip]
> Wow, there are 20 months in 1999?
Of course. It's the American solution to the Y2K problem. We
give an extra 8 months to 1999 to see where everyone else
bollixes stuff up, so we have roughly 240 days to patch things.
I understand someone got the idea from some Usenetter who
posts based on days past September 1993.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Sun, 21 Nov 1999 19:42:49 -0800
From: Who's Your Daddy <greg_christyNOgrSPAM@hotmail.com.invalid>
Subject: Re: Datek to Quicken account converter
Message-Id: <000b8d9b.e34d4f94@usw-ex0101-004.remarq.com>
I would like your script. Where is it posted? Also, for someone who
knows nothing about PERL, what do I need to know to get it to work?
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Sun, 21 Nov 1999 19:56:40 GMT
From: asher@magicnet.net (Asher)
Subject: Re: Defeating web-based http proxies
Message-Id: <slrn83glkj.8r0.asher@localhost.localdomain>
On Fri, 19 Nov 1999 21:52:58 GMT, Jason <mdb7@my-deja.com> wrote:
>Hello,
>
>I run a website site for an interactive community which has
>unfortunately been plagued over the years by a certain problem user who
>has in the past been responsible for harassing and stalking visitors. In
First decide if:
a) The high cost user is abusing your web site to harm other users.
This implies that his use of the site is measurably different
from the norm.
- or -
b) The high cost user is harming users by other means, and only using
your site tangentially or to gain information about his targets.
Therefore, his use of your site may have a normal profile.
If (a), you should check out:
http://photo.net/wtr/thebook/case-studies.html
specifically, Case 4: The Bulletin Board. Greenspun had the advantage
of knowing the high cost user's name, as he had not forced the user to
resort to subterfuge. You will face a more challenging task.
If (b), I'd question the wisdom (and feasibility) of denying a user
access to an online resource based on the user's behavior in other
environments.
Sorry there's no technical silver bullet. I think that sites which
block anonymous proxies do so by sheer elbow grease - someone must
search for new services and add them to the blocklist continually.
>works? Port 80 socket connections to see if an address is a website are
>just too slow, as most of my visitors aren't connected to a T3. I was
Not to mention that the proxy is under no obligation to use the same ip
for the server front end as it uses for the client back end. Or that
some machines are used for both web serving and shell accounts.
Nothing to do with Perl, but I couldn't resist.
Good luck.
------------------------------
Date: Mon, 22 Nov 1999 02:03:03 GMT
From: jut@letterbox.com
Subject: Re: Encryption Algorithm for Perl Source Code?? - activator.cgi (0/1)
Message-Id: <3838a3ab.8577083@news.singnet.com.sg>
Oh yeah, I looked up the documentation for it. I did use the -MO
switch.
I think the best way is still to post it up here, so whoever's
interested can have a crack at it. Although it's technivally
commercial software, they've got demo versions on their website, so I
don't think I'm infringing any copyrights here.
On Sun, 21 Nov 1999 20:00:03 GMT, *@dragons.duesouth.net (Matthew
Bafford) wrote:
>[Please place your replies below the message you are replying to. This
> lets people quickly glance over the previous message and freshen up on
> what's going on.]
>
Sorry, I'm kinda new to this.
>On Sun, 21 Nov 1999 17:35:44 GMT, jut@letterbox.com poured coffee onto a
>keyboard, producing the following in comp.lang.perl.misc:
>: On 21 Nov 1999 09:47:15 GMT, simon@brecon.co.uk (Simon Cozens) wrote:
>: >Would this be a bad time to mention B::Deparse, then?
>:
>: I'm sorry man, but I'm afraid it doesn't do much! It still prints out
>: the obfuscated code! Don't even begin to ask me why. Logically any
>: data readable by the compiler should have been readable already.
>
>Perhaps you aren't using B::Deparse correctly? It's a bit unintuitive.
>
>perl -MO=Deparse myprogram
>
>For example:
>
> #!/usr/bin/perl -w
> ($o=shift)||die"Usage: rename expr [files]\n";
> chomp(@ARGV=<STDIN>)unless@ARGV;eval"sub z{$o}1";
> die"$@\n$o\n"if$@;for(@ARGV){$was=$_;&z;rename($was,$_)
> unless$was eq$_;}
>
>Becomes:
>
> die "Usage: rename expr [files]\n" unless $o = shift @ARGV;
> chomp(@ARGV = <STDIN>) unless @ARGV;
> eval "sub z{$o}1";
> die "$@\n$o\n" if $@;
> foreach $_ (@ARGV) {
> $was = $_;
> &z;
> rename $was, $_ unless $was eq $_;
> }
>
>If you use the -p option to O=Deparse; perl -MO=Deparse,-p myprogram, you
>get:
>
> (($o = shift(@ARGV)) or die("Usage: rename expr [files]\n"));
> (@ARGV or chomp((@ARGV = <STDIN>)));
> eval("sub z{$o}1");
> ($@ and die("$@\n$o\n"));
> foreach $_ (@ARGV) {
> ($was = $_);
> &z;
> (($was eq $_) or rename($was, $_));
> }
>
>Which helps emphasize precedence.
>
>Also, B::Deparse may not work unless it comes with your version of Perl.
>
>--Matthew
------------------------------
Date: Sun, 21 Nov 1999 19:36:39 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Encryption Algorithm for Perl Source Code?? - activator.cgi (0/1)
Message-Id: <MPG.12a25a25b8e5967398a24b@nntp.hpl.hp.com>
In article <3838a3ab.8577083@news.singnet.com.sg> on Mon, 22 Nov 1999
02:03:03 GMT, jut@letterbox.com <jut@letterbox.com> says...
> Oh yeah, I looked up the documentation for it. I did use the -MO
> switch.
>
> I think the best way is still to post it up here, so whoever's
> interested can have a crack at it. Although it's technivally
> commercial software, they've got demo versions on their website, so I
> don't think I'm infringing any copyrights here.
>
> On Sun, 21 Nov 1999 20:00:03 GMT, *@dragons.duesouth.net (Matthew
> Bafford) wrote:
>
> >[Please place your replies below the message you are replying to. This
> > lets people quickly glance over the previous message and freshen up on
> > what's going on.]
> >
>
> Sorry, I'm kinda new to this.
And responding directly after that suggestion from Matthew Bafford, you
still go on to quote dozens of lines of stuff on which you commented
above the message. It's hard to decide whether you are blind or dumb,
malicious or stupid.
> >On Sun, 21 Nov 1999 17:35:44 GMT, jut@letterbox.com poured coffee onto a
> >keyboard, producing the following in comp.lang.perl.misc:
...
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 1451
**************************************
