[16431] in Perl-Users-Digest
Perl-Users Digest, Issue: 3843 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 29 14:05:35 2000
Date: Sat, 29 Jul 2000 11:05:15 -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: <964893915-v9-i3843@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 29 Jul 2000 Volume: 9 Number: 3843
Today's topics:
Re: Apology to perl newsgroup <bart.lateur@skynet.be>
Re: Apology to perl newsgroup <dave@dave.org.uk>
Re: Apology to perl newsgroup <uri@sysarch.com>
Re: Better way to do this pattern match? <bart.lateur@skynet.be>
Re: Converting strings to numbers for comparison paul5544@my-deja.com
Re: Differences between two files? <bart.lateur@skynet.be>
Re: Differences between two files? <lr@hpl.hp.com>
Does someone knows good in-line alias? <q13915@cig.nml.mot.com>
Re: Does someone knows good in-line alias? <tony_curtis32@yahoo.com>
Re: ecologically printed perldocs <lr@hpl.hp.com>
Re: Error with dbd using Oracle (NP)
Re: flatfile storage <gellyfish@gellyfish.com>
Help with param method in CGI.pm <snakeman@kc.rr.com>
Re: Help with param method in CGI.pm <dave@dave.org.uk>
Re: Help with param method in CGI.pm <care227@attglobal.net>
Re: Help with param method in CGI.pm <snakeman@kc.rr.com>
Re: hide or encrypted Per source? <nospam.tom@hotmail.com>
Re: hide or encrypted Per source? <gellyfish@gellyfish.com>
Re: hide or encrypted Per source? <nospam.tom@hotmail.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 29 Jul 2000 14:12:35 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Apology to perl newsgroup
Message-Id: <8ip5ossni0mv514na5a3sq73rmj2uanfol@4ax.com>
Lauren Smith wrote:
>> Also, could anyone please tell me what
>> a killfile is?
>It's a system that filters out selected induhviduals.
Funny misspelling.
--
Bart.
------------------------------
Date: Sat, 29 Jul 2000 16:29:57 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: Apology to perl newsgroup
Message-Id: <m0u5oss4kt0sfb4ke4l80rb3bnsi9t352c@4ax.com>
On Sat, 29 Jul 2000 06:16:03 GMT, andrew-johnson@home.com (Andrew
Johnson) wrote:
>In article <3981FE3A.D2807E3B@toy.eyep.net>,
> jtoy <toyboy@toy.eyep.net> wrote:
>! never heard of it before. And finally, what specific material would
>! you recommend for me to read to get a dip into perl? Thanks.
>
>I can't give an unbiased recommendation for dead trees but,
What Andrew is too modest to say is that his book "Elements of
Programming with Perl" is probably the best book for a newcomer to
both programing and Perl.
hth,
Dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: Sat, 29 Jul 2000 15:45:26 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Apology to perl newsgroup
Message-Id: <x78zul54a2.fsf@home.sysarch.com>
>>>>> "BL" == Bart Lateur <bart.lateur@skynet.be> writes:
BL> Lauren Smith wrote:
>>> Also, could anyone please tell me what
>>> a killfile is?
>> It's a system that filters out selected induhviduals.
BL> Funny misspelling.
it's from dilbert.
it is what dogbert calls most people in the dnrc and the
newsletter. check out dilbert.com and
http://dilbert.com/comics/dilbert/dnrc/index.html
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Sat, 29 Jul 2000 16:12:13 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Better way to do this pattern match?
Message-Id: <o8v5os45vrl4p9430mia7bbsg0qpjhjtl8@4ax.com>
Jim Mauldin wrote:
>"must not have", otherwise at least one of the remaining terms must be
>found.
>
>Here's as short as I can make it, but my handicap is still pretty high.
>Is there a better way?
>
>$_ = 'Larry +Moe -Curly Jeff Mutt Houdini +Mike'; # vary at will
>push @musts, $1 while s/\+(\w+)\s?//;
>push @nots, $1 while s/-(\w+)\s?//;
Ah, too much work.
@musts = /\+(\w+)/g;
@nots = /\-(\w+)/g;
and:
@maybe = /(?<![\w\+\-])(\w+)/g;
But, ignoring what you've done here's how I would tackle this (for
relatively small search spaces). First, construct a string of Perl code,
with all matches. Second, eval this string into an anonymous sub.
Finally, match against each string in your data.
$_ = 'Larry +Moe -Curly Jeff Mutt Houdini +Mike'; # vary at will
my %prefix = ( '+' => '', '-' => '!' );
my(@regex, @or);
while(/([+-]?)(\w+)/g) {
if($1) {
push @regex, "$prefix{$1}/$2/";
} else {
push @or, $2;
}
}
local $" = '|';
my $sub = " sub { local \$_ = shift; @{[
join ' && ', @regex, @or?qq'/@or/':() ]} }";
# print "$sub\n";
my $search = eval $sub or die "Cannot build search code: $@";
while(<DATA>) {
print "Match: $_" if $search->($_);
}
--
Bart.
------------------------------
Date: Sat, 29 Jul 2000 16:11:05 GMT
From: paul5544@my-deja.com
Subject: Re: Converting strings to numbers for comparison
Message-Id: <8luvmm$h86$1@nnrp1.deja.com>
In article <8lujvn$m73$1@orpheus.gellyfish.com>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> On Sat, 29 Jul 2000 05:53:22 GMT paul5544@my-deja.com wrote:
> > I recently discovered this forum and have soaked up quite a bit
from all
> > of the fantastic brains here.
>
> I think you must be thinking of some other newsgroup ... ;-}
>
> > I was hoping someone could provide
some
> > help to a programmer new to the PERL language.
> >
> > I am trying to compare two values together.
> > But they need to be converted to numbers.
> > Here is my current statement
> > if ($line =~ "<price>")
> > {
> > if ($line =~ /$target/i)
> > {
> > $found_flag = 1;
> > }
> > }
> > This works fine if $line and $target are equal. However, I want the
> > statement to be something like
> > if ($line =~ "<price>")
>
> If '<price>' is a literal then this should be $line =~ /<price>/ ...
> otherwise you should explain what it is more clearly.
>
> > {
> > if ($line <= $target)
> > {
> > $found_flag = 1;
> > }
> > }
> > This way $found_flag=1 if the $target value is equal to or less then
> > (but greater then zero) the $line value.
> >
> > Can anyone help me to convert these values to numbers for
comparison?
> > Very much appreciate any help and thanks to all those that
contribute to
>
> If something looks like a number then it can be treated as a number.
>
> I'm not quite sure what you are trying to achieve here - could you
show
> us a bit of the data.
>
> /J\
> --
> yapc::Europe in assocation with the Institute Of Contemporary Arts
> <http://www.yapc.org/Europe/> <http://www.ica.org.uk>
>
Thank you for taking the time to look at this. I really appreciate it.
Here is the whole sub routine
$target and $target_product hold a user input value from a form field.
Search type is an option between three radio buttons.
What I am doing is search through my html files and returning results
based on the matches. I am trying to add a search by price where the
user can input a price and get results returned that are equal to or
less then what they entered.
I am not very good a PERL yet so don't laugh too hard what how I am
doing these searches. :) I am sure there are much simpler ways.
Thanks again for any and all of your help. I hope I can contribute some
soon as well. I just wouldn't want to give bad info.
sub search_file
{
# Variables associated with arguments.
local ($cur_category,$cur_file,$target_product) = @_;
# Local variables used in this subroutine.
local ( $line, $line_count, $cur_product, $temp_output, $target,
$keyword_search, $cur_success_count, $found_flag);
#------------------------------------------------------
# Loop through productes and add matches to results.
#------------------------------------------------------
# Reset keyword search flag.
$keyword_search = 0;
# Open file for reading.
if (open (HTML_FILE, $relative_directory . $cur_file))
{
# Initialize $target.
if ($pSearchType eq "keyword")
{
$keyword_search = 1;
$target = $target_product;
}
else
{
if ($pSearchType eq "price")
{
$keyword_search = 2;
$target = $target_product;
}
else
{
$keyword_search = 0;
$target = $target_product;
}
}
# Initialize current product.
$cur_product = "";
# Initialize found flag to not found.
$found_flag = 0;
# Reset the current success count for this category.
$cur_success_count = 0;
# Read file and check each product.
while (<HTML_FILE>)
{
# Set $line equal to the last line read from file.
$line = $_;
if ($line =~ "<!-- PRODUCT:")
{
# Reset current product.
$cur_product = "";
$line_count = 1;
$found_flag = 0;
}
# Append line onto current product.
$cur_product = $cur_product . $line;
$line_count++;
# Check if this line contains the target.
if ($found_flag == 0)
{
if ($keyword_search == 2)
{
if ($line =~ "<price>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<priceone>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<pricetwo>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<pricethree>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<pricefour>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<pricefive>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<pricesix>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
}
if ($keyword_search == 1)
{
if ($line =~ "<description>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<description2>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
}
else
{
if ($line =~ "<product>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
if ($line =~ "<product2>")
{
# if ($line <= $target)
if ($line =~ /$target/i)
{
$found_flag = 1;
}
}
}
}
# Is this the end of a product?
if ($line =~ "END_FLAG")
{
# Did this product include the target?
if ($found_flag == 1)
{
$success_count++;
$cur_success_count++;
if ($cur_success_count == 1)
{
$temp_output = "<p align=\"left\"><FONT COLOR=\"" .
$category_name_font_color . "\" SIZE=" . $category_name_font_size . "
FACE=\"" . $category_name_font_type . "\">\n";
$temp_output = $temp_output . "<b>Category - " .
$cur_category . "</b><BR>\n";
$temp_output = $temp_output . "</FONT></p>\n\n";
$cur_product = $temp_output . $cur_product;
}
if ($search_results eq "<center>The search resulted in
no matches.<BR></center>")
{
$search_results = $cur_product;
}
else
{
$search_results = $search_results . $cur_product;
$success_count++;
$cur_success_count++;
}
}
}
} # End of while() loop.
# Close file.
close(HTML_FILE);
}
}
# End of search_file()
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 29 Jul 2000 15:48:01 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Differences between two files?
Message-Id: <hvu5osocd99716gatri34t9jbqbs1pvca5@4ax.com>
Jim Cook wrote:
>> > My real problem is that I have two directories of release software
>> > (different versions). The software is serial number stamped to make a
>> > matched set. Some files are stamped and some are not.
>I have a job to solve. I need to produce a report of how the files in
>two directories compare. That's the task at hand. I have a script that
>does everything except saying how many different bytes there are in two
>files.
It may not be that simple. For example, I can imagine that some parts of
the files are of different length, so that all bytes in one file may be
shifted inside the file, when compared to the other file.
My bet would be that the best approach for things like executables,
would be to split the file in their subsections, and compare those
subsections.
BTW Larry Rosler's solution will only work reliably if both strings have
the same length. Otherwise, a byte "\0" in the trailing part of the
longest file will be ignored in the count.
--
Bart.
------------------------------
Date: Sat, 29 Jul 2000 10:42:45 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Differences between two files?
Message-Id: <MPG.13ecb7753f709cdf98ac0a@nntp.hpl.hp.com>
In article <hvu5osocd99716gatri34t9jbqbs1pvca5@4ax.com>,
bart.lateur@skynet.be says...
...
> BTW Larry Rosler's solution will only work reliably if both strings have
> the same length. Otherwise, a byte "\0" in the trailing part of the
> longest file will be ignored in the count.
From the original post:
> In article <3981DAF9.33B33665@strobedata.com>, jcook@strobedata.com says...
> > I have two files, read into $a and $b that I test for equality with $a
> > eq $b. However, because of the nature of the files, a few differences
> > are OK. What I'm interested in is how many different bytes there are
> > within $a and $b (assuming same length here).
^^^^^^^^^^^^^^^^^^^^^^^^^
I see nothing wrong in providing a very efficient solution that meets
the explicit requirements of the problem statement.
Furthermore, as you imply, if the strings happen to have different
length, every byte in the longer string will count as a mismatch, which
is appropriate, except for the pathological null bytes that probably
wouldn't be there in text files in any case. The example files may well
be binary, though, judging by their suffixes.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 30 Jul 2000 00:40:21 +0900
From: Makoto Kishimoto <q13915@cig.nml.mot.com>
Subject: Does someone knows good in-line alias?
Message-Id: <3982FAE5.96D8E31C@cig.nml.mot.com>
Hi, Folks.
Does anybody know in-line alias for the sub-routine name,
__LINE__ or __FILE__ is supported like C,
I want put the alias for like a __FUNCTION__ pre-processing alias into
the printf() of my debug printf().
do you have good ideas?
or do I have to write the code to point out the sub-routine name
on the top of sub like below?
sub xx {
$__function__ = "xx";
printf( "%s:%s:%d\n" , __FILE__ , $__FUNCTION__ , __LINE__);
}
--Regards, Makoto
------------------------------
Date: 29 Jul 2000 11:13:48 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Does someone knows good in-line alias?
Message-Id: <8766poud6r.fsf@limey.hpcc.uh.edu>
>> On Sun, 30 Jul 2000 00:40:21 +0900,
>> Makoto Kishimoto <q13915@cig.nml.mot.com> said:
> Does anybody know in-line alias for the sub-routine
> name,
> __LINE__ or __FILE__ is supported like C, I want put the
> alias for like a __FUNCTION__ pre-processing alias into
> the printf() of my debug printf().
You can do this with caller(). "perldoc -f caller".
hth
t
--
"With $10,000, we'd be millionaires!"
Homer Simpson
------------------------------
Date: Sat, 29 Jul 2000 10:52:22 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: ecologically printed perldocs
Message-Id: <MPG.13ecb9ad358364798ac0b@nntp.hpl.hp.com>
In article <Pine.GHP.4.21.0007291143211.3514-100000@hpplus03.cern.ch>,
flavell@mail.cern.ch says...
> On Sat, 29 Jul 2000, Brendon Caligari wrote:
>
> > ZCZC
>
> Good heavens! I haven't seen that used since half a lifetime.
So what does it mean? A cursory web search turned up lots of uses, but
was mystifying about what they might mean.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 29 Jul 2000 15:30:05 GMT
From: nvp@spamnothanks.speakeasy.org (NP)
Subject: Re: Error with dbd using Oracle
Message-Id: <1MCg5.392502$MB.6157219@news6.giganews.com>
On Sat, 29 Jul 2000 06:32:51 GMT, gary_n@my-deja.com <gary_n@my-deja.com> wrote:
:
: install_driver(Oracle) failed: Can't load
: '/usr/lib/perl5/site_perl/5.005/i386-linux/auto/DBD/Oracle/Oracle.so'
: for module DBD::Oracle: libclntsh.so.1.0: cannot open shared object
: file:
This error is, IIRC, covered in one of the Oracle README's that's
shipped with your DBD::Oracle distro. You might also want to check the
mailing list archive for dbi-users.
But I think that you'll have better luck if you modify your
$LD_LIBRARY_PATH.
--
Nate II
------------------------------
Date: 29 Jul 2000 16:06:36 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: flatfile storage
Message-Id: <8lurts$js5$1@orpheus.gellyfish.com>
On Thu, 27 Jul 2000 19:58:05 +0200 Sebastian Erlhofer wrote:
> DBM... sounds fine. I just have to get out what it is :)
> And I hope it will run at my hosted-server...
SDBM is part of Perl so it should do.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Sat, 29 Jul 2000 14:09:13 GMT
From: "DS" <snakeman@kc.rr.com>
Subject: Help with param method in CGI.pm
Message-Id: <dABg5.16439$t%4.142605@typhoon.kc.rr.com>
Hello-
I am having difficulty with getting the param method in CGI.pm to work
in a certain instance. For instance I am trying to write these param to file
but it writes the param name such as param("email) instead of the value
itself. I have got it to work by using the following but I felt I was just
riggin it to work and would like to know the right way if so. Thanx
open OUTF,">>$datfile" or die "Couldn't open $datfile for writing: $!";
my $p_name = param('name');
my $p_email = param('email');
my $p_news = param('news');
flock(OUTF,2);
seek(OUTF,0,2);
print OUTF "$date|$p_name|$p_email|$p_news\n";
close(OUTF);
Dirk
------------------------------
Date: Sat, 29 Jul 2000 15:19:18 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: Help with param method in CGI.pm
Message-Id: <vsp5oskelffhk7vfvi9p2b4c663ptdv3t9@4ax.com>
[alt.perl removed from newsgroups list]
On Sat, 29 Jul 2000 14:09:13 GMT, "DS" <snakeman@kc.rr.com> wrote:
>Hello-
> I am having difficulty with getting the param method in CGI.pm to work
>in a certain instance. For instance I am trying to write these param to file
>but it writes the param name such as param("email) instead of the value
>itself. I have got it to work by using the following but I felt I was just
>riggin it to work and would like to know the right way if so. Thanx
>
> open OUTF,">>$datfile" or die "Couldn't open $datfile for writing: $!";
> my $p_name = param('name');
> my $p_email = param('email');
> my $p_news = param('news');
>
>
> flock(OUTF,2);
> seek(OUTF,0,2);
>
>
> print OUTF "$date|$p_name|$p_email|$p_news\n";
> close(OUTF);
You could always use the save_parameters function.
open OUTF,">>$datfile" or die "Couldn't open $datfile for writing:
$!";
save_paraemters(OUTF);
hth,
Dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: Sat, 29 Jul 2000 11:25:30 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Help with param method in CGI.pm
Message-Id: <3982F76A.7228F251@attglobal.net>
DS wrote:
>
> Hello-
> I am having difficulty with getting the param method in CGI.pm to work
> in a certain instance. For instance I am trying to write these param to file
> but it writes the param name such as param("email) instead of the value
> itself. I have got it to work by using the following but I felt I was just
> riggin it to work and would like to know the right way if so. Thanx
>
You are use'ing CGI with the standard functions imported, right?
use CGI 'standard';
> open OUTF,">>$datfile" or die "Couldn't open $datfile for writing: $!";
> my $p_name = param('name');
> my $p_email = param('email');
> my $p_news = param('news');
>
------------------------------
Date: Sat, 29 Jul 2000 16:56:43 GMT
From: "DS" <snakeman@kc.rr.com>
Subject: Re: Help with param method in CGI.pm
Message-Id: <f1Eg5.16453$t%4.143864@typhoon.kc.rr.com>
I am using " use CGI qw/:standard :html3/; "
Dirk
"Drew Simonis" <care227@attglobal.net> wrote in message
news:3982F76A.7228F251@attglobal.net...
> DS wrote:
> >
> > Hello-
> > I am having difficulty with getting the param method in CGI.pm to
work
> > in a certain instance. For instance I am trying to write these param to
file
> > but it writes the param name such as param("email) instead of the value
> > itself. I have got it to work by using the following but I felt I was
just
> > riggin it to work and would like to know the right way if so. Thanx
> >
>
> You are use'ing CGI with the standard functions imported, right?
>
> use CGI 'standard';
>
> > open OUTF,">>$datfile" or die "Couldn't open $datfile for writing:
$!";
> > my $p_name = param('name');
> > my $p_email = param('email');
> > my $p_news = param('news');
> >
------------------------------
Date: Sat, 29 Jul 2000 21:29:28 +0800
From: DT <nospam.tom@hotmail.com>
Subject: Re: hide or encrypted Per source?
Message-Id: <MPG.13ed5d15cf2a3b53989683@news.newsguy.com>
I asked a freelance programmer to write this script and told him that I
want the source, he agreed. After I discovered this, when I asked him for
un-encrypted source he asked for $500 more. I have been rip off, I have
already paid him $300.
In article <8lunrg$64n$1@orpheus.gellyfish.com>, gellyfish@gellyfish.com
says...
> On Sat, 29 Jul 2000 13:42:55 +0800 DT wrote:
> > In article <8lsg7l$q13$1@brokaw.wa.com>, lauren_smith13@hotmail.com
> > says...
> >>
> >> <nospam.tomtt@hotmail.com> wrote in message
> >> news:MPG.13ec364036dd9176989680@news.newsguy.com...
> >> > Someone please help me the follow code? What is the all about, Million
> >> > Thanks
> >>
> >> It's about how clever the programmer could be. I'd fire him.
> >>
> >>
> > Can anyone help? I paid for the source code and yet he give me this.
> >
>
> You shouldnt have paid for it if you commissioned the source code.
>
> /J\
>
------------------------------
Date: 29 Jul 2000 18:42:08 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: hide or encrypted Per source?
Message-Id: <8lv51g$ild$1@orpheus.gellyfish.com>
On Sat, 29 Jul 2000 21:29:28 +0800 DT wrote:
> In article <8lunrg$64n$1@orpheus.gellyfish.com>, gellyfish@gellyfish.com
> says...
>> On Sat, 29 Jul 2000 13:42:55 +0800 DT wrote:
>> > In article <8lsg7l$q13$1@brokaw.wa.com>, lauren_smith13@hotmail.com
>> > says...
>> >>
>> >> <nospam.tomtt@hotmail.com> wrote in message
>> >> news:MPG.13ec364036dd9176989680@news.newsguy.com...
>> >> > Someone please help me the follow code? What is the all about, Million
>> >> > Thanks
>> >>
>> >> It's about how clever the programmer could be. I'd fire him.
>> >>
>> >>
>> > Can anyone help? I paid for the source code and yet he give me this.
>> >
>>
>> You shouldnt have paid for it if you commissioned the source code.
>>
> I asked a freelance programmer to write this script and told him that I
> want the source, he agreed. After I discovered this, when I asked him for
> un-encrypted source he asked for $500 more. I have been rip off, I have
> already paid him $300.
>
Then you want a lawyer not a programmer. I'm not even sure that you
have posted the actual code as it doesnt even run for me. If you have
a working recent Perl installation then you might want to try :
perl -MO=Deparse <yourscript>
and check the output - this will certainly add some clarity to it.
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: Sun, 30 Jul 2000 00:36:19 +0800
From: DT <nospam.tom@hotmail.com>
Subject: Re: hide or encrypted Per source?
Message-Id: <MPG.13ed88e2fda6b172989684@news.newsguy.com>
In article <8lv51g$ild$1@orpheus.gellyfish.com>, gellyfish@gellyfish.com
says...
> On Sat, 29 Jul 2000 21:29:28 +0800 DT wrote:
> > In article <8lunrg$64n$1@orpheus.gellyfish.com>, gellyfish@gellyfish.com
> > says...
> >> On Sat, 29 Jul 2000 13:42:55 +0800 DT wrote:
> >> > In article <8lsg7l$q13$1@brokaw.wa.com>, lauren_smith13@hotmail.com
> >> > says...
> >> >>
> >> >> <nospam.tomtt@hotmail.com> wrote in message
> >> >> news:MPG.13ec364036dd9176989680@news.newsguy.com...
> >> >> > Someone please help me the follow code? What is the all about, Million
> >> >> > Thanks
> >> >>
> >> >> It's about how clever the programmer could be. I'd fire him.
> >> >>
> >> >>
> >> > Can anyone help? I paid for the source code and yet he give me this.
> >> >
> >>
> >> You shouldnt have paid for it if you commissioned the source code.
> >>
> > I asked a freelance programmer to write this script and told him that I
> > want the source, he agreed. After I discovered this, when I asked him for
> > un-encrypted source he asked for $500 more. I have been rip off, I have
> > already paid him $300.
> >
>
> Then you want a lawyer not a programmer. I'm not even sure that you
> have posted the actual code as it doesnt even run for me. If you have
> a working recent Perl installation then you might want to try :
>
> perl -MO=Deparse <yourscript>
>
> and check the output - this will certainly add some clarity to it.
>
> /J\
>
here is the code: I will take a look at the about comment.
#!/usr/bin/perl
use Socket;*DB::readline=sub{gethostbyname($ub[2]);"q"};sub SUB{sub
sub6{my($Sub,$sUb,$suB)=@_;@sub6=split(/\./,$Sub);@sub0=split(/\./,$sUb);
$n=25;while($n-->0){@sUb=@sub0;@sub0=@sub6;sub
sUb{$_="M$_";}for($SUB=0;$SUB<4;$SUB++){$sub6[$SUB]=
$sUb[$SUB]^(($suB*$sub6[$SUB])%256);}}join('',@sub6)."|".join('',@sub0);}
subsub7{my($SUb,$Sub1)=@_;while(!$suB){$sUB++;$suB1=sub6($SUb,$Sub1,$sUB)
;$sUb1=join('',map(chr,split(/\||\s+/,$suB1)));if($sUb1=~/bT/){$suB=$sUB;
}}$suB;}$sub4=\&sub2;$sub5=\&sub3;sub
sub7{$@='u';}subsub1{die(&$sub4(&$sub5((shift)
))."\n")}subsub2{$SUb=sub6($ub[2],
$ub[3],$suB);$SUb.="".sub6($ub[4],$ub[5],$suB);$SUb=~s/98/32/g;(shift).jo
in('',map(chr,split(/\||\s+/,$SUb)));sub sub6{&sub4;}}
subsub3{$SUb=sub6($ub[0],$ub[1],&{(shift)}
);$SUb=~s/98/32/g;join('',map(chr,split(/\||\s+/,$SUb)));}sub1sub{$suB=su
b7($ub[0],$ub[1]);};}$_=<<'';&sub7;eval(&sub6);sub sub3 {$n="0m26<l~l
*,..VztRE@<620,*-!
";$B=65521;useinteger;$sb='{$a=shift;'.'$g=$h=$i=0;@c=';eval"subu".$sb.
'map{'.'$g+=$_*$a;$b=$g%$B;$g/=$B;$b;}@_;!$g||'.
'push@c,$g;@c;}';eval"sub" .' d' .$sb. 'reverse ' .'map
{$h=($_+$g*$B'.')/$a;$g=($_+$g*'.'$B)-$h*$a;$h;}re'.'ve'.'rse@_;'.'
@c[$#c]!=0|'.'|p'.'op@c;('.'$g'.',@c);}' ;sub
sub5{&sUb;unpack($@,$_);}sub p{for($j=0;(($k,@l) =d(2,@_))&&$k ==0;$j++)
{@_=@l;}return$j*(("@_"eq 1)&&($#_==0));}push@o,2;do{($r,@t)=d(
ord(substr$n,$m+14,1)-31,@o) ;if($r==0){@o=u(ord(substr$n,$m, 1)-
31,@t);sub sub4{unpack ($@,&sub5);}$m=0;if($p= p(@o)){print"$p\n";}}
else{$m=($m+1)%14; print"$m";} }while($n);}
32)`2"H]-
RU%*"<M5#Q&14,](TQ`(D!(1#\C5%$N4$E5/%8T0#!4/2DN4$@JM/3<M12@D43<T(TA:-
3<M10I-/$0E1SDV650N4$E5/%8T0#(E,30T(TA:-$8UM43TV-
5,](TPJ/3<M12@D030U)6!:+D4I13Q7(4\[1RU%"DTN4$@J/3<M12@DM43<T(TA:-
"<I3STF74,[5E!;(D<U4SDR(2PU56!:+D4A4CM7,4\X5EU,+D-
)M2#TG,5`*33XC3"HS)3TP+D-),#Q&750[5BU/.R-(6CHV55`[)C5-
.3995#M7M*$@I5D%4/2<A6"E24$<S)3TP+D-),`I-
/$9=5#M6+4\[(TA:.B<Q5#PG0$<JM,TPJ(D9562@B,5$]-C52/C-
53CDW/$`P5#TI+E!(1#PW-44\1T1-"DTO1D5-M/"9=4CTE74XX-
E5%/%)`1S0B/$DN4$E0/$9%3CTB8$0\-S5%/$=$32]&044XM-C%%/$-,*CLW1$`*32DG-
5([(U1'.B<Q5#PG0%HK4EU7.#8M4#@V+$XX5EU-
M*U9%4"M&050[,CQ;(D!(1#TW*4PO,C$P+D-)1PI-
.3<P0#HV.$`I)6!:+D8]M13TC3"HB0$@J.S=$0"DG-4$O-
EE%/5(A+#558%HN1353.3<I(3E6-4X](TPJM"DTI)S5!*S-903E6-
4X](D!',R4],"M3)$XL(CQ)+E!)33XR8$0\1C51+S99M13U2(2@U)3$P+D-
),CDW)54*33DW+50H)#TE-2-47BDG-5([(TPJ(D!(*CLWM1$`I)RU%.R8X72DG)54Y-RE9*S-
94SDV448W5S52.R-,*@I-(D!(*BDE8%HNM1B5$.2<H72DC)$`Z-
CA`*2<M13LF.%T_1E1!.B<Q5#PC2$\K4D$[-T)=/2I2M1$$N4$@J"DT[-
T1`*2<I13Q7(4\[1RU%+S(Q53@R5%X\1C51/38U4STB0$0\M1C51*C-,*CTV64PY-
RU3*")`1#Q&-5,*33PF74X\5C1-
+T9%4S=7+54X5BU%M/%<L22@G3"HH(F!`/"<I23M',$`H0U%&.U995"@F+4\[)EU2+S<I10I-
.2-9M)C@V14PY-C!`/29<0#A674X[1C5#/2(A5#M28$0]-
RE,+R9!4B]"*$PB0F!`M*"(Q4CDW+5`[5EE3"DTY,E1>.3<I4CM7*3\X-
RT_,B4Q+3,C3"H_,B%%.R<MM12@G3"HH(F!`/"<I23M',$`I)RE%/%<A3SM'+44*,RLS64,[5
EE4.3995"Y0/25TB1C58.C<P6R)`8&`*
__DATA__
3117311531012322833111299310731013116259311531112993107310131162402832442
80270295273278269
2842442832792672752952832842822692652772443103310131163112311431113116311
12983121311029731
0931012402393116299311223924124125929931113110311031012993116240283244311
22972993107240239
2833110297252312025623924425024425224825124924424023631062442363106244236
31062442363106244
2363106241261310331013116310431113115311629831213110297310931012402392843
11731143107310131
2124626726724627631013104310531033104246269268285239241241241259311231143
10531103116232260
283262259210
#_# Ax1jK39TQ2:_:14
------------------------------
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 3843
**************************************
