[29824] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 1067 Volume: 11

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 27 00:09:44 2007

Date: Mon, 26 Nov 2007 21: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           Mon, 26 Nov 2007     Volume: 11 Number: 1067

Today's topics:
    Re: Help needed regarding RPC::XML return value <darcykahle@gmail.com>
    Re: Help needed regarding RPC::XML return value <waveright@gmail.com>
    Re: Help needed regarding RPC::XML return value <darcykahle@gmail.com>
    Re: How to append a file accordingly? <ben@morrow.me.uk>
    Re: How to append a file accordingly? <tadmc@seesig.invalid>
    Re: How to append a file accordingly? <ytlim1@gmail.com>
    Re: How to append a file accordingly? <jimsgibson@gmail.com>
    Re: performance problem <anon24u@gmail.com>
    Re: performance problem <anon24u@gmail.com>
    Re: performance problem <ben@morrow.me.uk>
    Re: Perl usage <kbadinger@gmail.com>
    Re: Perl usage <tadmc@seesig.invalid>
        Scalar::Util is not using XS in Fedora 8, leading to pe <anon24u@gmail.com>
    Re: Scalar::Util is not using XS in Fedora 8, leading t <anon24u@gmail.com>
    Re: Scalar::Util is not using XS in Fedora 8, leading t <ben@morrow.me.uk>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 26 Nov 2007 16:19:38 -0800 (PST)
From: Darcy <darcykahle@gmail.com>
Subject: Re: Help needed regarding RPC::XML return value
Message-Id: <2cbd30af-8a31-41af-ac60-a425ac8e96d4@o42g2000hsc.googlegroups.com>

On Nov 26, 5:22 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth Darcy <darcyka...@gmail.com>:
>
>
>
> > I am trying to write an XML-RPC server method in perl using RPC::XML,
> > and I am having a rather perplexing problem when I attempt to return a
> > data structure to the caller (a Java app).  I am told that the caller
> > is expecting an array of structs as the result.
>
> > I have tried many things, but have ended up with the same problem.  as
> > an example, and as an attempt to simplify things, this is what my
> > method is returning:
>
> >       return [({'SELL_LINE_NUMBER' => '1', 'ERROR_CODE' => "0",
> > 'MESSAGE' => "test", 'CURRENT_TOTAL' => "1"})];
>
> > This is the error that the Java app is generating when it receives the
> > response:
>
> > ERROR 26 Nov 2007 16:56:50
> > (org.wh.client.frontend.listener.WHAbstractFrontEndActionListener) -
> > java.lang.ClassCastException: java.lang.Integer
>
> Just a completely random guess: have you tried using numbers instead of
> strings? That is,
>
>     return [{
>         SELL_LINE_NUMBER    => 1,  # note absence of quotes
>         ERROR_CODE          => 0,
>         MESSAGE             => 'test',
>         CURRENT_TOTAL       => 1,
>     }];
>
> Ben

The reason for quoting the numbers, is because, the specs for the
return list all four as "string".  I did try as straight numbers, but
got the same error.


------------------------------

Date: Mon, 26 Nov 2007 19:31:27 -0800 (PST)
From: Todd Wade <waveright@gmail.com>
Subject: Re: Help needed regarding RPC::XML return value
Message-Id: <610afd21-8eb2-4738-aff3-0c634f09fc0c@w34g2000hsg.googlegroups.com>

On Nov 26, 7:19 pm, Darcy <darcyka...@gmail.com> wrote:
> On Nov 26, 5:22 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> > Quoth Darcy <darcyka...@gmail.com>:
>
> > > I am trying to write an XML-RPC server method in perl using RPC::XML,
> > > and I am having a rather perplexing problem when I attempt to return a
> > > data structure to the caller (a Java app).  I am told that the caller
> > > is expecting an array of structs as the result.
<snip/>
> > > This is the error that the Java app is generating when it receives the
> > > response:
>
> > > ERROR 26 Nov 2007 16:56:50
> > > (org.wh.client.frontend.listener.WHAbstractFrontEndActionListener) -
> > > java.lang.ClassCastException: java.lang.Integer
>
> > Just a completely random guess: have you tried using numbers instead of
> > strings? That is,
>
> >     return [{
> >         SELL_LINE_NUMBER    => 1,  # note absence of quotes
> >         ERROR_CODE          => 0,
> >         MESSAGE             => 'test',
> >         CURRENT_TOTAL       => 1,
> >     }];
>
> The reason for quoting the numbers, is because, the specs for the
> return list all four as "string".  I did try as straight numbers, but
> got the same error.

