[28920] in Perl-Users-Digest
Perl-Users Digest, Issue: 164 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 22 18:09:51 2007
Date: Thu, 22 Feb 2007 15:09:05 -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 Thu, 22 Feb 2007 Volume: 11 Number: 164
Today's topics:
Re: Any 3270 emulation for perl yet? <tzz@lifelogs.com>
Re: Any 3270 emulation for perl yet? <bik.mido@tiscalinet.it>
Re: Any 3270 emulation for perl yet? <uri@stemsystems.com>
Re: Any 3270 emulation for perl yet? <RedGrittyBrick@SpamWeary.foo>
Re: fork()-ing questions <dale.schmitz@offutt.af.mil>
Re: fork()-ing questions anno4000@radom.zrz.tu-berlin.de
Re: fork()-ing questions <dale.schmitz@offutt.af.mil>
Re: fork()-ing questions <uri@stemsystems.com>
Re: fork()-ing questions <jurgenex@hotmail.com>
Re: fork()-ing questions <bik.mido@tiscalinet.it>
Re: fork()-ing questions <bik.mido@tiscalinet.it>
Re: How to get individual fields into variables using D <tzz@lifelogs.com>
Re: net::mysql holds onto my query <glex_no-spam@qwest-spam-no.invalid>
Re: net::mysql holds onto my query <lskatz@gmail.com>
Re: Performance project for the SigEx Foundry pierre_marie_durand@yahoo.fr
Re: problem CGI read request POST <joe@inwap.com>
Re: Problem with Perl extensions <1usa@llenroc.ude.invalid>
Re: Regex: Why is overreaching necessary? <jgibson@mail.arc.nasa.gov>
Re: ucfirst() with "_" separator <bik.mido@tiscalinet.it>
Re: Unable to install Math::BigInt::GMP on Solaris 10 fmurch@gmail.com
Re: Unable to install Math::BigInt::GMP on Solaris 10 sumitbee@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 22 Feb 2007 14:27:01 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Any 3270 emulation for perl yet?
Message-Id: <g69odnmxabe.fsf@dhcp-65-162.kendall.corp.akamai.com>
On Thu, 22 Feb 2007 07:18:02 -0500 Fred <itfred@cdw.com> wrote:
F> I searched for a perl 3270 emulator several years ago, and could
F> find none. I wound up using the s3270 emulator wrapped in a perl
F> script. I've been searching again, and still do not see a perl
F> based 3270 emulator. Since a perl 3270 emulator apparently still
F> does not exist, I guess the question is why? It would seem a
F> natural for perl, to connect to a 3270 and screen scrape, or
F> whatever.
I don't think you mean "emulator" here, since Perl is not going to
pretend to be a 3270. You want Perl to connect to a 3270 and get some
data. If you can show sample data the 3270 would send, and what tasks
you are trying to accomplish, you may get more help.
Ted
------------------------------
Date: Thu, 22 Feb 2007 21:47:32 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Any 3270 emulation for perl yet?
Message-Id: <1vvrt2p62mdj318sg2cbk27gas76uojvva@4ax.com>
On Thu, 22 Feb 2007 07:18:02 -0500, Fred <itfred@cdw.com> wrote:
>I searched for a perl 3270 emulator several years ago, and
>could find none. I wound up using the s3270 emulator wrapped
If you mean <http://en.wikipedia.org/wiki/IBM_3270>, I can't
understand what you mean with a "perl emulator". Please note that as
particular piece of ignorance on my part, prior to your post I had no
idea what a 3270 could be, but IIUC it's a terminal. Thus the emulator
you're after is a *terminal emulator*. And a terminal emulator, well,
may be written in Perl just fine. However terminal emulators generally
aren't...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 22 Feb 2007 15:47:56 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Any 3270 emulation for perl yet?
Message-Id: <x74ppd3on7.fsf@mail.sysarch.com>
>>>>> "SP" == Sherm Pendley <spamtrap@dot-app.org> writes:
SP> Fred <itfred@cdw.com> writes:
>> I've been searching again, and still do
>> not see a perl based 3270 emulator. Since a perl 3270
>> emulator apparently still does not exist, I guess the
>> question is why?
SP> Most (if not all) CPAN modules are written for the authors' own use first,
SP> and then shared with the public second. Few (if any) modules are written
SP> for the sole purpose of scratching some else's itch.
i have yet to use File::ReadBackwards! i wrote it to satisfy the global
itch for an efficient and easy way to read log (and other) files
backwards by lines. in fact given the kind of development i do, i doubt
i will ever use it. :)
and it was an interesting project.
and i also have yet to use Sort::Maker.
i do use File::Slurp :).
i seem to like other people's itches more than mine. :)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 22 Feb 2007 22:52:57 +0000
From: RedGrittyBrick <RedGrittyBrick@SpamWeary.foo>
Subject: Re: Any 3270 emulation for perl yet?
Message-Id: <IPSdnYWKi91Xg0PYnZ2dnUVZ8qO3nZ2d@bt.com>
Fred wrote:
> I searched for a perl 3270 emulator several years ago, and
> could find none. I wound up using the s3270 emulator wrapped
> in a perl script. I've been searching again, and still do
> not see a perl based 3270 emulator. Since a perl 3270
> emulator apparently still does not exist, I guess the
> question is why?
Maybe because the 3270 is so complex, weird and little-used nowadays?
The original 3270 was connected by Coax cable, not serial cable, not by
Ethernet (nor even Token Ring originally).
The original 3270 used a proprietary block-mode communications protocol.
I think it was synchronous rather than asynchronous.
The 3270 uses the EBCDIC character set.
I think most 3270 emulators (including s3270) emulate 3270 over telnet,
which gets rid of the first two problems. Assuming your mainframe
supports TN3270.
Perhaps Uri is busy scrutinizing RFC1576 :-)
------------------------------
Date: 22 Feb 2007 11:30:00 -0800
From: "Monty" <dale.schmitz@offutt.af.mil>
Subject: Re: fork()-ing questions
Message-Id: <1172172600.064452.92500@v45g2000cwv.googlegroups.com>
Let me rephrase my question...I don't think I'm asking something
correctly. Or, maybe I am and I'm just not understanding your answers.
My question probably has more to do with the evaluation of the true/
false condition in the 'unless' statement at this point. Assuming
$var = 1 is a successful assignment, then 'if ($var = 1)' would
evaluate as true (as would 'if ($var ==1)', but the point is that
there's an operation in the conditional test, and I'm thinking that
the success of that operation is what determines the truth/falseness
of the expression). If that's wrong, then correct me right here,
otherwise I'm assuming that the statement 'unless($pid = fork())' is
not evaluated on the value stored in $pid, but on whether or not the
operation of forking was successful. This is at the crux of my
understanding why the conditional test is true for the parent and
false for the child. It would be easier from a certain aspect if the
statement was 'unless($pid)', but that's not what's being done here.
------------------------------
Date: 22 Feb 2007 19:51:29 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: fork()-ing questions
Message-Id: <546ai1F1v6h5cU1@mid.dfncis.de>
Monty <dale.schmitz@offutt.af.mil> wrote in comp.lang.perl.misc:
> Let me rephrase my question...I don't think I'm asking something
> correctly. Or, maybe I am and I'm just not understanding your answers.
>
> My question probably has more to do with the evaluation of the true/
> false condition in the 'unless' statement at this point. Assuming
> $var = 1 is a successful assignment, then 'if ($var = 1)' would
> evaluate as true (as would 'if ($var ==1)', but the point is that
> there's an operation in the conditional test, and I'm thinking that
> the success of that operation is what determines the truth/falseness
> of the expression). If that's wrong, then correct me right here,
Well, it *is* wrong. To begin with, your terminology is off the
mark. 'if ($var = 1)' doesn't evaluate to anything, it isn't even
a statement. The complete "if ( ... ) { ... }" statement might
evaluate to something, but it doesn't either. Like loops, if has
no value.
That aside, the success of an operation doesn't necessarily determine
its value. Many system calls, like open(), mkdir(), and so on, do
that. fork(), however, and some others, behaves differently.
You have seen that on success fork() returns different values to
the parent and the child, the child's PID (true) to the parent and
0 (false, but a defined value) to the child. On failure, fork()
returns an undefined value (only to the parent, the child wasn't
created). That is how it is described in the pertinent perldoc,
and only that counts. Conclusions by analogy with "similar"
functions are misleading.
> otherwise I'm assuming that the statement 'unless($pid = fork())' is
> not evaluated on the value stored in $pid, but on whether or not the
> operation of forking was successful.
Again, no. I fail to see how this is a contrast to your first
assumption.
> This is at the crux of my
> understanding why the conditional test is true for the parent and
> false for the child. It would be easier from a certain aspect if the
> statement was 'unless($pid)', but that's not what's being done here.
The code
my $pid = fork();
unless ( $pid ) {
# child code
exit;
}
# and so on
would be exactly equivalent.
Anno
------------------------------
Date: 22 Feb 2007 13:29:54 -0800
From: "Monty" <dale.schmitz@offutt.af.mil>
Subject: Re: fork()-ing questions
Message-Id: <1172179794.802618.104920@v45g2000cwv.googlegroups.com>
I see the error in my thinking. Somewhere along the lines, between
teaching myself Perl, C++, Tcl/Tk, Ada, and various flavors of shells,
I ran across a piece of knowledge that said executable statements
could be put in place of conditional tests and the truth/falseness
would be based on the success of that executable statement. I was
erroneous in thinking that Perl did this and that's behind my
confusion over the 'unless' statement. I found this out by running a
bit of test code:
'if ($pid = 0)' evaluates to false and 'if ($pid = 1)' evaluates to
true
'if ({$pid = 0})' evaluates to true, as does 'if ({$pid = 1})'
I assumed the second form of the if statement was Perl behavior.
That clears things up considerably.
I'm going to end this discussion right here. Thanks again to all!
------------------------------
Date: Thu, 22 Feb 2007 16:41:06 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: fork()-ing questions
Message-Id: <x7mz3527m5.fsf@mail.sysarch.com>
>>>>> "M" == Monty <dale.schmitz@offutt.af.mil> writes:
M> 'if ($pid = 0)' evaluates to false and 'if ($pid = 1)' evaluates to
M> true
M> 'if ({$pid = 0})' evaluates to true, as does 'if ({$pid = 1})'
why are the {} in there? those are anon hashes which you don't want
(they will always be true and warnings will point out the odd number of
initializers). where did you get the idea that {} is needed there?
M> I assumed the second form of the if statement was Perl behavior.
huh?
perl has a very simple rule about expressions. all expressions have a
value. simple. that value can be used in many ways and contexts. if()
provides a boolean (which is also scalar) context on the expression
inside (). that is ALL that happens. never assume from other langs what
perl does. perl likely does what you want and in a simpler way.
M> That clears things up considerably.
not for me. you still seem to not understand perl's expressions. fork
is just a function that returns a value so it is an expression. but it
happens to have the most powerful side effect of any perl call as it
creates a new copy of that process for you. and it is not a perl thing
but an OS thing that perl supports directly.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 22 Feb 2007 22:35:43 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: fork()-ing questions
Message-Id: <3VoDh.27186$tQ.3561@trndny07>
Monty wrote:
> Let me rephrase my question...I don't think I'm asking something
> correctly. Or, maybe I am and I'm just not understanding your answers.
>
> My question probably has more to do with the evaluation of the true/
> false condition in the 'unless' statement at this point. Assuming
> $var = 1 is a successful assignment, then 'if ($var = 1)' would
> evaluate as true (as would 'if ($var ==1)', but the point is that
> there's an operation in the conditional test,
Well, right. I assume with operation you mean the assignment?
> and I'm thinking that
> the success of that operation is what determines the truth/falseness
> of the expression).
Wrong.
> If that's wrong, then correct me right here,
The operation has a return value. For some operations that return value may
indicate success or failure. For others like e.g. + or = or s/// or many,
many others the return value indicates something totally different.
The assignment operator return the value it was assigning to the variable.
Unfortunately that is not clearly spelled out in perldoc perlop.
jue
> otherwise I'm assuming that the statement 'unless($pid = fork())' is
> not evaluated on the value stored in $pid, but on whether or not the
> operation of forking was successful.
Neither nor. The conditional is evaluated on the return value of the
assignment, which happens to be the return value of fork(), which happens to
be different for parent and child.
For the sake of the conditional your code is equivalent to
unless (fork()) {
# child code
exit;
}
The only reason for the explicit assignment of the return value of fork() to
a variable is that later on the parent process can use that PID to identify
its own children by their process IDs.
jue
------------------------------
Date: Thu, 22 Feb 2007 23:49:13 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: fork()-ing questions
Message-Id: <u07st2peb759nri2mtlidg4aaqs56e2rl8@4ax.com>
On 22 Feb 2007 11:30:00 -0800, "Monty" <dale.schmitz@offutt.af.mil>
wrote:
>Let me rephrase my question...I don't think I'm asking something
>correctly. Or, maybe I am and I'm just not understanding your answers.
Please quote some context when replying. Otherwise it's hard to
understand what you're referring to.
>My question probably has more to do with the evaluation of the true/
>false condition in the 'unless' statement at this point. Assuming
Make it an C<if> if that's easier for you to understand.
>$var = 1 is a successful assignment, then 'if ($var = 1)' would
There's no concept of a "successful assignment", for an assignment in
some sense cannot fail. It's an expression, though, which returns a
value, which in turn happens to be what's on the rhs. If the rhs is
true, then so is the assignment.
>evaluate as true (as would 'if ($var ==1)', but the point is that
This is not true: C<$var ==1> may evaluate as false.
>there's an operation in the conditional test, and I'm thinking that
>the success of that operation is what determines the truth/falseness
>of the expression). If that's wrong, then correct me right here,
Yes, of course!
>otherwise I'm assuming that the statement 'unless($pid = fork())' is
>not evaluated on the value stored in $pid, but on whether or not the
>operation of forking was successful. This is at the crux of my
But the two correspond, as $pid is populated with the return value
from fork().
>understanding why the conditional test is true for the parent and
>false for the child. It would be easier from a certain aspect if the
>statement was 'unless($pid)', but that's not what's being done here.
If it's easier for you to understand you can do
my $pid=fork;
unless ($pid) { # whatever
just as finely.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Fri, 23 Feb 2007 00:01:27 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: fork()-ing questions
Message-Id: <kr7st2hqqo1pel2iqjhpd76o48nb0gs8jq@4ax.com>
On 22 Feb 2007 13:29:54 -0800, "Monty" <dale.schmitz@offutt.af.mil>
wrote:
>I see the error in my thinking. Somewhere along the lines, between
For the second time in a row: please quote some context!
>teaching myself Perl, C++, Tcl/Tk, Ada, and various flavors of shells,
>I ran across a piece of knowledge that said executable statements
>could be put in place of conditional tests and the truth/falseness
>would be based on the success of that executable statement. I was
>erroneous in thinking that Perl did this and that's behind my
>confusion over the 'unless' statement. I found this out by running a
>bit of test code:
I can't remember C/C++ to be affected by what that you describe. I
hardly can imagine an assignment to "fail" either. Well, overloading
and "esoteric" variables (i.e. tied ones in Perl).
>'if ({$pid = 0})' evaluates to true, as does 'if ({$pid = 1})'
Do you have the slightest idea of what you're doing here? Indeed they
both "evaluate to" true: it's just as if you wrote
my %hash=(foo => 1, bar => 2);
if (\%hash) { # ...
All references are true!
>I assumed the second form of the if statement was Perl behavior.
Huh?!?
>That clears things up considerably.
I doubt that.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 22 Feb 2007 14:25:29 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: How to get individual fields into variables using DBI?
Message-Id: <g69slcyxady.fsf@dhcp-65-162.kendall.corp.akamai.com>
On Thu, 22 Feb 2007 08:40:58 -0500 Fred <itfred@cdw.com> wrote:
F> On Wed, 21 Feb 2007 18:09:53 +1100, Iain Chalmers wrote:
>> In article <VuidnUuT3elRVEbYnZ2dnUVZ_t-mnZ2d@comcast.com>,
>> Fred <itfred@cdw.com> wrote:
>>
>>> The code fragment below will print all rows in the
>>> table mytable. If there are say 3 fields in mytable,
>>> field1, field2, and field3, how would I get all of
>>> the values into each field? That is, break up
>>> each row by field into variables?
>>
>> Errmmm, you _do_ know what that "@" symbol in front of @row means, right?
>>
>> Have you tried something like:
>>
>> print "col0 = $row[0], col1 = $row[1]\n";
>>
>> inside that while loop?
>>
>> big
F> Thanks. I was thinking that each element of @row was an
F> entire row like:
F> $row[0] = "col1_here col2_here col3_here"
F> $row[1] = "col1_here col2_here col3_here"
If you are just getting started with DBI, I would suggest looking at
Rose::DB::Object. The Loader module will automatically generate all
the code for you (MySQL, SQLite, Postgres, and I'm working on Oracle), so
you can just say
my @results = # your query here
foreach my $item (@results)
{
printf "F1 %s F2 %s F3 %s\n", $item->col1(), $item->col2(), $item->col3();
}
Install Rose::DB::Object from CPAN:
perl -MCPAN -eshell'install Rose::DB::Object'
and then look at the simple docs for setting up Rose::DB and
Rose::DB::Object::Loader to write your code for you.
Even if you can't use the Loader to write the code automatically, you
can still use RDBO, just set up the tables yourself, but it's
ridiculously easy to do it with Loader when it's available.
I'm not the author of RDBO, but I like it a *lot*.
Ted
------------------------------
Date: Thu, 22 Feb 2007 14:51:50 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: net::mysql holds onto my query
Message-Id: <45de025c$0$697$815e3792@news.qwest.net>
Lee wrote:
> I set debug=true and got this information in case it helps anyone help
> me...
>
> Net::MySQL::_execute_command():
> 7A 03 00 00 03 53 45 4C 45 43 54 20 44 49 53 54 z....SELECT.DIST
[...]
How would that help anyone???...
>
> ... and it freezes here.
Maybe it's running your query and waiting for results.
Check your database to see what's running.
Try using DBI.
------------------------------
Date: 22 Feb 2007 13:13:50 -0800
From: "Lee" <lskatz@gmail.com>
Subject: Re: net::mysql holds onto my query
Message-Id: <1172178830.762952.95450@a75g2000cwd.googlegroups.com>
> [...]
> How would that help anyone???...
No clue!
>
> Try using DBI.
So... what is the consensus on what to use? DBD::mysql? or the class
for DBI?
------------------------------
Date: 22 Feb 2007 11:40:35 -0800
From: pierre_marie_durand@yahoo.fr
Subject: Re: Performance project for the SigEx Foundry
Message-Id: <1172173230.420259.123190@l53g2000cwa.googlegroups.com>
On Feb 21, 1:15 pm, p...@sigex.com wrote:
> have been testing performances of different scripting languages
> fordatabase access, text processing and client application data
> transfer. So far, I am getting better performance from PHP, but I
> don't have any hard data to back it up compared to others.
>
> This is a large project for theSigExFoundryand it involves hundreds
> of servers. I am looking for articles/studies/benchmarks on the
> subject.
>
> Thank you,
>
> Pablo
> Server Side Developer
> Student for theSigExFoundry
> funded bySigExVentures
Hi Pablo,
It's a good question. You want to really understand what you are doing
this benchmark for. In my opinion, you should go for the language that
fits your needs and focus on performance optimization for that
language. I would be more inclined to go with PHP, but that's a
personal choice. I'm sure you can search performance for these
languages and come up with lots of ressources on the web.
Pierre-Marie Durand
------------------------------
Date: Thu, 22 Feb 2007 12:14:45 -0800
From: Joe Smith <joe@inwap.com>
Subject: Re: problem CGI read request POST
Message-Id: <vrydnWKF3MgqZEDYnZ2dnUVZ_rmdnZ2d@comcast.com>
john.swilting wrote:
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> @pairs = split(/&/, $buffer);
No. Do not do that.
Use the CGI.pm module to perform that function.
-Joe
------------------------------
Date: Thu, 22 Feb 2007 21:32:23 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Problem with Perl extensions
Message-Id: <Xns98DFA83E1CAA2asu1cornelledu@127.0.0.1>
"Lukasz Odulinski" <Lukasz.Odulinski@gmail.com> wrote in
news:1172171116.731994.59770@t69g2000cwt.googlegroups.com:
> Hi
> I'm trying to set up otrs on windows small businness server on IIS
> 6.0.
> When I set perl.exe for .pl extension in IIS manager I see login
> screen but when I try to login I get cgi error The specified CGI
> application misbehaved by not returning a complete set of HTTP
> headers.
>
> I've changed perl.exe to perlis.dll for .pl extension and then browser
> has returned html source instead of rendering it.
>
> I've also tried the 3rd method perlEx30.dll and the browser rendered
> good html page but it don't stop. The progress bar on the bottom of
> firefox shows that page hasn't been downloaded fully yet. After a
> while I get error about connection reset.
This is not a Perl question but rather a question regarding how to
configure the particular web server you have chosen.
As such, you would stand to benefit more by posting the question on a group
which deals with IIS.
You might also want to read the posting guidelines for comp.lang.perl.misc
(they are posted here regularly).
Sinan
------------------------------
Date: Thu, 22 Feb 2007 13:27:21 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Regex: Why is overreaching necessary?
Message-Id: <220220071327215738%jgibson@mail.arc.nasa.gov>
In article <1172125167.083189.135080@k78g2000cwa.googlegroups.com>,
Shannon Jacobs <Shannon.Jacobs.nospam@gmail.com> wrote:
> Having fixed one problem, my latest testing discovered yet another
> peculiarity which could easily consume much more time than it's
> worth... I'm only going to mention it as an example of the peculiarity
> of my code... I have discovered that using the search target 2471|2396
> returns different results from the search target 2396|2471. I don't
> think this can really be Perl's fault. However and fortuitously, every
> problem that I've discovered (so far) is in the direction of false
> positives, and that is not very troublesome for this application...
>
> My current belief is that this newly discovered flaw is somewhere on
> the HTML side, possibly in my JavaScript. However if I can't find it
> there, and if it seems to be in the Perl, I may be back. Thanks again.
>
Can you post an example demonstrating this remarkable discovery?
Something along the lines of the following:
#!/usr/local/bin/perl
use strict;
use warnings;
my $target1 = '2471|2396';
my $target2 = '2396|2471';
while(<DATA>) {
chomp;
if( /$target1/ ) {
print "$_ matches $target1\n";
}else{
print "$_ doesn't match $target1\n";
}
if( /$target2/ ) {
print "$_ matches $target2\n";
}else{
print "$_ doesn't match $target2\n";
}
}
__DATA__
2471
2396
247
239
... which produces...
2471 matches 2471|2396
2471 matches 2396|2471
2396 matches 2471|2396
2396 matches 2396|2471
247 doesn't match 2471|2396
247 doesn't match 2396|2471
239 doesn't match 2471|2396
239 doesn't match 2396|2471
Thanks.
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 22 Feb 2007 21:37:57 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: ucfirst() with "_" separator
Message-Id: <ddvrt2d32vh4gp5tvem2327ajbct7h02qm@4ax.com>
On Thu, 22 Feb 2007 13:07:05 -0500, Uri Guttman <uri@stemsystems.com>
wrote:
> MD> 's|(?<=\s)(\w+)(?=\s)|join '_', map ucfirst, split /_/, lc $1|e;
>
>i like this approach. it seems the term always starts with PRODUCT so i
>assumed that. i sent the 3 lines from the OP into this one liner and it
>works. not often you get to see nested s/// ops. :)
Well, not really nested s/// ops, but yes: "sort of". Whatever, as
long as one pays attention to the delimiters...
Another recent example of mine was in
<news:rsu1r21o78g0fjldbcmhh6t28o1cbd1fif@4ax.com>, buried deep in a
long and boring thread that somewhat degenerated into an argument
between two posters, one of which is me.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 22 Feb 2007 11:51:15 -0800
From: fmurch@gmail.com
Subject: Re: Unable to install Math::BigInt::GMP on Solaris 10
Message-Id: <1172173875.199436.120210@m58g2000cwm.googlegroups.com>
On Feb 22, 9:10 am, sumit...@gmail.com wrote:
> On Feb 21, 10:12 pm, Mark Pryor <tlvie...@yahoo.com> wrote:
> > On Wed, 21 Feb 2007 19:27:19 -0800, DJ Stunks wrote:
> > > On Feb 21, 4:03 pm, sumit...@gmail.com wrote:
> > >> Make fails on both version 1.18 and 1.19.
> > >> <snip>
> > >> bash-3.00# perl Makefile.PL
> > >> Note (probably harmless): No library found for -lgmp
> > >> YAML not installed, make dist will not override metafile at
> > >> Makefile.PL line 8.
> > >> Writing Makefile for Math::BigInt::GMP
>
> > > Why does the creation of the makefile for Math::BigInt::GMP say that
> > > not finding the gmp library is "probably harmless"? Seems like it
> > > should be critical to me...
>
> > If you are on Win32, try herehttp://www.kalinabears.com.au/w32perl/math_gmp.html
>
> > --
> > Mark
>
> Mark, DJ, Thank you for your comments. mark, Math::BigInt is
> installed and tests succeed. I am on Solaris, and cannot seem to find
> the GMP header files.
http://www.sunfreeware.com/programlistsparc10.html#gmp
-jp
------------------------------
Date: 22 Feb 2007 13:01:57 -0800
From: sumitbee@gmail.com
Subject: Re: Unable to install Math::BigInt::GMP on Solaris 10
Message-Id: <1172178117.033755.326430@s48g2000cws.googlegroups.com>
On Feb 22, 12:51 pm, fmu...@gmail.com wrote:
> On Feb 22, 9:10 am, sumit...@gmail.com wrote:
>
>
>
>
>
> > On Feb 21, 10:12 pm, Mark Pryor <tlvie...@yahoo.com> wrote:
> > > On Wed, 21 Feb 2007 19:27:19 -0800, DJ Stunks wrote:
> > > > On Feb 21, 4:03 pm, sumit...@gmail.com wrote:
> > > >> Make fails on both version 1.18 and 1.19.
> > > >> <snip>
> > > >> bash-3.00# perl Makefile.PL
> > > >> Note (probably harmless): No library found for -lgmp
> > > >> YAML not installed, make dist will not override metafile at
> > > >> Makefile.PL line 8.
> > > >> Writing Makefile for Math::BigInt::GMP
>
> > > > Why does the creation of the makefile for Math::BigInt::GMP say that
> > > > not finding the gmp library is "probably harmless"? Seems like it
> > > > should be critical to me...
>
> > > If you are on Win32, try herehttp://www.kalinabears.com.au/w32perl/math_gmp.html
>
> > > --
> > > Mark
>
> > Mark, DJ, Thank you for your comments. mark, Math::BigInt is
> > installed and tests succeed. I am on Solaris, and cannot seem to find
> > the GMP header files.
>
> http://www.sunfreeware.com/programlistsparc10.html#gmp
>
> -jp- Hide quoted text -
>
> - Show quoted text -
JP, thanks for the update. I installed gmp-4.1.2, changed the
LD_LIBRARY_PATH_64 and made sure the libgmp files were in /usr/local/
lib/sparcv9, but same problem.....
------------------------------
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 V11 Issue 164
**************************************
