[29707] in Perl-Users-Digest
Perl-Users Digest, Issue: 951 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 19 06:09:41 2007
Date: Fri, 19 Oct 2007 03:09:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 19 Oct 2007 Volume: 11 Number: 951
Today's topics:
Counter param value not passed from one sub to another <ben.rogers@gmail.com>
Re: Counter param value not passed from one sub to anot <ben.rogers@gmail.com>
Expansion of variable in foreach <samik@frKKshKll.org>
Re: Expansion of variable in foreach <noreply@gunnar.cc>
MySQL's poll for 5.1 - "What Programming Lang do you us <wahab-mail@gmx.de>
new CPAN modules on Fri Oct 19 2007 (Randal Schwartz)
Re: perl standard <zaxfuuq@invalid.net>
Re: perl standard <abigail@abigail.be>
Re: perl standard <rvtol+news@isolution.nl>
Re: perl standard <jo@durchholz.org>
Re: please help optimize sub xhoster@gmail.com
Re: please help optimize sub <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Oct 2007 02:14:24 -0000
From: aardvarkman <ben.rogers@gmail.com>
Subject: Counter param value not passed from one sub to another
Message-Id: <1192760064.647724.165120@y27g2000pre.googlegroups.com>
Howdy,
I count some items in someSub, and I can print to STDOUT ok. In other
words, $uniqueitem_counter has a value. I then call showCounters which
should display a string and the value of $uniqueitem_counter. However,
it only shows the string. I've stared at this for quite a while and
just can't grasp why $uniqueitem_counter isn't showing up in the UI
when I know it has a value.
thanks,
ben
###### Sub in which counting occurs.
sub someSub {
.......
bunch of code
$uniqueitem_counter++;
......
print STDOUT ("Found $uniqueitem_counter unique items."); # Prints
ok.
showCounters("Unique items found:", $uniqueitem_counter);
}
########### Panel to display count result.
my $belowTabsUISub4 = $belowTabsUISub2 -> Frame()-> pack();
sub showCounters($$) {
$belowTabsUISub4 -> Label(-text => $_[0])-> pack(); # Prints
$belowTabsUISub4 -> Label(-textvariable => $_[1],-fg => 'red')->
pack(); # Doesn't print.
}
------------------------------
Date: Fri, 19 Oct 2007 02:49:38 -0000
From: aardvarkman <ben.rogers@gmail.com>
Subject: Re: Counter param value not passed from one sub to another
Message-Id: <1192762178.977958.84190@t8g2000prg.googlegroups.com>
AAAArgh!
$belowTabsUISub4 -> Label(-textvariable => $_[1],-fg => 'red')->
Should have been:
$belowTabsUISub4 -> Label(-text => $_[1],-fg => 'red')->
------------------------------
Date: Thu, 18 Oct 2007 20:02:03 -0600
From: "Samik R." <samik@frKKshKll.org>
Subject: Expansion of variable in foreach
Message-Id: <ff938k$vfk$1@aioe.org>
Hello,
I have been using perl for quite sometime now, but something got me
stumped. I am trying to use the following code:
--------------------
foreach (@SPointIDs)
{
my $RefID="";
foreach $RefID (@RefineryIDs)
{
$DBHandle->execQueryNoResult("insert into orders
values('$GameID',$CurrentWeek,'$RefID','$_',1000,'Road')");
}
}
------------------
The execQueryNoResult method is expecting a string as it's argument.
When I run this, and print from inside the execQueryNoResult method, the
insert statement comes as follows:
insert into orders
values('D00000',1,'ARRAY(0x1035d5b8)','ARRAY(0x1035d678)',1000,'Road')
But, if I use a for loop rather than a foreach loop, and then access the
elements as $SPointID[$i] etc., then things are fine.
What am I missing here? Is there something wrong in my syntax?
Thanks for any pointers.
-Samik
------------------------------
Date: Fri, 19 Oct 2007 04:30:44 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Expansion of variable in foreach
Message-Id: <5nqj6kFjnjdcU1@mid.individual.net>
Samik R. wrote:
>
> foreach (@SPointIDs)
> {
> my $RefID="";
> foreach $RefID (@RefineryIDs)
> {
> $DBHandle->execQueryNoResult("insert into orders
> values('$GameID',$CurrentWeek,'$RefID','$_',1000,'Road')");
> }
> }
> ------------------
>
> The execQueryNoResult method is expecting a string as it's argument.
> When I run this, and print from inside the execQueryNoResult method, the
> insert statement comes as follows:
> insert into orders
> values('D00000',1,'ARRAY(0x1035d5b8)','ARRAY(0x1035d678)',1000,'Road')
In that case, @SPointIDs and @RefineryIDs are not simple arrays, but
arrays of arrays.
> But, if I use a for loop rather than a foreach loop, and then access the
> elements as $SPointID[$i] etc.,
Do you have a @SPointID variable as well?
> then things are fine.
That makes no sense to me.
Please follow the posting guidelines for this group and post a small but
_complete_ script that people can copy and run and that reproduces
similar unexpected output.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 19 Oct 2007 10:37:42 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: MySQL's poll for 5.1 - "What Programming Lang do you use"
Message-Id: <ff9qp1$hsv$1@mlucom4.urz.uni-halle.de>
FWIW,
The Python people worked hard on lifting the Python
counts somehow http://dev.mysql.com/
(after sombody posted the link in comp.lang.python).
I posted this in case somebody is interested
in modifying the results ;-)
Regards
M.
------------------------------
Date: Fri, 19 Oct 2007 04:42:19 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Oct 19 2007
Message-Id: <Jq56EJ.E4B@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Astro-SIMBAD-Client-0.010
http://search.cpan.org/~wyant/Astro-SIMBAD-Client-0.010/
Fetch astronomical data from SIMBAD 4.
----
Attribute-Overload-0.04
http://search.cpan.org/~marcel/Attribute-Overload-0.04/
Attribute that makes overloading easier
----
Attribute-TieClasses-0.03
http://search.cpan.org/~marcel/Attribute-TieClasses-0.03/
attribute wrappers for CPAN Tie classes
----
Bundle-Perl6-0.09
http://search.cpan.org/~marcel/Bundle-Perl6-0.09/
A bundle to install Perl6-related modules
----
CGI-Ex-2.21
http://search.cpan.org/~rhandom/CGI-Ex-2.21/
CGI utility suite - makes powerful application writing fun and easy
----
CGI-List-0.01
http://search.cpan.org/~romdav/CGI-List-0.01/
Easily generate HTML Lists From a DataBase
----
CGI-List-0.02
http://search.cpan.org/~romdav/CGI-List-0.02/
Easily generate HTML Lists From a DataBase
----
CPANPLUS-Dist-Mdv-0.1.0
http://search.cpan.org/~jquelin/CPANPLUS-Dist-Mdv-0.1.0/
a cpanplus backend to build mandriva rpms
----
Catalyst-Plugin-Authentication-Store-LDAP-0.0600
http://search.cpan.org/~karman/Catalyst-Plugin-Authentication-Store-LDAP-0.0600/
Authentication from an LDAP Directory.
----
Catalyst-Runtime-5.7011
http://search.cpan.org/~mramberg/Catalyst-Runtime-5.7011/
Catalyst Runtime version
----
Catalyst-View-JSON-0.21
http://search.cpan.org/~miyagawa/Catalyst-View-JSON-0.21/
JSON view for your data
----
Class-Accessor-Complex-0.04
http://search.cpan.org/~marcel/Class-Accessor-Complex-0.04/
arrays, hashes, booleans, integers, sets and more
----
Class-Null-1.07
http://search.cpan.org/~marcel/Class-Null-1.07/
Implements the Null Class design pattern
----
DBIx-DataModel-0.33
http://search.cpan.org/~dami/DBIx-DataModel-0.33/
Classes and UML-style Associations on top of DBI
----
DBIx-Lookup-Field-1.23
http://search.cpan.org/~marcel/DBIx-Lookup-Field-1.23/
Create a lookup hash from a database table
----
DBIx-RetryOverDisconnects-0.01
http://search.cpan.org/~syber/DBIx-RetryOverDisconnects-0.01/
DBI wrapper that helps to deal with databases connection problems
----
Data-Comparable-0.02
http://search.cpan.org/~marcel/Data-Comparable-0.02/
present your object for comparison purposes
----
Data-Container-0.03
http://search.cpan.org/~marcel/Data-Container-0.03/
base class for objects containing a list of items
----
Data-Inherited-1.04
http://search.cpan.org/~marcel/Data-Inherited-1.04/
hierarchy-wide accumulation of list and hash results
----
Data-Miscellany-0.02
http://search.cpan.org/~marcel/Data-Miscellany-0.02/
collection of miscellaneous subroutines
----
Decision-ParseTree-0.03
http://search.cpan.org/~notbenh/Decision-ParseTree-0.03/
Replacing waterfall IF-ELSIF-ELSE blocks
----
Devel-CheckLib-0.2
http://search.cpan.org/~dcantrell/Devel-CheckLib-0.2/
check that a library is available
----
Devel-SearchINC-1.32
http://search.cpan.org/~marcel/Devel-SearchINC-1.32/
loading Perl modules from their development dirs
----
Device-MAS345-0.02
http://search.cpan.org/~mschilli/Device-MAS345-0.02/
Reading the Mastech MAS-345 Multimeter
----
Error-Hierarchy-0.02
http://search.cpan.org/~marcel/Error-Hierarchy-0.02/
support for hierarchical exception classes
----
File-Read-0.0800
http://search.cpan.org/~saper/File-Read-0.0800/
Unique interface for reading one or more files
----
File-Read-0.0801
http://search.cpan.org/~saper/File-Read-0.0801/
Unique interface for reading one or more files
----
File-Tee-0.03
http://search.cpan.org/~salva/File-Tee-0.03/
replicate data sent to a Perl stream
----
Finance-Bank-IE-0.10
http://search.cpan.org/~waider/Finance-Bank-IE-0.10/
----
Getopt-Attribute-1.43
http://search.cpan.org/~marcel/Getopt-Attribute-1.43/
Attribute wrapper for Getopt::Long
----
Hook-Modular-0.06
http://search.cpan.org/~marcel/Hook-Modular-0.06/
making pluggable applications easy
----
IPC-SysV-1.99_05
http://search.cpan.org/~mhx/IPC-SysV-1.99_05/
System V IPC constants and system calls
----
JSON-Any-1.11
http://search.cpan.org/~perigrin/JSON-Any-1.11/
Wrapper Class for the various JSON classes.
----
JSON-DWIW-0.17
http://search.cpan.org/~dowens/JSON-DWIW-0.17/
JSON converter that Does What I Want
----
JSON-DWIW-0.18
http://search.cpan.org/~dowens/JSON-DWIW-0.18/
JSON converter that Does What I Want
----
Log-Report-0.11
http://search.cpan.org/~markov/Log-Report-0.11/
report a problem, pluggable handlers and language support
----
Module-Cloud-0.06
http://search.cpan.org/~marcel/Module-Cloud-0.06/
Generates a tag cloud for modules used in given code
----
Module-Install-StandardTests-0.05
http://search.cpan.org/~marcel/Module-Install-StandardTests-0.05/
generate standard tests for installation
----
Net-IP-Match-0.02
http://search.cpan.org/~marcel/Net-IP-Match-0.02/
Efficiently match IP addresses against IP ranges
----
Net-UCP-0.28
http://search.cpan.org/~nemux/Net-UCP-0.28/
Perl extension for EMI - UCP Protocol.
----
Net-UCP-0.28.1
http://search.cpan.org/~nemux/Net-UCP-0.28.1/
Perl extension for EMI - UCP Protocol.
----
NetSNMP-LogParser-1.0537
http://search.cpan.org/~nito/NetSNMP-LogParser-1.0537/
An incremental logparser to be used with Net-SNMP
----
POE-Component-SNMP-Session-0.09
http://search.cpan.org/~rdb/POE-Component-SNMP-Session-0.09/
Wrap Net-SNMP's SNMP::Session in POE
----
POE-Filter-IASLog-0.01
http://search.cpan.org/~bingos/POE-Filter-IASLog-0.01/
A POE Filter for Microsoft IAS-formatted log entries.
----
Parallel-Jobs-0.05
http://search.cpan.org/~jik/Parallel-Jobs-0.05/
run jobs in parallel with access to their stdout and stderr
----
Parse-IASLog-0.04
http://search.cpan.org/~bingos/Parse-IASLog-0.04/
A parser for Microsoft IAS-formatted log entries.
----
Parse-IASLog-0.05
http://search.cpan.org/~bingos/Parse-IASLog-0.05/
A parser for Microsoft IAS-formatted log entries.
----
Parse-Marpa-0.001_017
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_017/
Earley's Algorithm, with improvements
----
SOAP-Lite-0.70_01
http://search.cpan.org/~mkutter/SOAP-Lite-0.70_01/
Perl's Web Services Toolkit
----
SOAP-WSDL-2.00_20
http://search.cpan.org/~mkutter/SOAP-WSDL-2.00_20/
SOAP with WSDL support
----
SQL-DB-0.10
http://search.cpan.org/~mlawren/SQL-DB-0.10/
Perl interface to SQL Databases
----
SVN-Class-0.05
http://search.cpan.org/~karman/SVN-Class-0.05/
manipulate Subversion workspaces with Perl objects
----
SWISH-API-More-0.05
http://search.cpan.org/~karman/SWISH-API-More-0.05/
do more with the SWISH::API
----
Scalar-Properties-0.13
http://search.cpan.org/~marcel/Scalar-Properties-0.13/
run-time properties on scalar variables
----
Search-Tools-0.11
http://search.cpan.org/~karman/Search-Tools-0.11/
tools for building search applications
----
String-FlexMatch-0.09
http://search.cpan.org/~marcel/String-FlexMatch-0.09/
flexible ways to match a string
----
Syndication-ESF-0.11
http://search.cpan.org/~bricas/Syndication-ESF-0.11/
Create and update ESF files
----
Term-Cap-1.10
http://search.cpan.org/~jstowe/Term-Cap-1.10/
Perl termcap interface
----
Term-Shell-Enhanced-0.02
http://search.cpan.org/~marcel/Term-Shell-Enhanced-0.02/
more functionality for Term::Shell
----
Test-Compile-0.04
http://search.cpan.org/~marcel/Test-Compile-0.04/
check whether Perl module files compile correctly
----
Test-Weaken-0.001_008
http://search.cpan.org/~jkegl/Test-Weaken-0.001_008/
Test for leaks after weakening of circular references
----
Tie-Scalar-Timeout-1.33
http://search.cpan.org/~marcel/Tie-Scalar-Timeout-1.33/
Scalar variables that time out
----
Tk-FontDialog-0.13_90
http://search.cpan.org/~srezic/Tk-FontDialog-0.13_90/
a font dialog widget for perl/Tk
----
Verilog-Perl-3.013
http://search.cpan.org/~wsnyder/Verilog-Perl-3.013/
----
WWW-WorldLingo-0.02
http://search.cpan.org/~ashley/WWW-WorldLingo-0.02/
Tie into WorldLingo's subscription based translation service.
----
XML-Compile-0.56
http://search.cpan.org/~markov/XML-Compile-0.56/
Compilation based XML processing
----
XML-Compile-SOAP-0.57
http://search.cpan.org/~markov/XML-Compile-SOAP-0.57/
base-class for SOAP implementations
----
YAML-Active-1.04
http://search.cpan.org/~marcel/YAML-Active-1.04/
Combine data and logic in YAML
----
lsid-perl-1.1.4
http://search.cpan.org/~ekawas/lsid-perl-1.1.4/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Fri, 19 Oct 2007 02:13:17 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: Re: perl standard
Message-Id: <eo2dnaMhQteF-oXanZ2dnUVZ_ternZ2d@comcast.com>
"Paul Lalli" <mritty@gmail.com> wrote in message
news:1192754482.690169.74570@z24g2000prh.googlegroups.com...
> On Oct 18, 7:24 pm, "Wade Ward" <zaxf...@invalid.net> wrote:
>> I'm far enough along in Perl now that I'd like to lay eyes on
>> the Standard.
>>
>> Usually they have the full standard available for $250
>
> Who is this "they" of whom you speak? There is no such entity.
> There's Larry. What he says Perl should do is as close to an official
> "standard" as you're ever going to find. (See also: "The Rules",
> `perldoc perlhack`)
They is ISO. I would have a hard time believing that the entire body of
international standards chose to overlook perl, particularly when I've
already heard the document described.
perldoc perlhack is a %100 wrong answer.
--
wade ward
"Nicht verzagen, Bruder Grinde fragen."
------------------------------
Date: 19 Oct 2007 08:32:58 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: perl standard
Message-Id: <slrnfhgqtq.ds1.abigail@alexandra.abigail.be>
_
Wade Ward (zaxfuuq@invalid.net) wrote on VCLXII September MCMXCIII in
<URL:news:eo2dnaMhQteF-oXanZ2dnUVZ_ternZ2d@comcast.com>:
##
##
## "Paul Lalli" <mritty@gmail.com> wrote in message
## news:1192754482.690169.74570@z24g2000prh.googlegroups.com...
## > On Oct 18, 7:24 pm, "Wade Ward" <zaxf...@invalid.net> wrote:
## >> I'm far enough along in Perl now that I'd like to lay eyes on
## >> the Standard.
## >>
## >> Usually they have the full standard available for $250
## >
## > Who is this "they" of whom you speak? There is no such entity.
## > There's Larry. What he says Perl should do is as close to an official
## > "standard" as you're ever going to find. (See also: "The Rules",
## > `perldoc perlhack`)
## They is ISO. I would have a hard time believing that the entire body of
## international standards chose to overlook perl, particularly when I've
## already heard the document described.
You think it's more believable that a well known standards body goes off
to standardize Perl, and not tell anyone involved with Perl development
about it?
What do you think ISO is? A bunch of people picking a random subject
every Monday morning that they will standardize this week?
But hey, if you find someone that's willing to give you a "Perl standard"
in exchange for $250, and you're happy with it, go for it. It's a win-win
situation.
## perldoc perlhack is a %100 wrong answer.
Right, it's only a document written by the people who develop [Pp]erl
on how [Pp]erl is being developed. What would they know? Besides, perlhack
is free, so it must be full of lies. Only if you pay $250 you get a document
you can rely on.
Abigail
--
echo "==== ======= ==== ======"|perl -pes/=/J/|perl -pes/==/us/|perl -pes/=/t/\
|perl -pes/=/A/|perl -pes/=/n/|perl -pes/=/o/|perl -pes/==/th/|perl -pes/=/e/\
|perl -pes/=/r/|perl -pes/=/P/|perl -pes/=/e/|perl -pes/==/rl/|perl -pes/=/H/\
|perl -pes/=/a/|perl -pes/=/c/|perl -pes/=/k/|perl -pes/==/er/|perl -pes/=/./;
------------------------------
Date: Fri, 19 Oct 2007 11:04:49 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: perl standard
Message-Id: <ffa34o.r0.1@news.isolution.nl>
benkasminbullock@gmail.com schreef:
> Michele Dondi:
>> Perl unlike other languages is defined by its own
>> implementation. At least in 5's realms. Get used to it. Just refer to
>> the docs that came with your perl.
>
> Logically speaking, if you accept that Perl is defined by its
> implementation, then you also accept that there is no such thing as a
> bug in Perl. If Perl does something crazy or unexpected, then since
> Perl is "defined by its implementation", the bizarre behaviour is not
> a bug, it is the correct behaviour of Perl, at least as far as the
> language is "defined by its implementation". Also you have to accept
> that the documentation is wrong if it says something different from
> what Perl actually does. So if Perl exhibits some bug then the
> documentation should be considered incorrect, not Perl.
No. The documentation is an important part of the implementation. So is
CPAN, for example all the testcode of the serious modules.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Fri, 19 Oct 2007 11:53:03 +0200
From: Joachim Durchholz <jo@durchholz.org>
Subject: Re: perl standard
Message-Id: <ff9upn$tr1$2@online.de>
A standard serves to make the implementations converge on a common
semantics. Since Perl is a single-implementation language, there is no
need for a standard.
Regards,
Jo
------------------------------
Date: 19 Oct 2007 02:40:00 GMT
From: xhoster@gmail.com
Subject: Re: please help optimize sub
Message-Id: <20071018224003.622$XX@newsreader.com>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote:
...
>
> Running times were 20.2 seconds for the original version versus 11.7
> seconds for the version above.
>
> The version with just the array moved out of the sub ran in 14.2 seconds.
>
> After replacing the sub with
>
> sub optimizeMePlease { return 1 }
>
> as a control, the script ran in 9 seconds.
>
> I guess one could thus say the version above represents a speed-up of
> about 75%.
>
> This is on Windows XP SP2, AS Perl 5.8.8.822, Intel Dual Core.
>
> Before someone tells me, yes, I know, I should have used Benchmark
I disagree. You should have done just what you did do. Using Benchmark
doesn't make it easy (and indeed makes it hard) to verify that the various
things being tested actually produce the correct (or at least mutually
the same) answer. It seems like half the time I see people using
Benchmark, at least one of the implementations benchmarked doesn't give the
right answer but they never test for that. And I trust the times given by
the OS tools like "time" at least as much as I do the Benchmark ones,
anyway. About the only times I use Benchmark are when I'm tinkering with
someone else's code which is already all harnessed up with it, or when the
thing I want to test the timing requires a lot of set-up which set-up takes
more time than the thing to be tested does.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Fri, 19 Oct 2007 03:23:28 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: please help optimize sub
Message-Id: <Xns99CDEDF12F316asu1cornelledu@127.0.0.1>
xhoster@gmail.com wrote in news:20071018224003.622$XX@newsreader.com:
> "A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote:
> ...
...
>>
>> Before someone tells me, yes, I know, I should have used Benchmark
>
> I disagree. You should have done just what you did do. Using
> Benchmark doesn't make it easy (and indeed makes it hard) to verify
> that the various things being tested actually produce the correct (or
> at least mutually the same) answer. It seems like half the time I see
> people using Benchmark, at least one of the implementations
> benchmarked doesn't give the right answer but they never test for
> that. And I trust the times given by the OS tools like "time" at
> least as much as I do the Benchmark ones, anyway.
Well, I am glad that you read between the lines and deduced why I set up
separate scripts. Now that I am reasonably certain the optimized routine
returns the same results as the original, it might be worthwhile to set
up a script using Benchmark to be able to compare speeds on different
platforms as it becomes necessary but I am going to leave that to the
OP.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
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 951
**************************************