What does the XML that client sending to the server look like? Thats
what you need to be looking at. For example, you said the spec expects
strings for each value. Chances are that "quoting" the numbers isn't
going to suffice RPC::XML's purposes.

You can coerce a value to a specific type by passing RPC::XML data
objects instead of scalars:

    return [{
        SELL_LINE_NUMBER    => RPC::XML::string->new(1),
        ERROR_CODE          => RPC::XML::string->new(0),
        MESSAGE             => 'test',
        CURRENT_TOTAL       => RPC::XML::string->new(1),
    }];

This will format the value as a <string> instead of an <int> in the
XML.

Regards,

trwww


------------------------------

Date: Mon, 26 Nov 2007 20:14:09 -0800 (PST)
From: Darcy <darcykahle@gmail.com>
Subject: Re: Help needed regarding RPC::XML return value
Message-Id: <f7c73a20-ea43-4aad-8e6f-15e0d9185fc4@i29g2000prf.googlegroups.com>

On Nov 26, 10:31 pm, Todd Wade <waveri...@gmail.com> wrote:
> On Nov 26, 7:19 pm, Darcy <darcyka...@gmail.com> wrote:
>
>
>
> > On Nov 26, 5:22 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> > > Quoth Darcy <darcyka...@gmail.com>:
>
> > > > I am trying to write an XML-RPC server method in perl using RPC::XML,
> > > > and I am having a rather perplexing problem when I attempt to return a
> > > > data structure to the caller (a Java app).  I am told that the caller
> > > > is expecting an array of structs as the result.
> <snip/>
> > > > This is the error that the Java app is generating when it receives the
> > > > response:
>
> > > > ERROR 26 Nov 2007 16:56:50
> > > > (org.wh.client.frontend.listener.WHAbstractFrontEndActionListener) -
> > > > java.lang.ClassCastException: java.lang.Integer
>
> > > Just a completely random guess: have you tried using numbers instead of
> > > strings? That is,
>
> > >     return [{
> > >         SELL_LINE_NUMBER    => 1,  # note absence of quotes
> > >         ERROR_CODE          => 0,
> > >         MESSAGE             => 'test',
> > >         CURRENT_TOTAL       => 1,
> > >     }];
>
> > The reason for quoting the numbers, is because, the specs for the
> > return list all four as "string".  I did try as straight numbers, but
> > got the same error.
>
> What does the XML that client sending to the server look like? Thats
> what you need to be looking at. For example, you said the spec expects
> strings for each value. Chances are that "quoting" the numbers isn't
> going to suffice RPC::XML's purposes.
>
> You can coerce a value to a specific type by passing RPC::XML data
> objects instead of scalars:
>
>     return [{
>         SELL_LINE_NUMBER    => RPC::XML::string->new(1),
>         ERROR_CODE          => RPC::XML::string->new(0),
>         MESSAGE             => 'test',
>         CURRENT_TOTAL       => RPC::XML::string->new(1),
>     }];
>
> This will format the value as a <string> instead of an <int> in the
> XML.
>
> Regards,
>
> trwww

Thanks.  I will try that tomorrow.  I do not know what the XML that is
being generated, though, since I currently do not have access to
that.  I could try and "fudge" the request, so I can see the result,
unless there is a trick in perl where I could save a copy to file as
well as send to the requestor.


------------------------------

Date: Mon, 26 Nov 2007 23:47:19 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to append a file accordingly?
Message-Id: <7h2s15-eh2.ln1@osiris.mauzo.dyndns.org>


Quoth Why Tea <ytlim1@gmail.com>:
> On Nov 27, 3:41 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
> >
> > open FH "< $myfile";

