[23785] in Perl-Users-Digest
Perl-Users Digest, Issue: 5989 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 29 14:05:35 2003
Date: Mon, 29 Dec 2003 11:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 29 Dec 2003 Volume: 10 Number: 5989
Today's topics:
Re: Building Perl for Win32 as a static library <jwillmore@remove.adelphia.net>
Re: CGI: Calling C is different? <jwillmore@remove.adelphia.net>
Finding out a DBI connection is broken? (Thomas Reat)
Re: Finding out a DBI connection is broken? <gnari@simnet.is>
get function with https (Marco)
Re: get function with https <twhu@lucent.com>
Re: incrementing file names <jwillmore@remove.adelphia.net>
Re: isql in perl <jwillmore@remove.adelphia.net>
Re: isql in perl <gnari@simnet.is>
Re: isql in perl <jwillmore@remove.adelphia.net>
Re: isql in perl <kkeller-usenet@wombat.san-francisco.ca.us>
Re: isql in perl <jwillmore@remove.adelphia.net>
Re: isql in perl <gnari@simnet.is>
Re: Pass hash to a subroutine (Tad McClellan)
Re: Pass hash to a subroutine <news3@earthsong.null.free-online.co.uk>
Regexp *-operator and multiple elements <tinus@tinus.ath.cx>
Re: Regular Expression assistance <gnari@simnet.is>
Re: retrieve webpage with POST (Peter Scott)
Re: search interval <gnari@simnet.is>
Re: Slow script <gnari@simnet.is>
Turn $5 into $15,000 or more!!! Here's how.... <snritanita@hotmail.com>
Re: Win32::ODBC problem <jwillmore@remove.adelphia.net>
writting an 'in' keyword for perl (David)
Re: writting an 'in' keyword for perl <dwall@fastmail.fm>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 29 Dec 2003 16:43:17 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Building Perl for Win32 as a static library
Message-Id: <20031229114316.71fdacd4.jwillmore@remove.adelphia.net>
On Sun, 28 Dec 2003 22:29:54 +0100
Torsten Mohr <tmohr@s.netic.de> wrote:
> i compiled and installed Perl for Win32 successfully, but i'd like
> to build own programs with perl as an internal script language
> and i don't want to ship a DLL with that program.
> Therefor i'd like to build perl as a static library.
>
> Has anybody got a hint on how to build perl as a static library
> on Windows 2000?
>
>
> Thanks for any hints,
Several hints :-)
Use Goggle (this has been asked and answered before).
perldoc -q 'compile'
perldoc -q 'embed'
Check out SWIG (http://www.swig.org)
perldoc perlembed
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Next Friday will not be your lucky day. As a matter of fact, you
don't have a lucky day this year.
------------------------------
Date: Mon, 29 Dec 2003 16:31:27 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: CGI: Calling C is different?
Message-Id: <20031229113126.48f80ca3.jwillmore@remove.adelphia.net>
On 25 Dec 2003 21:01:27 -0800
huey_jiang@yahoo.com (Huey) wrote:
>
> I wonder that is there any difference of calling C executable in CGI
> from the "normal"? A few days ago, with helps from Tad, Jim,
> Christian, I did make my perl scripts got returns from C
> executables. Thanks go to Jim, Christian, and Tad! However, when I
> put my code into CGI, broken! I can't figure out the kicker, thus
> here for help. My code test.pl:
>
> #!/usr/bin/perl
> print "Content-type: text/html", "\n\n\n";
>
> my $mytest = "./c_hello.exe";
> open TEST, "$mytest |" or die "Error running $mytest: $!\n";
> while(<TEST>) {
> print "The return from C is: $_", "\n";
> }
> close (TEST);
> exit (0);
>
> This piece of code works in command-line: %perl test.pl, and prints
> out "Hi All". But, it does not work as a CGI script with a html
> file. Anybody helps me out? Thanks a lot, and wish you have a happy
> NEW YEAR!
perldoc -q 'cgi'
There's a FAQ mentioned in the responses
(http://www.perl.org/CGI_MetaFAQ.html)
that will give information on how to tackle this problem.
My guess (and it's only a guess) is the script is not executable, has
an extention that the web server doesn't like, and may be in a
directory that is not allowed to execute script. However, please read
over the information given above to (dis)prove what I've said.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
So, what's with this guy Gideon, anyway? And why can't he ever
<remember his Bible?
------------------------------
Date: 29 Dec 2003 08:22:56 -0800
From: treat00@yahoo.com (Thomas Reat)
Subject: Finding out a DBI connection is broken?
Message-Id: <3c4289ad.0312290822.15f5b3ad@posting.google.com>
I'm using postgresql with DBI, I do a "listen foo" and every minute or
so I do a func('pg_notifies'). If I restart the database server, the
perl script needs to know to reconnect. What is the right way to
determine this? I get the message below when it's restarted, so
obviously something knows about it.
WARNING: Message from PostgreSQL backend:
The Postmaster has informed me that some other backend
died abnormally and possibly corrupted shared memory.
I have rolled back the current transaction and am
going to terminate your database system connection and exit.
Please reconnect to the database system and repeat your query.
------------------------------
Date: Mon, 29 Dec 2003 17:50:40 -0000
From: "Ragnar Hafstaš" <gnari@simnet.is>
Subject: Re: Finding out a DBI connection is broken?
Message-Id: <bsppib$3qa$1@news.simnet.is>
"Thomas Reat" <treat00@yahoo.com> wrote in message
news:3c4289ad.0312290822.15f5b3ad@posting.google.com...
> I'm using postgresql with DBI, I do a "listen foo" and every minute or
> so I do a func('pg_notifies'). If I restart the database server, the
> perl script needs to know to reconnect. What is the right way to
> determine this? I get the message below when it's restarted, so
> obviously something knows about it.
>
> WARNING: Message from PostgreSQL backend:
> The Postmaster has informed me that some other backend
> died abnormally and possibly corrupted shared memory.
> I have rolled back the current transaction and am
> going to terminate your database system connection and exit.
> Please reconnect to the database system and repeat your query.
how are you restarting the database?
gnari
------------------------------
Date: 29 Dec 2003 09:31:38 -0800
From: ver_for@yahoo.it (Marco)
Subject: get function with https
Message-Id: <da63f24c.0312290931.d7ff426@posting.google.com>
Hi,
When I use the funcition get with an http page there is no problem
wherease with https:// pages I cannot get the content of the page.
Those pages can be read without any login or password
How can I solve this problem?
Thanks for your answers,
Marco
------------------------------
Date: Mon, 29 Dec 2003 12:42:08 -0500
From: "Tulan W. Hu" <twhu@lucent.com>
Subject: Re: get function with https
Message-Id: <bspp20$2kj@netnews.proxy.lucent.com>
"Marco" <ver_for@yahoo.it> wrote in
> Hi,
>
> When I use the funcition get with an http page there is no problem
> wherease with https:// pages I cannot get the content of the page.
>
> Those pages can be read without any login or password
>
> How can I solve this problem?
Download Crypt-SSLeay from cpan and use it with LWP.
------------------------------
Date: Mon, 29 Dec 2003 16:37:26 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: incrementing file names
Message-Id: <20031229113726.554a5e22.jwillmore@remove.adelphia.net>
On Sat, 27 Dec 2003 13:29:47 +0100
Lars Tackmann <roland@diku.dk> wrote:
> I am creating a perl script that will rename a file called
> SEGEyyyyyyy.dat (yyyyyyy is a number) to Oxxxxxddmm (where xxxxx is
> a number that is incremented by one for each file and ddmm is the
> day and the month).
>
> My problem is now that the files are send via ftp and deleted from
> this machine (where the scipt has to run). So I need some way to
> keep track on my xxxxx numbers - without searing the file names on
> the disk -
What have you written so far? I have several guesses as to what you
want to do, but code would be helpful.
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
There is nothing wrong with Southern California that a rise in
the ocean level wouldn't cure. -- Ross MacDonald
------------------------------
Date: Mon, 29 Dec 2003 16:24:20 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: isql in perl
Message-Id: <20031229112420.5d7efb23.jwillmore@remove.adelphia.net>
On 26 Dec 2003 18:35:50 -0800
s99999999s2003@yahoo.com (mike) wrote:
> Gregory Toomey <nospam@bigpond.com> wrote in message
> news:<1080562.d8XGKOZNtQ@gregs-web-hosting-and-pickle-farming>...
> > > i have a code like this
> > >
> > > open ISQL, "| isql -U $user -S $server " or die "Failed to open:
> > > $!"; print ISQL << "EOF";
> > > select count(*) from table
> > > go
> > > quit
> > > EOF
> > >
> > > this code is suppose to get the count from a table in my
> > > database. how can i assign this count to a perl variable??
> > > thanks...
> >
> > Use Perl dbi instead http://dbi.perl.org/
>
> i do not have the facility(compiler) to compile DBI module on my
> Solaris machine so that's why i have to use the isql client for
> access to database... cheers
What does this statement mean? You don't have 'root' access? No
access to a complier? ??
To get information the way you posted, you could do it from any shell.
Just redirect the output of the 'isql' command to a file and do
something with the file. If you don't want to do that, then use DBI
(which is more idiomatic Perl).
Pretty simple.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
VYARZERZOMANIMORORSEZASSEZANSERAREORSES?
------------------------------
Date: Mon, 29 Dec 2003 16:33:57 -0000
From: "Ragnar Hafstaš" <gnari@simnet.is>
Subject: Re: isql in perl
Message-Id: <bspl2h$3ht$1@news.simnet.is>
"James Willmore" <jwillmore@remove.adelphia.net> wrote in message
news:20031229112420.5d7efb23.jwillmore@remove.adelphia.net...
snipped problem with database access without DBI
>
> To get information the way you posted, you could do it from any shell.
> Just redirect the output of the 'isql' command to a file and do
> something with the file.
I have been that road, and it leads to madness :-)
seriously, try to avoid this if you at all can.
apart from the headaches parsing the output and grabbing errors,
the performance will take a real hit.
gnari
------------------------------
Date: Mon, 29 Dec 2003 17:23:27 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: isql in perl
Message-Id: <20031229122327.53370b60.jwillmore@remove.adelphia.net>
On Mon, 29 Dec 2003 16:33:57 -0000
"Ragnar Hafsta=F0" <gnari@simnet.is> wrote:
> "James Willmore" <jwillmore@remove.adelphia.net> wrote in message
> news:20031229112420.5d7efb23.jwillmore@remove.adelphia.net...
> snipped problem with database access without DBI
>=20
> >
> > To get information the way you posted, you could do it from any
> > shell.
> > Just redirect the output of the 'isql' command to a file and do
> > something with the file.
>=20
> I have been that road, and it leads to madness :-)
>=20
> seriously, try to avoid this if you at all can.
> apart from the headaches parsing the output and grabbing errors,
> the performance will take a real hit.
I agree :-) However, the OP stated he could not use a compiler, which
I don't understand. I (and others) have installed various modules
without 'root' access with no problem. He may have other issues (like
no compiler - which is very hard to believe for a *NIX platform like
Solaris).
To each his own - I'd use DBI - he may not :-)
--=20
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt=20
for more information.
a fortune quote ...
Meeting, n.: An assembly of people coming together to decide
what person or department not represented in the room must solve
a problem.=20
------------------------------
Date: Mon, 29 Dec 2003 09:40:03 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: isql in perl
Message-Id: <jtopsb.koa.ln@goaway.wombat.san-francisco.ca.us>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
On 2003-12-29, James Willmore <jwillmore@remove.adelphia.net> wrote:
>
> I agree :-) However, the OP stated he could not use a compiler, which
> I don't understand.
Not all boxes have a compiler installed. The OP's system may be one of
them, and he may not have the disk space to install his own.
> He may have other issues (like
> no compiler - which is very hard to believe for a *NIX platform like
> Solaris).
It may be that the sysadmin was told to remove compilers to make it more
difficult for employees to install their own software. (I've heard of
places where this is done, though fortunately have never worked for any
of them.)
- --keith
- --
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)
iD8DBQE/8GbohVcNCxZ5ID8RAoCFAJ9tSMX8aO8uh2B/8BQfCwf5M2ryKQCeL6vr
RRmWfeJ/UsS+IKqEytbBs7A=
=eNWZ
-----END PGP SIGNATURE-----
------------------------------
Date: Mon, 29 Dec 2003 17:55:43 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: isql in perl
Message-Id: <20031229125543.3ac8d267.jwillmore@remove.adelphia.net>
On Mon, 29 Dec 2003 09:40:03 -0800
Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us> wrote:
> On 2003-12-29, James Willmore <jwillmore@remove.adelphia.net> wrote:
> >
> > I agree :-) However, the OP stated he could not use a compiler,
> > which I don't understand.
>
> Not all boxes have a compiler installed. The OP's system may be one
> of them, and he may not have the disk space to install his own.
>
> > He may have other issues (like
> > no compiler - which is very hard to believe for a *NIX platform
> > like Solaris).
>
> It may be that the sysadmin was told to remove compilers to make it
> more difficult for employees to install their own software. (I've
> heard of places where this is done, though fortunately have never
> worked for any of them.)
Good for security - bad for installing DBI :-(
In this instance, what do you do when you need to install something -
use NFS mounts or something else? This *may* help the OP (and I'm one
that always likes to learn something).
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Talk sense to a fool and he calls you foolish. -- Euripides
------------------------------
Date: Mon, 29 Dec 2003 17:54:33 -0000
From: "Ragnar Hafstaš" <gnari@simnet.is>
Subject: Re: isql in perl
Message-Id: <bspppk$3qg$1@news.simnet.is>
"Keith Keller" <kkeller-usenet@wombat.san-francisco.ca.us> wrote in message
news:jtopsb.koa.ln@goaway.wombat.san-francisco.ca.us...
>
> It may be that the sysadmin was told to remove compilers to make it more
> difficult for employees to install their own software.
in that case he should ask the sysadmin to install DBI and the correct DBD
module
gnari
------------------------------
Date: Mon, 29 Dec 2003 09:59:03 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Pass hash to a subroutine
Message-Id: <slrnbv0jq7.dlu.tadmc@magna.augustmail.com>
Nick Li <ningli2000@hotmail.com> wrote:
> I would like to know how to pass a hash to a subroutine,
how_many( %hash )
> which
> evaluates its values and return a value.
sub how_many {
my(%h) = @_;
return scalar keys %h; # "evaluate" its values
}
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 29 Dec 2003 18:17:15 +0000
From: Andy Baxter <news3@earthsong.null.free-online.co.uk>
Subject: Re: Pass hash to a subroutine
Message-Id: <pan.2003.12.29.18.17.14.573399@earthsong.null.free-online.co.uk>
At earth time Mon, 29 Dec 2003 06:53:09 -0800, the following transmission
was received from the entity known as Nick Li:
> Hi,
>
> I would like to know how to pass a hash to a subroutine, which
> evaluates its values and return a value.
>
> Thanks in advance.
>
> Nick
One way is to pass a reference to the hash. The reference is a scalar, so
you can pass it along with other parameters including other hash and array
refs without them getting mixed up. e.g.
my %hash=(key1=>"whatever",
key2=>"something else",
);
$catvals=CatVals(\%hash,"="," ");
print $catvals;
exit;
sub CatVals {
my ($pHash,$eq,$cat)=@_;
@keys=keys(%$pHash);
my ($key,$str);
foreach $key (@keys) {
$str.=$key.$eq.$$pHash{$key}.$cat;
};
$str;
};
outputs:
bash-2.05b$ ./test.pl
key2=something else, key1=whatever,
ALternatively, do 'perldoc -q hash', and look for the section that starts:
Found in /usr/share/perl/5.8.2/pod/perlfaq7.pod
How can I pass/return a {Function, FileHandle, Array, Hash, Method,
Regex}?
With the exception of regexes, you need to pass references to these
objects. See "Pass by Reference" in perlsub for this particular ques-
tion, and perlref for information on references.
andy.
--
http://www.niftybits.ukfsn.org/
remove 'n-u-l-l' to email me. html mail or attachments will go in the spam
bin unless notified with [html] or [attachment] in the subject line.
------------------------------
Date: Mon, 29 Dec 2003 18:54:13 GMT
From: Martijn Houtman <tinus@tinus.ath.cx>
Subject: Regexp *-operator and multiple elements
Message-Id: <pL_Hb.75652$Jh.57047@amsnews03.chello.com>
Hello,
I have an issue parsing a string with a regular exression. Here's a small
example:
@foobar = ("foobarbarbarfoo" =~ m/(foo)(bar)*(foo)/g);
this makes the array foobar contain:
{"foo", "bar", "foo"}
while I want it to be
{"foo", "bar", "bar", "bar", "foo"}
The *-operator seems to 'forget' the first few elements and just returns the
last element, which is stored in the $2 variable. Is there a way to make it
return the full list of elements?
I have been suggested to split the string into three pieces first, and then
parse them separately, but I'd still like to do it with a single regular
expression.
Thanks in advance!
Regards,
--
tinus.
------------------------------
Date: Mon, 29 Dec 2003 17:27:07 -0000
From: "Ragnar Hafstaš" <gnari@simnet.is>
Subject: Re: Regular Expression assistance
Message-Id: <bspo66$3nl$1@news.simnet.is>
"Steve Dunn" <steve@nospamdunnhq.com> wrote in message
news:YKVHb.12565$FN.4552@newsfep4-winn.server.ntli.net...
> Hi Gnari,
>
> "Ragnar Hafstaš" <gnari@simnet.is> wrote in message
> news:bsp41o$vrp$1@news.simnet.is...
> > if you can collect the file into one string without linebreaks, you
> probably
> > can do a
> > match with
> > <([^/].+?[^/])>([^<]+)
> Thanks for this. It works great although doesn't take into account the
'<'
> being on a new-line. It is returning the desired results, but will break
if
> there's any '<' characters in the text (and this 'mark-up' has no
> escaping(!))
ok. if you collect the string *with* linefeeds, you should be able to match
with
\n<([^/].+?[^/])>([^<]+)
then you will have to deal with linefeeds in the capture
by the way, why are you testing for </xxx> and <xxx/> tags?
i thought you said there were none.
> Message understood. Many thanks for pointing this out and many many thanks
> for your help!
you are welcome
gnari
------------------------------
Date: Mon, 29 Dec 2003 16:44:31 GMT
From: peter@PSDT.com (Peter Scott)
Subject: Re: retrieve webpage with POST
Message-Id: <PRYHb.858939$6C4.588539@pd7tw1no>
In article <bsnnce$ekeav$1@ID-184292.news.uni-berlin.de>,
Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
>Dean Banko wrote:
>> Does anyone know how to retreive a page generated as form request?
>> I need to post some data like in the row:
>> my $req=HTTP::Request->new(POST=>$url);
>> but there are also some parameters that I must put into POST, but I
>> don't know the syntax :-(
>> I know that must be something like:
>> my $req=HTTP::Request->new(POST=>$url, [field=>'1', valid=>'yes' );
>
>Assuming you are talking about two fields named 'field' and 'valid',
>and whose values you want to be '1' respective 'yes', I'd try:
>
> my $req=HTTP::Request->new(POST=>$url);
> $req->content_type('application/x-www-form-urlencoded');
> $req->content('field=1&valid=yes');
This is unnecessarily fraught with danger. It will fail the first time
anyone tries to use values that ought to be URL escaped. And can you be
certain without checking the source whether the Content-length header
will be set correctly ? There is a clearly better alternative:
use HTTP::Request::Common;
my $req = POST $url, [ field=>'1', valid=>'yes' ];
The OP was almost there.
>(untested)
No need to test.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
------------------------------
Date: Mon, 29 Dec 2003 17:34:54 -0000
From: "Ragnar Hafstaš" <gnari@simnet.is>
Subject: Re: search interval
Message-Id: <bspokq$3p0$1@news.simnet.is>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:bspe60$9gl$1@mamenchi.zrz.TU-Berlin.DE...
> Ragnar Hafstaš <gnari@simnet.is> wrote in comp.lang.perl.misc:
> > "Ying Hu" <yhu@mail.nih.gov> wrote in message
> > news:3FE9CE16.2FAC8D2D@mail.nih.gov...
> > > My perl script is as the following, but I do know that is not good
one.
> > > The two data sets are in text files and very huge.
> > >
> > a bit more info might still help to optimize
> > how big datasets?
> > are the A-intervals overlapping?
> > what are the value ranges? (for example integers 0-1000)
>
> If we assume the ranges are non-overlapping and delimited by smallish
> integers, the ranges can be found in constant time without sorting and
> searching. First build an array @rangemap that holds, for index $i,
> the name of the range $i belongs to, or undef if there is no interval
> for $i. Then each interval can be found with a single array lookup:
>
this possibility, was one of the things i had in mind when I asked my
questions to the OP.
Usually I wait until the premises are met, before I code complete
optimisations based on them :-)
...snipped nice implmentation...
I hope the OP does not use this on a data set like
A1 0 1000000000
A2 1000000001 2000000000
...
gnari
------------------------------
Date: Mon, 29 Dec 2003 17:46:47 -0000
From: "Ragnar Hafstaš" <gnari@simnet.is>
Subject: Re: Slow script
Message-Id: <bsppb2$3q6$1@news.simnet.is>
"Tore Aursand" <tore@aursand.no> wrote in message
news:pan.2003.12.25.00.20.04.97222@aursand.no...
> On Wed, 24 Dec 2003 16:05:32 -0800, Yuri Shtil wrote:
> >>> I have a script I inherited that was developed under perl 5.004.
> >>>
> >>> I tried to run it under perl 5.8.0. It runs much much slower.
> And - again: Since you don't/can't post code, or tell us anything about
> your application, we can't help you more than that.
Yuri surely make a few tests in the original 5.004 environment
(if it is still present, of course)
on the other hand, maybe something else changed too,
like, are you using the same hardware, operating system, locale, input
data?
I do not know about perl in this reguard, but some programs can get
a severe performance hit when switching to UTF-8 locale.
gnari
------------------------------
Date: Mon, 29 Dec 2003 11:21:57 -0600
From: "Anita" <snritanita@hotmail.com>
Subject: Turn $5 into $15,000 or more!!! Here's how....
Message-Id: <xnZHb.30381$uh1.11794@bignews6.bellsouth.net>
Follow the directions below and in two weeks you'll have up to
$20000.00 in your PayPal account. There is a very high rate of
participation in the program because of its low investment and high
rate of return. Just $5.00 to one person!
THAT'S ALL !!!
If you are a skeptic and don't think the program will work, I urge
you to give it a try anyway! It REALLY WORKS! Why do you
think so many people are promoting it ?
LOOK AT IT THIS WAY: If the Program is a total failure for you and you
never get even $1.00 in return, your total loss will
be the $5.00! If you are not yet a paypal member, there is no risk at
all!!! If the Program is only moderately successful for
you, your PayPal account will have several hundred dollars deposited
into it within the next few days! If you actively
participate in the Program, you could have up to $20,000.00 in your
PayPal account within two weeks!
Now let me tell you the simple details.
Getting Started!!
If you're not already a user of PayPal, the very first thing you need
to do is go to PayPal and sign up. It takes two minutes
and Pay Pal will deposit $5.00 in your account just for becoming a
member. That makes this program's total cost $0!!! Follow
this link to open your PayPal account:
https://www.paypal.com
Now log into your PayPal account, and send the PayPal account of the
person listed in Position 1 $5.00 PayPal will ask you to
select type. (Select "service" and put "$5.00 donation" for
subject.) When person in Position 1 receives notification of your
payment, you can simply copy this page and change the names in
position #1 & #2 & #3 as instructed. Remember, only the person
in Position 1 on the list gets your $5.00 donation. Send them a
donation then remove #1PayPal account from the list. Move the
other two accounts up & add your Paypal account to #3 position. After
you have retyped the names in the new order,
IMMEDIATELY send the revised message to as many people as possible.
PROMOTE! PROMOTE! The more you promote the Program, the
more you will receive in donations!! That's all there is to it.
When your name reaches Position 1 (usually in less than a week) it
will be your turn to receive the cash. $5.00 will be sent
to your PayPal account by people just like you who are willing to send
$5.00 donation and receive up to $20,000 in less than
two weeks. Because there are only (3) names on the list you can
anticipate 80% of your cash within two weeks.
Anytime you find yourself short on cash just take out your $5.00
donation program and send it to 50 prospects. Imagine if you
sent it to 100 or even more. Most people spend more than $5 on the
lottery every week with no real hope of ever winning.
THIS PROGRAM WORKS - JUST TRY IT
POSITION # 1 PAYPAL ACCOUNT: sheripy@yahoo.com
POSITION # 2 PAYPAL ACCOUNT: snritanita@hotmail.com
POSITION # 3 PAYPAL ACCOUNT: James@localstreet.com
Integrity and honesty make this plan work.
Participants who actively promote this program will average between $8000
and
$12000 and receive the donations within two weeks.
This is not a chain letter. You are simply making a donation of $5.00
to another person. The Program does not violate title
18 section 1302 of the Postal and lottery code.
Remember -TIME is of the essence. YOU can choose to live
Paycheck-to-Paycheck or live FREE from FINANCIAL BONDAGE. Become a
part of the donation program and help people help people.
This program is about helping each other!
Success is a journey - Not a destination!
Start Your Journey TODAY!!!!
--
Posted by News Bulk Poster
Unregistered version
------------------------------
Date: Mon, 29 Dec 2003 16:14:26 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Win32::ODBC problem
Message-Id: <20031229111426.2bb9b9c9.jwillmore@remove.adelphia.net>
On Fri, 26 Dec 2003 11:44:13 +0800
"Regent" <arthur0421@163.com> wrote:
> I'm basically a newbie to Perl...Plz forgive my stupidity :))
> I'm getting lots of "Use of uninitialized value in array element at
> C:/Perl/lib/Win32/ODBC.pm line 256" error messages. Since there're a
> number of scripts, I don't even know which should be pasted here,
> though the error message "referer" (strangely) has nothing to do
> with ODBC, coz it's a higher level caller. Could anyone give me a
> clue what is the usual cause of such error msgs? Thanks for ur
> tolerance...
Start with the basics.
Put 'use strict;', 'use warnings;' and 'use diagnostics;' right under
the shabang (the first line of *your* script - starting with '#!').
This will give you a lot of output, but will also help you figure out
what may be wrong. With the information you've given, I'd guess that
you are using the Win32::ODBC module improperly.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
I don't care for the Sugar Smacks commercial. I don't like the
idea of a frog jumping on my Breakfast. -- Lowell, Chicago
Reader 10/15/82
------------------------------
Date: 29 Dec 2003 10:36:27 -0800
From: noylwigymea@hotmail.com (David)
Subject: writting an 'in' keyword for perl
Message-Id: <7041eb48.0312291036.e950ea@posting.google.com>
I can't count how many times I've wanted to write a statement like
this:
if ($val in @vals){
# do my stuff
}
Does anyone know of a way to cause a sub call to recieve the
scalar preseeding the sub call as well as the array following?
Essetialy I want to create a keyword called in which checks to see if
a list contains a certain value.
Yes I know I can use something like
my $in = $val eq $_ ? 1 : 0 for (@vals);
if ($in){
# do my stuff
}
but I would really like to be able to write it in english form. I'm
searching for a way to do this because both I would like to be able to
use the english form syntax, but also because it would be an excelent
learning experience for me.
Thank,
David
------------------------------
Date: Mon, 29 Dec 2003 18:51:15 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: writting an 'in' keyword for perl
Message-Id: <Xns94608CECEB82Fdkwwashere@216.168.3.30>
David <noylwigymea@hotmail.com> wrote:
> I can't count how many times I've wanted to write a statement like
> this:
>
> if ($val in @vals){
> # do my stuff
>}
>
> Does anyone know of a way to cause a sub call to recieve the
> scalar preseeding the sub call as well as the array following?
> Essetialy I want to create a keyword called in which checks to see if
> a list contains a certain value.
I don't know of a way to do it exactly like that; I'd do it like this:
# untested
my %hash;
@hash{@vals} = ();
if ( exists $hash{$val} ) {
# do stuff...
}
--
David Wall
------------------------------
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 5989
***************************************
