[25600] in Perl-Users-Digest
Perl-Users Digest, Issue: 7844 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 1 21:05:31 2005
Date: Tue, 1 Mar 2005 18:05:14 -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 Tue, 1 Mar 2005 Volume: 10 Number: 7844
Today's topics:
Email Scheme and Massive ID Theft <adamsmith1952@sbcglobal.net>
Re: Importing records with both space and quoted text q <ljames@apollo3.com>
Re: Importing records with both space and quoted text q <tadmc@augustmail.com>
Re: Importing records with both space and quoted text q <ljames@apollo3.com>
Re: Importing records with both space and quoted text q <ljames@apollo3.com>
Re: Importing records with both space and quoted text q <flavell@ph.gla.ac.uk>
IO::Scalar insanity <please_post@nomail.edu>
Re: IO::Scalar insanity <mark.clements@kcl.ac.uk>
Re: IO::Scalar insanity <1usa@llenroc.ude.invalid>
Re: IO::Scalar insanity <socyl@987jk.com.invalid>
Re: IO::Scalar insanity <socyl@987jk.com.invalid>
Re: IO::Scalar insanity <1usa@llenroc.ude.invalid>
Re: IO::Scalar insanity <flavell@ph.gla.ac.uk>
Make easy money!! NO SCAM!! Please Read! sulliman24@gmail.com
odd socket behavior with ZoneAlarm <clarke@n_o_s_p_a_m_hyperformix.com>
Re: odd socket behavior with ZoneAlarm <yyusenet@yahoo.com>
Re: Performance questions (SQL-statements) <kkeller-usenet@wombat.san-francisco.ca.us>
Re: perl problem with select and non-blocking sysread f (john)
Re: Pure Perl OpenSSL Library <No_4@dsl.pipex.com>
Re: Questions about Perl for Windows al2048@aol.com
Socket Send and Receive, Same local port, Different Rem jeffburgoon@hotmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Mar 2005 16:30:54 -0800
From: "Adam Smith" <adamsmith1952@sbcglobal.net>
Subject: Email Scheme and Massive ID Theft
Message-Id: <1109723454.590358.23260@z14g2000cwz.googlegroups.com>
FBI Alerts Public to Recent Email Scheme
The FBI warned the public to avoid falling victim to an on-going mass
e-mail scheme wherein computer users receive unsolicited e-mails
purportedly sent by the FBI. The e-mails then direct recipients to
open an attachment and answer questions. The attachments contain a
computer virus.
To read the full text, please go to:
http://www.contactomagazine.com/emailscam0226.htm
Massive ID Theft Impacts 145,000 Consumers
ChoicePoint, a data-brokering company, is actively engaged with local
and federal law enforcement agencies in the continuing investigation of
a fraud committed against the company, through which a small number of
very well organized criminals posed as legitimate companies to gain
access to personal information about consumers. To date, the company
has sent warning letters to 145,000 consumers in various states.
To read the full text, please go to:
http://www.contactomagazine.com/massiveidtheft0220.htm
------------------------------
Date: Tue, 1 Mar 2005 17:56:45 -0500
From: "L. D. James" <ljames@apollo3.com>
Subject: Re: Importing records with both space and quoted text qualifiers...
Message-Id: <1129spms10pe7e3@corp.supernews.com>
"Joe Smith" <joe@inwap.com> wrote in message
news:ltydnaw0cpHdFoTfRVn-3Q@comcast.com...
> L. D. James wrote:
>
>> I'm writing a script to analyze a web access log output.
>
> If the quotes are always around only certain fields, then split()
> is not the right tool to use. Use a capturing regex that explicitly
> matches the quotes you are expecting to see.
>
> @f = /(\S+) (\S+) (\S+) \[(.*?)\] "(.*?)" (\d+) (\d+) "(.*?)" "(.*)"$/;
>
> Or use an existing module for that.
> http://search.cpan.org/~dtiberio/Logfile-Access-1.30/Access.pm
>
> -Joe
Joe. I'm late in responding to your message, but feel it only right
that I express my appreciation. As I mentioned a number of times, this is a
great group. I've spent some time studying the group and trying to find
some of the questions I can answer.
I received quiet a few suggestions. However, as I mentioned, I wanted
to have an understanding to the code I had posted (in conjunction of course
to be able to do the task that was at hand).
The understanding you provided has helped me plenty, as I often use one
liners when quickly analyzing various text and log files. I did have an
immediate web log project. However, at the same time I was analyzing quiet
a few other system logs such as the /var/log/messages, the /var/log/secure
and the /var/log/maillog, just to name a few.
By the way, for some reason, the Access.pm won't install on my system
(using perl -MCPAN -e shell). It's okay since the other modules plus the
code you cleared up, more than do all the immediate jobs at hand.
Have a nice day.
-- L. James
---------
L. D. James
ljames@apollo3.com
www.apollo3.com/~ljames
------------------------------
Date: Tue, 1 Mar 2005 18:17:04 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Importing records with both space and quoted text qualifiers...
Message-Id: <slrnd2a1g0.28j.tadmc@magna.augustmail.com>
L. D. James <ljames@apollo3.com> wrote:
[snip]
> ---------
>
> L. D. James
>
> ljames@apollo3.com
>
> www.apollo3.com/~ljames
Thanks for fixing the top-posting.
Now please fix your .sig.
:-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 1 Mar 2005 19:30:25 -0500
From: "L. D. James" <ljames@apollo3.com>
Subject: Re: Importing records with both space and quoted text qualifiers...
Message-Id: <112a299clgn8f9c@corp.supernews.com>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnd2a1g0.28j.tadmc@magna.augustmail.com...
> L. D. James <ljames@apollo3.com> wrote:
>
> [snip]
>
>> ---------
>>
>> L. D. James
>>
>> ljames@apollo3.com
>>
>> www.apollo3.com/~ljames
>
>
>
> Thanks for fixing the top-posting.
>
> Now please fix your .sig.
>
> :-)
>
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
I'm insulted with the continued reference to top posting. I'm also
insulted about the references to my grammar and typos. I apologize for the
way the system formatted my signature. I don't mind a reference to
something you might see as a problem.
If you think there is a reoccurring problem with me that requires
addressing, I respect your forum. But you don't have to keep harping on
something that you saw once, and could have seen it was immediately
addressed if you cared to look at the thread. Looking at the posts can go
more than one way.
-- L. James
------------------
L. D. James
ljames@apollo3.com
www.apollo3.com/~ljames
------------------------------
Date: Tue, 1 Mar 2005 19:39:26 -0500
From: "L. D. James" <ljames@apollo3.com>
Subject: Re: Importing records with both space and quoted text qualifiers...
Message-Id: <112a2q8mbd1adc5@corp.supernews.com>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnd2a1g0.28j.tadmc@magna.augustmail.com...
> L. D. James <ljames@apollo3.com> wrote:
>
> [snip]
>
>> ---------
>>
>> L. D. James
>>
>> ljames@apollo3.com
>>
>> www.apollo3.com/~ljames
>
>
>
> Thanks for fixing the top-posting.
>
> Now please fix your .sig.
>
> :-)
>
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
By the way, looking at my previous message it seems that some
application reformatted my signature. The extra vertical spaces were not on
my copy. They only appeared after the message was read from the group.
While I learn what might be the annoying culprit, I'll put everything on one
line as I did in this message.
However, as I mentioned in my previous message, it has nothing to do
with top posting.
-- L. James
------------------ L. D. James ljames@apollo3.com www.apollo3.com/~ljames
------------------------------
Date: Wed, 2 Mar 2005 00:46:23 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: Importing records with both space and quoted text qualifiers...
Message-Id: <Pine.LNX.4.61.0503020044361.16993@ppepc56.ph.gla.ac.uk>
On Tue, 1 Mar 2005, L. D. James wrote:
[excessive quotage snipped]
> I'm insulted with the continued reference to top posting.
Your application for admission to the killfile has been approved.
Pity you didn't see fit to discuss Perl.
------------------------------
Date: Tue, 1 Mar 2005 19:54:57 +0000 (UTC)
From: bill <please_post@nomail.edu>
Subject: IO::Scalar insanity
Message-Id: <d02hah$k8r$1@reader2.panix.com>
I run into the need to do this *all* the time, but I have not come
up with a solution. This need arises almost invariably during the
debugging of a CGI script. At the beginning of the run I want to
inspect all the input that the CGI script will read from STDIN,
but I want to then "restore" this input back to the STDIN stream
so that execution/debugging session can proceed normally.
I *think* the best solution would be to slurp all the text into a
lexical
my $input = do { local $/; <STDIN> };
# {
# open my $out, ">debugging_data" or die "$!\n";
# print $out $input;
# close $out or die "$!\n";
# }
associate this lexical with an IO::Scalar handle
my $SH = IO::Scalar->new(\$input);
and then redefine STDIN so that it points to this IO::Scalar.
*This* is the part that I just can't figure out. Following what
I see in tutorials and books, I have tried
open(STDIN, "<&$SH") or die "$!\n";
but the open fails with an "invalid argument" error message. I've
also tried
open(STDIN, "<&=$SH") or die "$!\n";
(which fails with the same error), and
*STDIN = *SH;
and many variants thereof, all of which fail silently.
It is obvious that I have *no clue* and am just wildly trying out
random stuff.
I've read every bit of documentation I can think of, but I have
not hit on the answer to this question. I know this is all very
basic, but if someone could spell it out for me I'd greatly appreciate
it.
bill
------------------------------
Date: Tue, 01 Mar 2005 21:20:25 +0100
From: Mark Clements <mark.clements@kcl.ac.uk>
Subject: Re: IO::Scalar insanity
Message-Id: <4224ce89@news.kcl.ac.uk>
bill wrote:
> I run into the need to do this *all* the time, but I have not come
> up with a solution. This need arises almost invariably during the
> debugging of a CGI script. At the beginning of the run I want to
> inspect all the input that the CGI script will read from STDIN,
> but I want to then "restore" this input back to the STDIN stream
> so that execution/debugging session can proceed normally.
>
> I *think* the best solution would be to slurp all the text into a
> lexical
>
> my $input = do { local $/; <STDIN> };
> # {
> # open my $out, ">debugging_data" or die "$!\n";
> # print $out $input;
> # close $out or die "$!\n";
> # }
>
> associate this lexical with an IO::Scalar handle
>
> my $SH = IO::Scalar->new(\$input);
>
> and then redefine STDIN so that it points to this IO::Scalar.
> *This* is the part that I just can't figure out. Following what
> I see in tutorials and books, I have tried
>
> open(STDIN, "<&$SH") or die "$!\n";
you probably want to open it on the file descriptor (take a look at fileno):
redwood 24357 $ perl -le 'open IN,"</etc/passwd";open STDIN,"<&".fileno(IN);
$a=<STDIN>;
print "$a\n"'
root:x:0:1:Super-User:/:/sbin/sh
*but* what you probably want to be doing is using the CGI module to
parse your cgi parameters. You can initialize this from a FileHandle or
IO::File object as necessary, so you could slurp STDIN into a lexical
variable, create an IO::String object from this, dump out the results
and then initialize the CGI object from this. Also check out
restore_parameters in the CGI module.
It is highly likely that I am missing something obvious here.
Mark
------------------------------
Date: Tue, 01 Mar 2005 20:33:47 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: IO::Scalar insanity
Message-Id: <Xns960C9E508FAA6asu1cornelledu@127.0.0.1>
bill <please_post@nomail.edu> wrote in news:d02hah$k8r$1
@reader2.panix.com:
> I run into the need to do this *all* the time, but I have not come
> up with a solution. This need arises almost invariably during the
> debugging of a CGI script. At the beginning of the run I want to
> inspect all the input that the CGI script will read from STDIN,
> but I want to then "restore" this input back to the STDIN stream
> so that execution/debugging session can proceed normally.
http://search.cpan.org/~lds/CGI.pm-
3.05/CGI.pm#CREATING_A_NEW_QUERY_OBJECT_FROM_AN_INPUT_FILE
I am curious why that is not a satisfactory method.
Sinan.
------------------------------
Date: Tue, 1 Mar 2005 21:51:15 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: Re: IO::Scalar insanity
Message-Id: <d02o4j$es4$1@reader2.panix.com>
In <d02hah$k8r$1@reader2.panix.com> bill <please_post@nomail.edu> writes:
>I run into the need to do this *all* the time, but I have not come
>up with a solution. This need arises almost invariably during the
>debugging of a CGI script. At the beginning of the run I want to
>inspect all the input that the CGI script will read from STDIN,
>but I want to then "restore" this input back to the STDIN stream
>so that execution/debugging session can proceed normally.
>I *think* the best solution would be to slurp all the text into a
>lexical
> my $input = do { local $/; <STDIN> };
> # {
> # open my $out, ">debugging_data" or die "$!\n";
> # print $out $input;
> # close $out or die "$!\n";
> # }
>associate this lexical with an IO::Scalar handle
> my $SH = IO::Scalar->new(\$input);
>and then redefine STDIN so that it points to this IO::Scalar.
>*This* is the part that I just can't figure out. Following what
>I see in tutorials and books, I have tried
> open(STDIN, "<&$SH") or die "$!\n";
>but the open fails with an "invalid argument" error message. I've
>also tried
> open(STDIN, "<&=$SH") or die "$!\n";
>(which fails with the same error), and
> *STDIN = *SH;
>and many variants thereof, all of which fail silently.
>It is obvious that I have *no clue* and am just wildly trying out
>random stuff.
>I've read every bit of documentation I can think of, but I have
>not hit on the answer to this question. I know this is all very
>basic, but if someone could spell it out for me I'd greatly appreciate
>it.
Not so basic, I think. IIRC Perl can't do what you want it to do;
something having to do with needing a real file descriptor associated
with the handle before it can dupe it; IO::Scalar and the like
don't provide the FILENO method, AFAIK.
But how about putting this at some suitable location in your source:
my $peek = do { local $/; <STDIN> };
unless (my $pid = open(STDIN, "-|")) {
die "Fork failed: $!" unless defined $pid;
print $peek;
exit 0;
}
The subsequent parent code will read from STDIN as before, but now
it's coming from the child process.
kj
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Tue, 1 Mar 2005 21:58:13 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: Re: IO::Scalar insanity
Message-Id: <d02ohk$es4$2@reader2.panix.com>
In <Xns960C9E508FAA6asu1cornelledu@127.0.0.1> "A. Sinan Unur" <1usa@llenroc.ude.invalid> writes:
>bill <please_post@nomail.edu> wrote in news:d02hah$k8r$1
>@reader2.panix.com:
>> I run into the need to do this *all* the time, but I have not come
>> up with a solution. This need arises almost invariably during the
>> debugging of a CGI script. At the beginning of the run I want to
>> inspect all the input that the CGI script will read from STDIN,
>> but I want to then "restore" this input back to the STDIN stream
>> so that execution/debugging session can proceed normally.
>http://search.cpan.org/~lds/CGI.pm-
>3.05/CGI.pm#CREATING_A_NEW_QUERY_OBJECT_FROM_AN_INPUT_FILE
>I am curious why that is not a satisfactory method.
For starters, it assumes that the CGI script is implemented through
CGI.pm, which may not be the case. Even when the script is
implemented using CGI.pm, if it was written by someone else in a
less than perspicuous style, I prefer to minimize the amount of
such code that I must understand.
kj
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: 1 Mar 2005 22:20:27 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: IO::Scalar insanity
Message-Id: <Xns960CB066E5E5Fasu1cornelledu@132.236.56.8>
kj <socyl@987jk.com.invalid> wrote in
news:d02ohk$es4$2@reader2.panix.com:
> In <Xns960C9E508FAA6asu1cornelledu@127.0.0.1> "A. Sinan Unur"
> <1usa@llenroc.ude.invalid> writes:
>
>>bill <please_post@nomail.edu> wrote in news:d02hah$k8r$1
>>@reader2.panix.com:
>
>
>>> I run into the need to do this *all* the time, but I have not come
>>> up with a solution. This need arises almost invariably during the
>>> debugging of a CGI script. At the beginning of the run I want to
>>> inspect all the input that the CGI script will read from STDIN,
>>> but I want to then "restore" this input back to the STDIN stream
>>> so that execution/debugging session can proceed normally.
>
>>http://search.cpan.org/~lds/CGI.pm-
>>3.05/CGI.pm#CREATING_A_NEW_QUERY_OBJECT_FROM_AN_INPUT_FILE
>
>>I am curious why that is not a satisfactory method.
>
> For starters, it assumes that the CGI script is implemented through
> CGI.pm, which may not be the case.
I am not going to get into that argument.
> Even when the script is implemented using CGI.pm, if it was written
> by someone else in a less than perspicuous style, I prefer to minimize
> the amount of such code that I must understand.
This makes no sense. How can coding style be an issue when we are talking
about passing parameters using an input file? No matter how bad the
original coding style, the way you would initialize a new CGI object from
a parameter file is the same.
Sinan.
------------------------------
Date: Wed, 2 Mar 2005 01:12:13 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: IO::Scalar insanity
Message-Id: <Pine.LNX.4.61.0503020108390.16993@ppepc56.ph.gla.ac.uk>
On Tue, 1 Mar 2005, kj wrote:
> In <Xns960C9E508FAA6asu1cornelledu@127.0.0.1> "A. Sinan Unur" <1usa@llenroc.ude.invalid> writes:
>
> >http://search.cpan.org/~lds/CGI.pm-
> >3.05/CGI.pm#CREATING_A_NEW_QUERY_OBJECT_FROM_AN_INPUT_FILE
>
> >I am curious why that is not a satisfactory method.
>
> For starters, it assumes that the CGI script is implemented through
> CGI.pm, which may not be the case.
Anyone who's expert enough to produce a safe and reliable
implementation that doesn't use CGI.pm will have no difficulty in
solving that problem without any help from us.
> Even when the script is implemented using CGI.pm, if it was written
> by someone else in a less than perspicuous style, I prefer to
> minimize the amount of such code that I must understand.
It sounds as if you're trying to solve a problem that has rather
little technical content, but is more an exercise in sociology.
------------------------------
Date: 1 Mar 2005 14:37:39 -0800
From: sulliman24@gmail.com
Subject: Make easy money!! NO SCAM!! Please Read!
Message-Id: <1109716659.128653.145310@o13g2000cwo.googlegroups.com>
NEED QUICK EASY CASH???
Turn $6.00 into $60,000...read this to find out how!!!
READING THIS COULD CHANGE YOUR LIFE!!!
I found this on a bulletin board like this one and decided to try it. A
little while back, I was
browsing through a newsgroup, just like you are now, and came across an
article similar to this
that said you could make thousands of dollars within weeks with only an
initial investment of
$6.00! So I thought, "Yeah right, this must be a scam", but like most
of us, I was curious, so I
kept reading. Anyway, it said that you need to send $1.00 to each of
the 6 names and address
stated in the article. You then place your own name and address in the
bottom of the list at #6,
and post the article in at least 200 newsgroups. (There are thousands)
No catch, that was it. So
after thinking it over, and talking to a few people first, I thought
about trying it. I figured "what
have I got to lose except 6 stamps and $6.00, right?" Then I invested
the measly $6.00 (I use the
word "measly" because $6 really is measly compared to the money I have
made through the
initial investment). Well GUESS WHAT!!... within 7 days, I started
getting money in the mail! I
was shocked! I figured it would end soon, but the money just kept
coming in.
In my first week, I made about $25.00. By the end of the second week I
had made a total of over
$1,000.00! In the third week I had over $10,000.00 and it's still
growing. This is now my fourth
week and I have made just over $42,000.00 and it's still coming in
rapidly. It's certainly worth
$6.00, and 6 stamps, I have spent more than that on the lottery!! Let
me tell you how this works
and most importantly, why it works.... Also, make sure you print a copy
of this article NOW, so
you can get the information off of it as you need it. I promise you
that if you follow the directions
exactly, that you will start making more money than you thought
possible by doing something so
easy!
Suggestion: Read this entire message carefully! (print it out or
download it.)
Follow the simple directions and watch the money come in! It's easy.
It's legal. And, your
investment is only $6.00 (Plus postage)
IMPORTANT: This is not a rip-off; it is not indecent; it is not
illegal; and it is virtually no risk -
it really works!!!! If all of the following instructions are adhered
to, you will receive
extraordinary dividends.
PLEASE NOTE: Please follow these directions EXACTLY, and $50,000 or
more can be yours
in 20 to 60 days. This program remains successful because of the
honesty and integrity of the
participants. Please continue it's success by carefully adhering to
the instructions. You will now
become part of the Mail Order business. In this business your product
is not solid and tangible,
it's a service. You are in the business of developing Mailing Lists.
Many large corporations are
happy to pay big bucks for quality lists. However, the money made from
the mailing lists is
secondary to the income which is made from people like you and me
asking to be included in that
list.
Here are the 4 easy steps to success:
STEP 1: Get 6 separate pieces of paper and write the following on each
piece of paper
"PLEASE PUT ME ON YOUR MAILING LIST."
Now get 6 US $1.00 bills and place ONE inside EACH of the 6 pieces of
paper so the bill will
not be seen through the envelope (to prevent thievery).
Next, place one paper in each of the 6 envelopes and seal them. You
should now have 6 sealed
envelopes, each with a piece of paper stating the phrase "PLEASE PUT ME
ON YOUR
MAILING LIST.", your name and address, and a $1.00 bill. What you are
doing is creating a
service. THIS IS ABSOLUTELY LEGAL! You are requesting a legitimate
service and you are
paying for it!
Like most of us I was a little skeptical and a little worried about the
legal aspects of it all. So I
checked it out with the U.S. Post Office (1-800-725-2161) and they
confirmed that it is indeed
legal! Mail the 6 envelopes to the following addresses:
#1) Damon Bailey
1055 Brookfield Dr.
Medina, OH 44256
#2) Krysta Johnson
9821 Camino Villa #1024
San Antonio, TX 78254
#3) Daniel Torres
2727 W. Oak Ridge Rd.
Bld:8 Apt:3
Orlando Fl. 32809
#4) A.Strachan
P.O.Box CR-56992
Nassau, Bahamas
#5) Kim Pepin
1056 Centennial Cres.
Corbeil , Ontario, Canada
P0H 1K0
#6) Michael Sullivan
155 Parrott Rd.
West Nyack, NY, 10994
STEP 2: Now take the #1 name off the list that you see above, move the
other names up (6
becomes 5, 5 becomes 4, etc...) and add YOUR Name as number 6 on the
list.
STEP 3: Change anything you need to, but try to keep this article as
close to original as possible.
Now, post your amended article to at least 200 newsgroups. (I think
there are close to 32,000+)
All you need is 200, but remember, the more you post, the more money
you make!
This is perfectly legal! If you have any doubts, refer to Title 18 Sec.
1302 & 1341 of the Postal
lottery laws. Keep a copy of these steps for yourself and, whenever you
need money, you can use
it again, and again.
PLEASE REMEMBER that this program remains successful because of the
honesty and
integrity
of the participants and by their carefully adhering to the directions.
Look at it this way. If you are
of integrity, the program will continue and the money that so many
others have received will
come your way.
NOTE: You may want to retain every name and address sent to you, either
on a computer or hard
copy and keep the notes people send you. This VERIFIES that you are
truly providing a service.
(Also, it might be a good idea to wrap the $1 bill in dark paper to
reduce the risk of mail theft.)
So, as each post is downloaded and the directions carefully followed,
six members will be
reimbursed for their participation as a List Developer with one dollar
each. Your name will move
up the list geometrically so that when your name reaches the #1
position you will be receiving
thousands of dollars in CASH!!! What an opportunity for only $6.00
($1.00 for each of the first
six people listed above)
Send it now, add your own name to the list and you're in business!
---DIRECTIONS ----- FOR HOW TO POST TO NEWSGROUPS------------
Step 1) You do not need to re-type this entire letter to do your own
posting. Simply put your
cursor at the beginning of this letter and drag your cursor to the
bottom of this document, and
select 'copy' from the edit menu. This will copy the entire letter into
the computer's memory.
Step 2) Open a blank 'notepad' file and place your cursor at the top of
the blank page. From the
'edit' menu select 'paste'. This will paste a copy of the letter into
notepad so that you can add your
name to the list.
Step 3) Save your new notepad file as a .txt file. If you want to do
your postings in different
settings, you'll always have this file to go back to.
Step 4) Use Netscape or Internet explorer and try searching for various
newsgroups (on-line
forums, message boards, chat sites, discussions, etc.)
Step 5) Visit these message boards and post this article as a new
message by highlighting the text
of this letter and selecting paste from the edit menu. Fill in the
Subject, this will be the header
that everyone sees as they scroll through the list of postings in a
particular group, click the post
message button. You're done with your first one!
Congratulations...THAT'S IT!
All you have to do is jump to different newsgroups and post away, after
you get the hang of it, it
will take about 30 seconds for each newsgroup!
**REMEMBER, THE MORE NEWSGROUPS YOU POST IN, THE MORE
MONEY YOU
WILL MAKE!! BUT YOU HAVE TO POST A MINIMUM OF 200**
That's it! You will begin receiving money from around the world within
days! You may
eventually want to rent a P.O.Box due to the large amount of mail you
will receive. If you wish to
stay anonymous, you can invent a name to use, as long as the postman
will deliver it.
**JUST MAKE SURE ALL THE ADDRESSES ARE CORRECT.**
Now the WHY part: Out of 200 postings, say I receive only 5 replies (a
very low example). So
then I made $5.00 with my name at #6 on the letter. Now, each of the 5
persons who just sent me
$1.00 make the MINIMUM 200 postings, each with my name at #5 and only 5
persons respond
to each of the original 5, that is another $25.00 for me, now those 25
each make 200 MINIMUM
posts with my name at #4 and only 5 replies each, I will bring in an
additional $125.00! Now,
those 125 persons turn around and post the MINIMUM 200 with my name at
#3 and only receive
5 replies each, I will make an additional $626.00! OK, now here is the
fun part, each of those 625
persons post a MINIMUM 200 letters with my name at #2 and they each
only receive 5 replies,
that just made me $3,125.00!!! Those 3,125 persons will all deliver
this message to 200
newsgroups with my name at #1 and if still ONLY 5 persons per 200
newsgroups react I will
receive $15,625,00! With an original investment of only $6.00! AMAZING!
When your name is
no longer on the list, you just take the latest posting in the
newsgroups, and send out another
$6.00 to names on the list, putting your name at number 6 again. And
start posting again.
The thing to remember is do you realize that thousands of people all
over the world are joining
the internet and reading these articles everyday?, JUST LIKE YOU are
now!! So, can you afford
$6.00 and see if it really works?? I think so... People have said,
"what if the plan is played out
and no one sends you the money? So what! What are the chances of that
happening when there
are tons of new honest users and new honest people who are joining the
internet and newsgroups
everyday and are willing to give it a try? Estimates are at 20,000 to
50,000 new users, every day,
with thousands of those joining the actual internet. Remember, play
FAIRLY and HONESTLY
and this will really work!!!
Please keep this going!!! It's incredible... We can all help eachother
with some of our
financial problems!!! Thanks and have yourself a great day!
------------------------------
Date: Tue, 1 Mar 2005 14:27:43 -0600
From: "AC" <clarke@n_o_s_p_a_m_hyperformix.com>
Subject: odd socket behavior with ZoneAlarm
Message-Id: <4224cfeb$0$92309$39cecf19@news.twtelecom.net>
This is very strange and I'm posting it here in case someone else runs into
this problem. ZA (ZoneAlarm) messes up Perl applications that read from
sockets using the syntax
my $line = <SOCK>;
causing them to hang indefinately, even if the server closes the socket. You
can get past this by using the following code snippet instead:
my $line = "";
if (defined (recv(SOCK, $line, 1024, 0))) {
print $line;
}
Does anyone know what ZoneAlarm might be doing? Is it messing with the line
terminator that the server uses? The internal XP firewall does not interfere
with Perl programs this way.
Many Thanks,
Allan
------------------------------
Date: Tue, 01 Mar 2005 15:14:03 -0700
From: YYUsenet <yyusenet@yahoo.com>
Subject: Re: odd socket behavior with ZoneAlarm
Message-Id: <d02pfb$3k9$1@news.xmission.com>
AC wrote:
> This is very strange and I'm posting it here in case someone else runs into
> this problem. ZA (ZoneAlarm) messes up Perl applications that read from
> sockets using the syntax
>
> my $line = <SOCK>;
>
> causing them to hang indefinately, even if the server closes the socket. You
> can get past this by using the following code snippet instead:
>
> my $line = "";
> if (defined (recv(SOCK, $line, 1024, 0))) {
> print $line;
> }
>
> Does anyone know what ZoneAlarm might be doing? Is it messing with the line
> terminator that the server uses? The internal XP firewall does not interfere
> with Perl programs this way.
>
> Many Thanks,
>
> Allan
>
>
This is OT here, but I think that Zone Alarm is just trying to block any
unauthorized program from receiving data through sockets.
--
k g a b e r t (at) x m i s s i o n (dot) c o m
*Use Mozzila/Firefox*!
http://www.spreadfirefox.com/?q=user/register&r=71209
------------------------------
Date: Tue, 1 Mar 2005 11:41:44 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Performance questions (SQL-statements)
Message-Id: <o4tef2xf46.ln2@goaway.wombat.san-francisco.ca.us>
On 2005-03-01, Piet L. <PietLaroy@hotmail.com> wrote:
> OK, but even I change it like
>
> "SELECT b.book_id, b.title, l.name, l.firstname
> FROM book b, book_author ba
> LEFT JOIN list_authors l
> ON ba.person_id = l.person_id
> WHERE b.book_id = ba.book_id
> AND ba.person_id = 124"
>
> I'm still having the same problem.
Why are you still asking here? It's not a perl problem, apparently, so
you should be asking an SQL group or a group for your particular
backend.
> How does it come that I'm not able to display xml/xslt transformation
> in my webbrower? (Microsoft Internet Explorer). When I try to test
> the script
> I only get the source code, not the WSYSIWYG
Why are you asking here? It's not a perl problem, so you should be
asking a) your sysadmin, or b) in a group about your webserver.
--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
see X- headers for PGP signature information
------------------------------
Date: 1 Mar 2005 15:54:56 -0800
From: lqueryvg@yahoo.com (john)
Subject: Re: perl problem with select and non-blocking sysread from multiple pipes
Message-Id: <9c8511e0.0503011554.381166af@posting.google.com>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in message news:<Xns960C8F1387CE0asu1cornelledu@127.0.0.1>...
> lqueryvg@yahoo.com (john) wrote in
> news:9c8511e0.0503011054.a18023e@posting.google.com:
>
> > Brian McCauley <nobull@mail.com> wrote in message
> > news:<d01o4p$cpv$1@sun3.bham.ac.uk>...
> >
> ...
> >> Yes, yuk - this is not necessary in 5.6.1 and later - is
> >> compatability with earlier Perl really needed?
> >
> > If there's a better way then I'll do it.
> > I don't like using the 'no strict refs' all over the place and
> > the indirect filehandle stuff is just plain confusing.
>
> Please quote the appropriate amount of context so we can tell what the
> discussion is about.
Sorry. More context is below (the last words are mine)...
> > > my $eofsFound = 0;
> > > my $eofsExpected = 5;
> > > my $taskNum = 0;
> > >
> > > my $readBits = ''; # "bitlist" of parent reader filehandles
> > > my($fh) = ('fh0000'); # indirect filehandle names, yuk
> >
> > Yes, yuk - this is not necessary in 5.6.1 and later - is compatability
> > with earlier Perl really needed?
>
> If there's a better way then I'll do it.
> I don't like using the 'no strict refs' all over the place and
> the indirect filehandle stuff is just plain confusing.
> Can you give me any pointers ?
I'm still interested to hear what the "recommended"
approach is to avoid the yucky indirect filehandle names.
Is it IO::Handle ?
>
> D:\Home> perldoc -f vec
> vec EXPR,OFFSET,BITS
> Treats the string in EXPR as a bit vector made up of elements of
> width BITS, and returns the value of the element specified by
> OFFSET as an unsigned integer.
>
> Sinan
I've written that small script...
use strict;
#use warnings;
my $bitstring = "";
vec($bitstring, undef, 1) = 1;
my $bits = unpack("b*", $bitstring);
print "$bits\n";
It prints:
10000000
Basically the undef is treated by vec as offset zero.
With the "use warnings" un-commented, the output is...
Use of uninitialized value in vec at test.pl line 5.
10000000
Now I understand why select() was failing in my testcase.
The big lesson I've learned is to "use warnings" in future.
------------------------------
Date: Wed, 02 Mar 2005 00:55:52 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Pure Perl OpenSSL Library
Message-Id: <E4udnbsyq6-JkrjfRVnygQ@pipex.net>
Marc wrote:
>
>> You will be *creating* thousands of certificates within minutes!? Why?
>
> Because I have thousands nodes that needs a certificate
But not new ones at each startup, surely?
> Yes they are, but the bottleneck is the step just before this one. The
> node needs a certificate if it wants to send it, right? So how do I
> provide theses thousand certificates?
Create them once, save them on each node and get each node to use its
saved one when it starts.
> I was just looking for the fastest way to run a script that can make
> some checks (I won't issu certificates for every request) and from a
> certificate request, issu a signed certificate. That's all.
So get the client to save it and resuse it for some time (you can set
your own expiry date...).
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: 1 Mar 2005 17:38:40 -0800
From: al2048@aol.com
Subject: Re: Questions about Perl for Windows
Message-Id: <1109727520.930068.314190@f14g2000cwb.googlegroups.com>
Bart Lateur wrote:
> >Is ActivePerl reliable?
>
> Yes. ActivePerl is pretty much *the* perl for Windows... though
> technically, it and Indigoperl are virtually identical. Precompiled
> modules for ActivePerl (AKA PPM distributions) will work just as well
> for for both, too. The main difference between the two is what comes
> with it for modules, and the module installation script itself that
> comes with it. Each has a custom written script, comletely different
> from that of the other.
>
I need a version of Perl that can use modules. Can both IndigoPerl and
ActivePerl do that?
Also, I have dial-up Internet access. So, which Perl version is best to
download?
Regards,
Alex K.
------------------------------
Date: 1 Mar 2005 11:35:06 -0800
From: jeffburgoon@hotmail.com
Subject: Socket Send and Receive, Same local port, Different Remote Port
Message-Id: <1109705706.268931.143030@o13g2000cwo.googlegroups.com>
I'm having a problem opening a socket and receiving a response from a
different IP/port than what I'm sending to. Here is what I'm trying to
do:
Open Socket with IP/Port (A,B)
Send to location with IP/Port (C,D)
Immediately receive response on IP/Port (A,B) from IP/Port (X,Y), or
any IP/Port other than (C,D)
My problem is that in order for me to send to (C,D) I have to create
the socket with peer address/port (C,D), so only responses from (C,D)
are allowed. I have tried setting up the socket to use (C,D), then
tearing it down and recreating it with no peer IP/port specified but I
think this is too slow, as the response comes back almost immediately
and is missed by the recv() function. Here is what I'm trying:
$socket=new IO::Socket::INET->new(PeerPort=>$dst_port_num
,Proto=>$'udp'
,PeerAddr=>$dst_addr_str
,LocalPort=>5060
,Reuse=>1);
$socket->send($packet_text);
close($socket);
$socket->recv($response,1024);
close($socket);
The above code works as long as the response comes back from ip/port
($dst_addr_str, $dst_port_num). If a packet is received from a
different IP or port, it is ignored as the socket is only listening on
that pair. I have tried adding in the code to recreate the socket but
it appears to be too slow as the response is never received. Here is
what I add in, directly above the recv() line in the above code:
$socket=new IO::Socket::INET->new(Proto=>$protocol_str
,LocalPort=>5060);
I'm thinking what I need is to either
A) Allocate a socket with no remote port/ip and instead specify port/ip
in send()
or
B) Change peer IP/port to nothing on the fly immediately after sending
packet.
Any help would be greatly appreciated.
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 7844
***************************************