Use three-arg open.
Use lexical filehandles.
Check the open succeeded.

> > binmode FH; # not need for *nix systems

Yes, it is *always* needed as of 5.8. You can also combine this step
with the open:

    open my $FH, '<:raw', $myfile
        or die "can't read '$myfile': $!";

> > seek FH, -2, 2; # seek for last 2 bytes

Don't use magic numbers for seek. Use the proper constants: it's
clearer, and safer if you ever port the code to a machine where SEEK_END
isn't 2 (such things do happen: GNU Hurd, for instance, has O_RDONLY
defined as 1 rather than 0).

    use Fcntl qw/:seek/;

    seek $FH, -2, SEEK_END;

> > my $lastchars = <FH>;
> > close FH;
> > open FH "< $myfile";

Why do this? It just introduces an entirely unnecessary race condition,
and you haven't reopened it in binary mode, which may or may not be
important. If you wish to reinstate CRLF processing, you can say

    binmode $FH, ':crlf';

> > while (my $row = <FH>)
> >     {
> >     print $row;
> >     }
> > close FH;

It's not clear the OP wants to copy the file. If he wants to append, it
would be better to open in '+<' mode seek to the end before writing.

> > print "\n" unless($lastchars =~ m/(\r\n|\n|\r)$/s)

While I'm usually a fan of using regexes rather than more low-level
solutions, this is more complicated than necessary. Something like

    seek $FH, -1, SEEK_END;
        or die "can't seek '$myfile': $!";
    read $FH, my $eol, 1
        or die "can't read from '$myfile': $!";

    seek $FH, 0, SEEK_END;
    print $FH "\n" unless $eol =~ tr/\r\n//;

would be simpler. If you want to insert a newline matching the rest of
the file, you would need to read at least two characters, of course. For
normalizing newlines see PerlIO::eol.

Note also that "\r" and "\n" are not portable. Some systems have "\r" eq
"\012" and "\n" eq "\015". If you mean an ASCII CR say "\015".

> Thanks Petr. The code works fine in detecting \r\n|\n|\r, but it fails
> when the $lastchars are just normal characters. What I did was to
> append a line of text to the file and I didn't want to have a blank
> line if there is already \r\n|\n|\r. I ran your code once, it was OK
> but the subsequent runs failed (I expected \n to be printed, but it
> didn't).

It works for me here. Please post a complete script that shows how it
fails.

Note that text files *should* end with a trailing newline (in the
appropriate local format). If you have files that don't, they're
arguably broken, and you're better off fixing them than propagating the
error.

Ben



------------------------------

Date: Tue, 27 Nov 2007 00:05:34 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: How to append a file accordingly?
Message-Id: <slrnfkmpd4.uml.tadmc@tadmc30.sbcglobal.net>

Abigail <abigail@abigail.be> wrote:
>                                               _
> Tad McClellan (tadmc@seesig.invalid) wrote on VCC September MCMXCIII in
><URL:news:slrnfkkjrg.env.tadmc@tadmc30.sbcglobal.net>:
>:)  Petr Vileta <stoupa@practisoft.cz> wrote:
>:)  
>:) > if($some_text =~ m/(\r\n|\n|\r)$/s)
>:)                                     ^
>:)  the m//s modifier is a no-op for that regex.
>:)  
>:)  You should not use modifiers that do not do any modification...
>
>
> Hmmmpf.
>
>
> Although I don't necessarely disagree with you, I don't think such 
> posts are useful. What might be useful is a reasoning why you think
> you shouldn't do so. 


My folks often told me "look both ways before you cross the street"
without explaining why I should.


A modifier says "something out of the ordinary is going on here".

Modifiers that don't modify are "crying wolf" to the maintenance programmer.


> Preferably also with reasons why people (Damian
> for instance, in PBP) do think you should.


I don't really remember why he said to use m//msx, but I think it was
"because they will be enabled by default in Perl 6", ie. to get
yourself ready for Perl 6.

I'll learn Perl 6 when there _is_ a Perl 6 , but while maintaining 
Perl 5 code, I'm not going to cry wolf.

