[25265] in Perl-Users-Digest
Perl-Users Digest, Issue: 7510 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 12 09:05:43 2004
Date: Sun, 12 Dec 2004 06:05:06 -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 Sun, 12 Dec 2004 Volume: 10 Number: 7510
Today's topics:
Re: Convert text to Hex <zglickman@il.bphx.com>
Re: Convert text to Hex <zglickman@il.bphx.com>
distinguish between binary text and regular text <zglickman@il.bphx.com>
Fast and high-quality Web Site Creation (CNA Programming Group)
Re: How to detect an undefined SV* value in XS? <kalinaubears@iinet.net.au>
Re: How to detect an undefined SV* value in XS? <tassilo.von.parseval@rwth-aachen.de>
mod_perl headaches (Andrew Burton)
Re: mod_perl headaches <nobull@mail.com>
Re: mod_perl headaches <spamtrap@dot-app.org>
Re: multiple webpages sharing a dataset reference <nobull@mail.com>
Newbie questions, migrating from c++ gg500@lycos.com
Re: Regaular Expression <shawn.corey@sympatico.ca>
replace some words in a file with a perl script. <wangpenghui@realss.com>
Re: replace some words in a file with a perl script. <matthew.garrish@sympatico.ca>
sprintf rounding puzzlements <junk@blackwater-pacific.com>
Re: sprintf rounding puzzlements <jurgenex@hotmail.com>
Re: sprintf rounding puzzlements <spamtrap@dot-app.org>
Re: why the following HereDoc print don't work? <nobull@mail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Dec 2004 01:05:06 -0800
From: "zvika" <zglickman@il.bphx.com>
Subject: Re: Convert text to Hex
Message-Id: <1102842306.775708.169590@c13g2000cwb.googlegroups.com>
thanks a lot. It works perfect
------------------------------
Date: 12 Dec 2004 01:05:47 -0800
From: "zvika" <zglickman@il.bphx.com>
Subject: Re: Convert text to Hex
Message-Id: <1102842347.252840.165430@f14g2000cwb.googlegroups.com>
thanks a lot. It works perfect.
------------------------------
Date: 12 Dec 2004 02:52:43 -0800
From: "zvika" <zglickman@il.bphx.com>
Subject: distinguish between binary text and regular text
Message-Id: <1102848763.921385.223630@c13g2000cwb.googlegroups.com>
How can I distinguish between binary text and regular text ?
For example:
I want to convert the value of SYSOT to hex values,
and to keep the value of SYSOT1 the same.
01 SYSOT VALUE '^@^X^@^A^@^AA' PIC X(07).
01 SYSOT1 VALUE 'ABC' PIC X(07).
------------------------------
Date: 12 Dec 2004 02:20:59 -0800
From: cna_pgroup@yahoo.com (CNA Programming Group)
Subject: Fast and high-quality Web Site Creation
Message-Id: <a03287ab.0412120220.5460e84b@posting.google.com>
I'm experienced PHP/Coldfusion developer from Russia with more than 5
years of experience in the field.
Also i have a good web designer here. So we can create the whole site
from the very beginning.
If you want to make a hi-quality website fast and for a reasonable
price - than this offer is for you.
I usually charge USD 7 per hour, but would rather like flat-rate
per-project prices.
Portfolio can be seen at http://www.actionwebstudio.com/portfolio.php
Please contact us at http://www.actionwebstudio.com/contacts.php or
via email at alex_c@list.ru if you are interested.
Thanks
------------------------------
Date: Sun, 12 Dec 2004 08:22:05 +0000
From: Sisyphus <kalinaubears@iinet.net.au>
Subject: Re: How to detect an undefined SV* value in XS?
Message-Id: <41bc0f1e$0$2821$5a62ac22@per-qv1-newsreader-01.iinet.net.au>
Sisyphus wrote:
>
> use warnings;
> use Inline C => Config =>
> BUILD_NOISY => 1; # to make sure we get to
> # see compiler warnings
>
> use Inline C => <<'END_OF_C_CODE';
>
> void set_undef(SV * a) {
>
> sv_setsv(a, &PL_sv_undef);
Another thread, and another list - and it has just been drawn to my
attention that's not the right way to assign PL_sv_undef to an SV. The
above line should be replaced by:
a = &PL_sv_undef
>
> if(a == &PL_sv_undef)
> printf("A valid means of testing for &PL_sv_undef\n");
>
> else printf("An INVALID means of testing for &PL_sv_undef\n");
>
> }
>
I haven't tested, but I expect one would then find that the script
reports "A valid means of testing for &PL_sv_undef".
I hope that's correct - if not I'll make another correction tomorrow night.
Egg is good for the facial complexion .... right ???
Cheers,
Rob
--
To reply by email u have to take out the u in kalinaubears.
------------------------------
Date: Sun, 12 Dec 2004 11:33:50 +0100
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: How to detect an undefined SV* value in XS?
Message-Id: <slrncro7ke.48u.tassilo.von.parseval@localhost.localdomain>
Also sprach Sisyphus:
> Sisyphus wrote:
>
>>
>> use warnings;
>> use Inline C => Config =>
>> BUILD_NOISY => 1; # to make sure we get to
>> # see compiler warnings
>>
>> use Inline C => <<'END_OF_C_CODE';
>>
>> void set_undef(SV * a) {
>>
>> sv_setsv(a, &PL_sv_undef);
>
> Another thread, and another list - and it has just been drawn to my
> attention that's not the right way to assign PL_sv_undef to an SV. The
> above line should be replaced by:
>
> a = &PL_sv_undef
Wont help either. You cannot change 'a' in-place thusly. If you want
that you'd have to have something like:
void set_undef (SV **a) {
*a = &PL_sv_undef;
}
But I don't think that Inline::C or XS know about an SV** prototype. The
reason is again the difference between changing a C-structure internally
(this is what sv_setsv does) or having a variable point to something
else. If you want to do the latter, you need to pass the pointer by
reference. These are the usual C-semantics.
>> if(a == &PL_sv_undef)
>> printf("A valid means of testing for &PL_sv_undef\n");
>>
>> else printf("An INVALID means of testing for &PL_sv_undef\n");
>>
>> }
>>
>
> I haven't tested, but I expect one would then find that the script
> reports "A valid means of testing for &PL_sv_undef".
Only if the variable passed to set_undef() was a real PL_sv_undef in the
first place. :-) What you are thinking of is a no-op.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 12 Dec 2004 06:52:29 GMT
From: tuglyraisin@aol.commcast (Andrew Burton)
Subject: mod_perl headaches
Message-Id: <20041212015229.21640.00001698@mb-m12.aol.com>
If this needs to be in c.l.p.mods, please let me know and I will repost there.
The topic seems kind of module-ish, kind of Perl-ish, and kind of Apache-ish;
so I thought misc would be best.
Stats first, here's what I'm working with:
* SuSE Linux 2.2.14 (it's my bittybox)
* Apache 1.3.27
* Perl 5.8.0
* mod_perl 1.29
* php 5.01
Here's the problem: I've installed Apache and it works. I installed PHP as a
DSO, and it works. I installed mod_perl as a DSO, and Apache refuses to run.
As far as I can find -- from looking in apache/logs/error_log -- there's no
error. It's just when I comment out the LoadModule for libperl.so, Apache
works. When I leave it regular, like the LoadModule for libphp5.so, nothing
works.
mod_perl installed fine as a DSO, though I didn't run "make test" during
installation. This is actaully the closest I've ever gotten to getting
mod_perl to work, but this last thing is catching. Has anyone else had this
problem? Was it fixable?
Also, if this is not a Perl problem, I apologize in advance. If it is a Perl
query, my thanks in advance for the advice. Thanks!
Andrew Burton - tuglyraisin at aol dot com
Felecia Station on Harvestgain - Jarod Godel in Second Life
------------------------------
Date: Sun, 12 Dec 2004 08:41:37 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: mod_perl headaches
Message-Id: <cpgvum$4f4$1@sun3.bham.ac.uk>
Andrew Burton wrote:
> If this needs to be in c.l.p.mods, please let me know and I will repost there.
> The topic seems kind of module-ish, kind of Perl-ish, and kind of Apache-ish;
> so I thought misc would be best.
Well probably the mod_perl mailing list would be the most appropriate.
> Stats first, here's what I'm working with:
> * SuSE Linux 2.2.14 (it's my bittybox)
> * Apache 1.3.27
> * Perl 5.8.0
> * mod_perl 1.29
> * php 5.01
>
> Here's the problem: I've installed Apache and it works. I installed PHP as a
> DSO, and it works. I installed mod_perl as a DSO, and Apache refuses to run.
What do you mean by "refuses to run"?
> As far as I can find -- from looking in apache/logs/error_log -- there's no
> error. It's just when I comment out the LoadModule for libperl.so, Apache
> works.
Apache should not be loading libperl directly (although sometimes you
need to do this if there's a problem with the searchy path). Apache
should load mod_perl (the glue that connects apache and libperl) and
mod_perl should load libperl.
Can you please show the Apache directives you use to load mod_perl?
Clear the error_log, try to start Apache and tell us exactly what
happens and what's in the log afterwards.
------------------------------
Date: Sun, 12 Dec 2004 07:22:23 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: mod_perl headaches
Message-Id: <1radnTAK39CdpSHcRVn-vw@adelphia.com>
Brian McCauley wrote:
> Apache should not be loading libperl directly (although sometimes you
> need to do this if there's a problem with the searchy path). Apache
> should load mod_perl
Mod_perl is also libperl.so - there are historical reasons for this, but
I forget what they are. It's one of several modules that don't follow
the mod_*.so naming convention - looking in my /etc/libexec/httpd/, I
see libdav.so, libperl.so, libphp4.so, libproxy.so, and libssl.so.
I've had problems with dynamic linkers getting confused by this in the
past - they'd load the mod_perl libperl.so, but when they then tried to
load the Perl libperl.so, they wouldn't do so because they thought they
already had.
This is exactly the problem that two-level name spaces were designed to
avoid, so the best solution would be to figure out whether your system's
linker supports them. If it does, figure out how to build both Apache
and Perl using them.
A simpler work-around is to build mod_perl as a static extension, rather
than as a DSO. For a high-traffic server, it's common to use a separate
instance of Apache to handle mod_perl requests anyway, so there's little
to gain by building mod_perl as a DSO.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Sun, 12 Dec 2004 08:59:06 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: multiple webpages sharing a dataset reference
Message-Id: <cph0vf$50k$1@sun3.bham.ac.uk>
sam wrote:
> Gregory Toomey wrote:
>
>> sam wrote:
>>
>>> I m wondering how to fetch a dataset and hold it in the memory for used
>>> by other webpages. Having everything written in one single page is much
>>> easier, but it will look groove and not user friendly.
>>> I will use MySQL as database.
>>>
>>> For example, if I fetch records from the database with the following
>>> perl codes:
>>> $dataset->prepare(
>>> q{SELECT name, ipaddr FROM hosts
>>> WHERE (name = ? AND bldg = ? AND dept = ?)});
>>> $dataset->execute($name,$bldg,$dept);
>>>
>>> I would like the value of $dataset can be read from another webpage (a
>>> result webpage). Assumed the perl code above is being executed by
>>> pressing the Query button in a Query webpage.
>>> Therefore the procedure may be:
>>>
>>> Query webpage -> $dataset -> Result webpage
>>>
>>>
>>> Thanks
>>> Sam
>>
>>
>>
>> You could try http://en.wikipedia.org/wiki/Memcached
>>
> I just installed the C/perl versions of the Memcached in the system.
> Here I have a general question about perl. How can I write two perl
> files that access a variable that reference the Memcached?
I don't know the answer to that but I think you are barking up the wrong
tree. Trying to hold the result of queries in memory between HTTP
transactions is generally the wrong approach in web programming.
Usually you simply hold enough information in your session data (hidden
fields, cookie, URL whatever) to repeat the query. (You can
roll-your own session implementation or take a look on CPAN).
Be aware: there may be more than one user of your website at a time. Be
aware: it is impossible to know when someone has "left" your website.
Be aware: most of the issues to do with web programmming are not
language specific.
------------------------------
Date: 12 Dec 2004 05:37:02 -0800
From: gg500@lycos.com
Subject: Newbie questions, migrating from c++
Message-Id: <1102858622.622328.166600@c13g2000cwb.googlegroups.com>
Hello,
Few things puzzles me in perl. I'm trying to use warnings and strict
and run with perl -w, but I get warnings which I do not understand. For
example I have to use "use Fcntl qw(:DEFAULT :seek);" in order to get
no warnings using SEEK_SET etc, this phrase I copied got from net while
not understanding what it means. Could you describe this statement?
Is there some other useful things which I can set to make warnings as
explanatory and abundant as possible? I mean something equal to gcc
-Wall -pedantic.
If I write "split /\./, $ENV(REMOTE_ADDR)" I get warning about using
undefined variable, so without knowing how exactly I should proceed I
have written abundant amount of lines like "defined $ENV{REMOTE_ADDR} ?
$ENV{REMOTE_ADDR} : """. Obviously I do not understand the
fundamentals, so could you please explain what I do wrong since I get
myself into this situation?
It must have taken me 10 hours to try to get information how to refer
single byte (char) in "string/array", like in C: char a[5]; return
a[2]; without realizing that's not how things are done in perl. Is this
correct? So if I'm to do something with chars in string (or perl
variable that is) I am to split the variable to @array first? Does this
not impose performance problems in general?
I'm also a bit confused with calling functions or "sub routines".
Writing "&subroutine();" works but I do not understand what exactly is
the difference when omitting "()" and/or "&"...?
Also do I need to flock UN_LOCK before closing the file, or does close
handle the unlocking automatically?
------------------------------
Date: Sun, 12 Dec 2004 08:33:15 -0500
From: Shawn Corey <shawn.corey@sympatico.ca>
Subject: Re: Regaular Expression
Message-Id: <SLXud.775$%p1.25314@news20.bellglobal.com>
Jürgen Exner wrote:
> ???
> No idea what you mean with "Reply All". How do you post a reply on Usenet
> that is not visible to all?
>
> jue
Reply All means to reply to everyone on the From, Cc, and Reply-to
lists. By doing so you will send the message to the newsgroup and to the
person who originated the message. Most newsgroup readers have a method
to do this with one click of the mouse or if text based, with a single
command. Check the help for your reader.
--- Shawn
------------------------------
Date: Sun, 12 Dec 2004 17:15:32 +0800
From: Wang Penghui <wangpenghui@realss.com>
Subject: replace some words in a file with a perl script.
Message-Id: <322ghhF3f6sgrU1@individual.net>
Hi all:
I am a newbie with perl. I have met a pazzle now.
I have a file with thousands of lines. And which line has four fields.
They are separated by a "\t".
Such as:
================file==================
line1first line1second line1third line1fourth
line2first line2second line2third line2fourth
line3first line3second line3third line3fourth
.......
Now i want to replace some words in the fourth field. While the first
three fields stay here as before.
I have writen a little code about it. Here is it:
open (ZH,"file") || die "could not open filename!"
@instead=split(/\t/,<ZH>);
close (ZH) || die "could not close filename!"
open (ZH,">file") || die "could not open filename!"
foreach (@instead) {
s/original/changed/g
print ZH $_;
};
close (ZH) || die "could not close filename!"
This script would replace all the words matched in each field. But it's
not what i want to get.
Anyone could pick me up?
Thanks in advance!
Wang Penghui
------------------------------
Date: Sun, 12 Dec 2004 04:57:01 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: replace some words in a file with a perl script.
Message-Id: <KBUud.10$pb.3671@news20.bellglobal.com>
"Wang Penghui" <wangpenghui@realss.com> wrote in message
news:322ghhF3f6sgrU1@individual.net...
> Hi all:
>
> I am a newbie with perl.
>
You also appear to be a usenet newbie. Don't multi-post!
Matt
------------------------------
Date: Sat, 11 Dec 2004 22:09:10 -0800
From: Steve May <junk@blackwater-pacific.com>
Subject: sprintf rounding puzzlements
Message-Id: <10rnnsh7ltdorce@corp.supernews.com>
Hi folks,
I ran across something today that has me scratching my head.
What I was doing was playing with control of the rounding
that occurs when using sprintf to set decimal places and
*when* it rounds up. (hate to leave money on the table)
And then.....well, take a look.
<code>
#! /usr/bin/perl -w
use strict;
my $one = 10;
my $two = 2.555;
for(2..6){
my $test = "$two$_";
&float_product( $one, $test );
}
exit;
sub float_product {
my( $one, $two ) = @_;
my $product = $one * $two;
print "raw product of $one x $two is '$product'\n";
$product += .001; # this line commented out for second run
print "product to sprintf is '$product'\n";
$product = sprintf("%.2f",$product);
print "Multiply $one by $two result: $product\n\n";
} # endo sub float_product
</code>
Results of first run where .001 is added to product:
raw product of 10 x 2.5552 is '25.552'
product to sprintf is '25.553'
Multiply 10 by 2.5552 result: 25.55
raw product of 10 x 2.5553 is '25.553'
product to sprintf is '25.554'
Multiply 10 by 2.5553 result: 25.55
raw product of 10 x 2.5554 is '25.554'
product to sprintf is '25.555' <- NOTE
Multiply 10 by 2.5554 result: 25.56 <- NOTE
raw product of 10 x 2.5555 is '25.555'
product to sprintf is '25.556'
Multiply 10 by 2.5555 result: 25.56
raw product of 10 x 2.5556 is '25.556'
product to sprintf is '25.557'
Multiply 10 by 2.5556 result: 25.56
Results of second run where .001 is NOT added to product:
raw product of 10 x 2.5552 is '25.552'
product to sprintf is '25.552'
Multiply 10 by 2.5552 result: 25.55
raw product of 10 x 2.5553 is '25.553'
product to sprintf is '25.553'
Multiply 10 by 2.5553 result: 25.55
raw product of 10 x 2.5554 is '25.554'
product to sprintf is '25.554'
Multiply 10 by 2.5554 result: 25.55
raw product of 10 x 2.5555 is '25.555'
product to sprintf is '25.555' <- NOTE
Multiply 10 by 2.5555 result: 25.55 <- NOTE
raw product of 10 x 2.5556 is '25.556'
product to sprintf is '25.556'
Multiply 10 by 2.5556 result: 25.56
The interesting bit is that sprintf'ing 25.555 returns different
sprintf values depending on the run. I ran this many times,
with many variations and it was consistent every time. At first
I thought it was a type problem, but don't see how perl could get
confused about such a thing in this case and don't recall it ever
doing so before.
I've spent some time with the docs, but seem to be missing something
fundamental and for the life of me, I can't spot it......
For crying out loud, this is a pretty straight up use of sprintf.
What am I missing? Or is this a known issue? Or???
perl -v
This is perl, v5.8.0 built for i386-linux-thread-multi
\s
------------------------------
Date: Sun, 12 Dec 2004 06:37:46 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: sprintf rounding puzzlements
Message-Id: <_GRud.4684$Qp.4148@trnddc01>
Steve May wrote:
> I ran across something today that has me scratching my head.
>
> What I was doing was playing with control of the rounding
> that occurs when using sprintf to set decimal places and
> *when* it rounds up. (hate to leave money on the table)
[...]
> What am I missing? Or is this a known issue? Or???
I didn't read all those gazillion examples (would be nice if you would have
used two or three to make your point) but is there anything that is not
explained in 'perldoc -q 999'?
jue
------------------------------
Date: Sun, 12 Dec 2004 06:59:53 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: sprintf rounding puzzlements
Message-Id: <u8SdnSFO_7gkryHcRVn-ug@adelphia.com>
Steve May wrote:
> <code>
>
> #! /usr/bin/perl -w
use warnings; # This is preferred over -w for new code
> use strict;
>
> my $one = 10;
> my $two = 2.555;
>
> for(2..6){
> my $test = "$two$_";
> &float_product( $one, $test );
# The use of '&' to call subs has been deprecated for years now.
# Don't use it for Perl 5 unless you know what it's doing.
#
# See: 'perldoc perlsub'
float_product( $one, $test );
> }
>
> exit;
# exit() at the end of a script is useless.
> sub float_product {
> my( $one, $two ) = @_;
> my $product = $one * $two;
> print "raw product of $one x $two is '$product'\n";
> $product += .001; # this line commented out for second run
> print "product to sprintf is '$product'\n";
> $product = sprintf("%.2f",$product);
> print "Multiply $one by $two result: $product\n\n";
> } # endo sub float_product
>
> </code>
>
> Results of first run where .001 is added to product:
... snip ...
> I've spent some time with the docs, but seem to be missing something
> fundamental and for the life of me, I can't spot it......
>
> For crying out loud, this is a pretty straight up use of sprintf.
>
> What am I missing? Or is this a known issue? Or???
It's a known issue that relates to how computers represent floating
point numbers - it's not specific to Perl.
See:
'perldoc -q 999'
'perldoc perlnumber'
Additionally, keep in mind that because of how floating point numbers
are stored as a mantissa and exponent, addition and subtraction will
especially aggravate the issue.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Sun, 12 Dec 2004 08:45:42 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: why the following HereDoc print don't work?
Message-Id: <cph06b$4no$1@sun3.bham.ac.uk>
Sherm Pendley wrote:
> Ben Morrow wrote:
>
>> does the file that fails look like this at the end
>>
>> 45 E
>> 4f O
>> 46 F
>> <end-of-file>
>
>
> Yes, exactly.
The odd thing is that chop($text=eval"<<EOF\n$text\nEOF") works without
a trailing newline on 5.6.1 and 5.8.4 (although IIRC it failed on some
older Perls).
------------------------------
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 7510
***************************************