(I only have "buy in" for about 80% of the PBP recommendations anyway.)


-- 
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"


------------------------------

Date: Mon, 26 Nov 2007 17:00:56 -0800 (PST)
From: Why Tea <ytlim1@gmail.com>
Subject: Re: How to append a file accordingly?
Message-Id: <ed1f0548-c465-433a-9842-0287106ba768@d21g2000prf.googlegroups.com>

> It works for me here. Please post a complete script that shows how it
> fails.
>

Sorry, I made a mistake. Petr's code actually works. And your code
works fine too, Ben.

Another question, how do you extract the last line of a text file
quickly?

/Why Tea



------------------------------

Date: Mon, 26 Nov 2007 18:05:05 -0800
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: How to append a file accordingly?
Message-Id: <261120071805052835%jimsgibson@gmail.com>

In article
<ed1f0548-c465-433a-9842-0287106ba768@d21g2000prf.googlegroups.com>,
Why Tea <ytlim1@gmail.com> wrote:

> > It works for me here. Please post a complete script that shows how it
> > fails.
> >
> 
> Sorry, I made a mistake. Petr's code actually works. And your code
> works fine too, Ben.
> 
> Another question, how do you extract the last line of a text file
> quickly?

Check out File::ReadBackwards:

<http://search.cpan.org/~uri/File-ReadBackwards-1.04/ReadBackwards.pm>

-- 
Jim Gibson

 Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
    ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------        
                http://www.usenet.com


------------------------------

Date: Mon, 26 Nov 2007 16:59:17 -0800 (PST)
From: Gizbo <anon24u@gmail.com>
Subject: Re: performance problem
Message-Id: <4a19546a-ab36-4d1a-b28e-3c398a33b15f@r60g2000hsc.googlegroups.com>

On Nov 26, 5:19 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth Gizbo <anon...@gmail.com>:
>
>
>
> > My workstation was recently upgraded to Fedora 8, and this has wreaked
> > havoc on the performance of my perl application.  I did a profile on
> > the code and the problem appears to be within Scalar::Util.
>
> We've had reports before of Fedora 8 machines ending up with the
> pure-perl version of Scalar::Util. Try running
>
>     perl -MScalar::Util=dualvar -e1
>
> ; if it fails you need to reinstall Scalar::Util, first making sure you
> have a C compiler installed.
>
> > UNIVERSAL::a_sub_not_likely_to_be_here
>
> Yes, this is your problem. This sub is a slightly nasty artefact of the
> pure-Perl implementation.
>
> Ben

Thanks, I was halfway there already (I figured out that something
related to XS was missing and it wasn't supposed to run the perl
implementation).  Your confirms indeed that this is the problem.
Thanks!!!

Now I am trying to figure out how to reinstall Scalar::Util.  Can I do
this with cpan -i somehow?



------------------------------

Date: Mon, 26 Nov 2007 17:01:03 -0800 (PST)
From: Gizbo <anon24u@gmail.com>
Subject: Re: performance problem
Message-Id: <ffbff1db-a7d3-48eb-af00-51fbd6d5f6c0@p69g2000hsa.googlegroups.com>

On Nov 26, 5:19 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth Gizbo <anon...@gmail.com>:
>
>
>
> > My workstation was recently upgraded to Fedora 8, and this has wreaked
> > havoc on the performance of my perl application.  I did a profile on
> > the code and the problem appears to be within Scalar::Util.
>
> We've had reports before of Fedora 8 machines ending up with the
> pure-perl version of Scalar::Util. Try running
>
>     perl -MScalar::Util=dualvar -e1
>
> ; if it fails you need to reinstall Scalar::Util, first making sure you
> have a C compiler installed.
>
> > UNIVERSAL::a_sub_not_likely_to_be_here
>
> Yes, this is your problem. This sub is a slightly nasty artefact of the
> pure-Perl implementation.
>
> Ben

This is what I get:

[me@hostname]$ perl -MScalar::Util=dualvar -e1
 is only avaliable with the XS version at -e line 0
BEGIN failed--compilation aborted.



------------------------------

Date: Tue, 27 Nov 2007 03:00:20 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: performance problem
Message-Id: <4rds15-6t3.ln1@osiris.mauzo.dyndns.org>


Quoth Gizbo <anon24u@gmail.com>:
> 
> Thanks, I was halfway there already (I figured out that something
> related to XS was missing and it wasn't supposed to run the perl
> implementation).  Your confirms indeed that this is the problem.
> Thanks!!!
> 
> Now I am trying to figure out how to reinstall Scalar::Util.  Can I do
> this with cpan -i somehow?

    perl -MCPAN -e'install Scalar::Util'

or

    cpan -i Scalar::Util

should do it. It may ask you some questions first: except for the one
about which CPAN mirror to use (which you should answer as best you can)
and the questions about sudo if you need it, the default answers are all
fine. Note that you will need to test again afterwards to make sure you
got the XS version this time: S::U carefully installs the pure-Perl
version if it can't find your C compiler, so whatever went wrong last
time it was installed may happen again.

Ben



------------------------------

Date: Mon, 26 Nov 2007 15:17:33 -0800 (PST)
From: Kevin <kbadinger@gmail.com>
Subject: Re: Perl usage
Message-Id: <1ab0a782-8354-4cee-8421-7af98f98cafe@j44g2000hsj.googlegroups.com>

On Nov 26, 4:26 pm, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
> On Mon, 26 Nov 2007 13:47:54 -0800, Kevin wrote:
> > I was wondering if someone on this group could help out here.  I know
> > there are alot of positions posted on this, but was hoping someone had
> > some solid info to point to.
>
> > I have used Perl for projects here and there.  However my manager keeps
> > telling me that Perl should not be used for real projects.  It seems
> > like a pretty solid language to me.  Are there certain types of
> > applications that Perl should not be used for?  I am trying to put
> > together feedback from experts as to why perl is just as valid as many
> > other languages.  Can someone help?
>
> Your manager probably wants someone to take the blame when things go
> wrong. Saying "It's a (Microsoft|Oracle|Sun|Whatever) bug that took out a
> half year's worth of data" just is more acceptable than "It's a bug in an
> Open Source tool we use".
>
> There is not much you can change about that. Even if it doesn't make
> sense.
>
> Other than that, Perl is a tool, and as always use the right tool for the
> job. Sometimes that's Perl, sometimes it's not.
>
> One good reason not to use Perl is if no one at your job can maintain
> your Perl code. Although I don't think it's a great idea to develop a MSVC
> ++ program that takes a week to develop and another to get the bugs out
> where a Perl one liner would have done, it is a valid viewpoint. It's the
> reason a colleague of mine develops everything in ksh, even if Perl would
> be much better suited to some tasks.
>
> Another good reason not to use Perl is performance, although in practice
> that is seldom a real reason. I do develop programs in other languages
> when Perl is to slow. Mostly after first proving Perl is to slow, btw.
> And, as said, that's pretty seldom, Perl is pretty fast and more often
> than not fast enough.
>
> A real good reason not to use Perl in my opinion, although many will
> disagree, is when developing big projects. By all means, use it as a glue
> language, the language for the web front-ends, for small specific
> programs within the larger project. But don't use it for projects that
> require millions of lines of code. (I won't go into what language you
> should use here, except to note that more important than the language is
> experienced seniors, good project management, a solid design that gets
> amended as the project goes along, solid regression testing and a solid
> development strategy).
>
> But often there are many reasons why you should use Perl. Strong at text
> manipulation. Many, many good (although not always perfect) libraries.
> Strongly cross platform. Quick development. Once learned, pretty readable
> imo, but ymmv, some people think all Perl code is line noise. Good
> support for UTF-8. Comes pre-installed with many OSses. Good
> interoperation with the outside world.
>
> Some of these reasons may apply to you, some may not. If you're in a
> Cobol shop, using Perl may make sense, but it's probably to much of a
> culture shock. If you're in a Java shop, the added cost of using an extra
> language may not be worth it. If you are in a php shop, ditto. If you are
> in a Windows only shop, installing Perl on all machines may take some
> persuasion.
>
> Without knowing the reasons your manager has to state that he will not
> allow the use of Perl, all is just speculation, but maybe the above is of
> some help.
>
> HTH,
> M4

Thanks, these are some very good perspectives.


------------------------------

Date: Tue, 27 Nov 2007 00:05:35 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Perl usage
Message-Id: <slrnfkmqfd.uml.tadmc@tadmc30.sbcglobal.net>

Jürgen Exner <jurgenex@hotmail.com> wrote:
> Kevin wrote:
>> seems like a pretty solid language to me.  Are there certain types of
>> applications that Perl should not be used for?  I am trying to put
>
> perldoc -q perl:
>     "Can I do [task] in Perl?"
>     "When shouldn't I program in Perl?"
>     "How can I convince my sysadmin/supervisor/employees to use [...] Perl 
> instead of some other language?"


And this mailing list:

   http://lists.cpan.org/showlist.cgi?name=advocacy

Summary:
   A discussion list for Perl advocacy. There are usually success 
   stories, news stories about or involving Perl and discussions
   about how to make Perl be accepted in the workplace.


-- 
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"


------------------------------

Date: Mon, 26 Nov 2007 18:22:30 -0800 (PST)
From: Gizbo <anon24u@gmail.com>
Subject: Scalar::Util is not using XS in Fedora 8, leading to performance  problem
Message-Id: <ffdaa609-9a27-4629-997f-e89c523f31d7@o6g2000hsd.googlegroups.com>

Hi,

I've very recently upgraded to Fedora 8 (with perl 5.8.8), and the
performance of my perl code tanked.  With the help obtained in a
previous post (today's "performance problem" post, link below), I've
determined that the problem is the very high number of calls to
Scalar::Utils::refaddr(), for which the perl implementation is being
called instead of the C one.

The following shows that Scalar::Util does not see XS, for whatever
reason, and falls back to the slow perl implementation.

[me@hostname]$ perl -MScalar::Util=dualvar -e1
 is only avaliable with the XS version at -e line 0
BEGIN failed--compilation aborted.

I am not sure what to do next -- no experience with XS.  It was
suggested I reinstall Scalar::Util, but not sure if I do this via cpan
somehow, or even if that will fix the problem.  Is there a CPAN module
I can install to fix this?

Thanks

http://groups.google.ca/group/comp.lang.perl.misc/browse_thread/thread/eb86178292744203/0e8cd72a3e43af21?hl=en#0e8cd72a3e43af21



------------------------------

Date: Mon, 26 Nov 2007 18:28:17 -0800 (PST)
From: Gizbo <anon24u@gmail.com>
Subject: Re: Scalar::Util is not using XS in Fedora 8, leading to performance  problem
Message-Id: <5ce9a95d-63d0-419b-b5c7-3e3bd4861ef5@s19g2000prg.googlegroups.com>

Well, I solved the problem after some more googling.  For those it may
help, I simply did a force install of Scalar::Util, within the cpan
shell:

bash%  cpan
cpan> force install Scalar::Util

This completely resolved the problem.  Thanks to the guy in my
previous post who pointed me in the right direction.


------------------------------

Date: Tue, 27 Nov 2007 03:10:58 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Scalar::Util is not using XS in Fedora 8, leading to performance  problem
Message-Id: <2fes15-6t3.ln1@osiris.mauzo.dyndns.org>


Quoth Gizbo <anon24u@gmail.com>:
> 
> I've very recently upgraded to Fedora 8 (with perl 5.8.8), and the
> performance of my perl code tanked.  With the help obtained in a
> previous post (today's "performance problem" post, link below), I've
> determined that the problem is the very high number of calls to
> Scalar::Utils::refaddr(), for which the perl implementation is being
> called instead of the C one.

Just out of interest: where did your original copy of S::U come from?
Did it come out of a rpm, or did you install it yourself and it failed
to find gcc? If Redhat are providing rpms with the pure-Perl version of
S::U, this could be quite a problem... :(.

Ben



------------------------------

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 1067
***************************************


home help back first fref pref prev next nref lref last post