[29288] in Perl-Users-Digest
Perl-Users Digest, Issue: 532 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 19 06:10:29 2007
Date: Tue, 19 Jun 2007 03:09:10 -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 Tue, 19 Jun 2007 Volume: 11 Number: 532
Today's topics:
Re: For Loop <skye.shaw@gmail.com>
Re: How to test weather something is a func,method or v <asuter@cisco.com>
Re: How to test weather something is a func,method or v <skye.shaw@gmail.com>
Language Perl sujal01@gmail.com
Re: lightweight access to large data structures? <tadmc@seesig.invalid>
Re: lightweight access to large data structures? xhoster@gmail.com
Re: lightweight access to large data structures? xhoster@gmail.com
new CPAN modules on Tue Jun 19 2007 (Randal Schwartz)
Re: paragraph mode <tadmc@seesig.invalid>
Re: perl and php <sumonsmailbox@gmail.com>
perl build.PL create an error <kwan.jingx@gmail.com>
Re: perl build.PL create an error <skye.shaw@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 19 Jun 2007 06:19:19 -0000
From: "Skye Shaw!@#$" <skye.shaw@gmail.com>
Subject: Re: For Loop
Message-Id: <1182233959.763569.123880@n15g2000prd.googlegroups.com>
On Jun 17, 5:51 am, shapper <mdmo...@gmail.com> wrote:
> Hello,
>
> I don't know PERL and I need to convert a simple code to C# or VB.NET.
I'm sorry
> Could someone, please, help me with the conversion?
> A description of how the loop works would be enough.
> for $row (1..$h)
> { for ($s=0,$i=$row; $s<$c; $i+=($h+($s<$rm)), ++$s)
> { printf "%7u", $i }
> print "\n";
>
> }
>
> ++$h;
> for ($s=0,$i=$h; $s < $rm; $i+=$h, ++$s)
> { printf "%7u", $i }
for $row (1..$h)
For Row=1 To H 'VB
for( int row=1; row<h; row++ ) //C#
printf "%7u", $i
Console.WriteLine("{0:D7}",i) //.NoT
------------------------------
Date: Mon, 18 Jun 2007 21:04:27 -0700
From: "Asim Suter" <asuter@cisco.com>
Subject: Re: How to test weather something is a func,method or var
Message-Id: <1182225870.438675@sj-nntpcache-2.cisco.com>
The buillt-in 'ref' comes to mind.
Asim Suter
"muede" <muede73@gmx.de> wrote in message
news:1182156164.783212@arno.fh-trier.de...
>
> scenario :
>
> I have an existing module 'Foo::Bar' and
> I know an identifier 'something' belongs somehow
> to this module.
>
> problem :
>
> How to I find out ( inside perl code, otherwise I could lookup the pod ),
> what kind of 'something' I am dealing here with ?
>
> The only idea I have , is by simply trying to access it in all possible
> ways and then parse the error output somehow. But this doesn't sound
> very appealing.
>
> Do you know a better way ?
>
> -ap
> --
------------------------------
Date: Tue, 19 Jun 2007 05:42:20 -0000
From: "Skye Shaw!@#$" <skye.shaw@gmail.com>
Subject: Re: How to test weather something is a func,method or var
Message-Id: <1182231740.893578.107770@i13g2000prf.googlegroups.com>
On Jun 18, 2:10 am, anno4...@radom.zrz.tu-berlin.de wrote:
> muede <mued...@gmx.de> wrote in comp.lang.perl.misc:
>
>
>
> > scenario :
>
> > I have an existing module 'Foo::Bar' and
> > I know an identifier 'something' belongs somehow
> > to this module.
>
> > problem :
>
> > How to I find out ( inside perl code, otherwise I could lookup the pod ),
> > what kind of 'something' I am dealing here with ?
ref() will do the trick.
Although, as its name implies, it will only work with references. It
does return a empty strung if the argument is not a reference. In
those caese you can do something like:
my $something = ref($scalar)||ref(\$scalar);
> > Do you know a better way ?
> Anno
> Read up about typeglobs in perldata.
>
> sub analyze {
> my $name = shift;
> no strict 'refs';
> my $glob = *$name;
> for ( qw( SCALAR ARRAY HASH CODE IO) ) {
> print "$name is a $_\n" if *$glob{ $_};
> }
> }
>
> analyze( 'Foo::Bar::something');
>
This will print all of the types associated with the name 'something'.
bs.pl:
Package Bs;
our %wee;
our @wee;
1;
#analyze sub definition from above...
analyze( 'Bs::wee ');
[sshaw@localhost ~]$ perl bs.pl
Bs::wee is a SCALAR
Bs::wee is a ARRAY
Bs::wee is a HASH
------------------------------
Date: Tue, 19 Jun 2007 00:53:12 -0700
From: sujal01@gmail.com
Subject: Language Perl
Message-Id: <1182239592.009782.57040@p77g2000hsh.googlegroups.com>
Hi,
For articles visit:
http://www.telepk.com/articles/
For Beauty and Health Tips:
http://www.telepk.com/beauty_and_health/
For Home Decoration:
http://www.telepk.com/homedecoration/
For Technology News:
http:/www.telepk.com/technews/
For Cricket News:
http://www.telepk.com/sports/cricket/
For Online Flash Games:
http://www.telepk.com/games/
For Software Downloads:
http://www.telepk.com/downloads/
For ASP Tutorial:
http://www.codedcode.com/asp/
For Myspace Layouts:
http://www.myspacepk.com/
For News Blog:
http://www.newsblogpk.com/
For MSN Block Checker:
http://www.hotmailpk.com/
FOr Baby Names:
http://www.babynamespk.com/
For Urdu Poetry:
http://www.haroof.com/poetry/
Thanks!
------------------------------
Date: Mon, 18 Jun 2007 17:24:54 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: lightweight access to large data structures?
Message-Id: <slrnf7e1hm.a2g.tadmc@tadmc30.sbcglobal.net>
ivowel@gmail.com <ivowel@gmail.com> wrote:
> This can't be an obscure problem.
Perhaps it is a Question that is Asked Frequently...
perldoc -q memory
How can I make my Perl program take less memory?
> What is the recommended light-
> weight way of dealing with such large-data situations in perl5 ?
tie()
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: 18 Jun 2007 22:37:54 GMT
From: xhoster@gmail.com
Subject: Re: lightweight access to large data structures?
Message-Id: <20070618183757.507$9o@newsreader.com>
usenet@DavidFilmer.com wrote:
> On Jun 18, 2:20 pm, ivo...@gmail.com wrote:
> > I have a 300MB .csv data file...
> > it gobbled up about 4GB of RAM
>
> There's no reason why 300 MB of input data should consume 4 GB when
> imported into a Perl data structure.
Sure there is. Perl has all kinds of memory overhead. Heck, I'm surprised
it doesn't take more, given that in his example, each chunk of data is only
a few bytes. For each chunk, you have to have a full scalar struct
(about 20 bytes), plus you need the string storage (starts at about 12
bytes, even if the string is only one character long). Then he has many,
many hash structures, each with high overhead.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 18 Jun 2007 23:03:43 GMT
From: xhoster@gmail.com
Subject: Re: lightweight access to large data structures?
Message-Id: <20070618190346.119$Hr@newsreader.com>
ivowel@gmail.com wrote:
> dear perl experts---
>
> I have a 300MB .csv data file (60MB compressed) that I need to read,
> but not write to:
>
> key-part1,key-part2,data1,data2,data3
> ibm,2003/01,0.2,0.3,0.4
> ibm,1972/01,0.5,0.3,NaN
> sunw,2003/01,0.3,NaN,0.1
> ...
>
> the key-part1+key-part2 combination is unique, but neither key alone
> is unique.
What is the cardinality of the respective parts to the key? I.e. are there
only two possible value for key-part1, sunw and ibm, and all the rest of
the diversity comes from key-part2?
> my first idea to use this data in perl was a bit naive: create a hash
> of hashes, so that I can find data or iterate over all data items that
> match only one of the two keys.
Do you actually need to be able to do that quickly in both directions?
What are the exact operations that have to be supported quickly?
> Something like $data1->{ibm}->{192601} and $data1->{192601}->{ibm}.
What would the value in $data1->{ibm}->{192601} be? An arrayref of
[data1,data2,data3]?
Perhaps you could just tie your hash to something like DBM::Deep. I'm
quite fond of that module, especially when I need pure Perl only solutions.
> great idea indeed, except
> that after it gobbled up about 4GB of RAM, my perl program died. this
> would have been nice.
>
> I can think of a couple of methods that I could use. I could read the
> data with a C program, and then have perl query my C program (e.g.,
> through a socket). yikes.
Yikes indeed. It is hard for me to dream up of a situation that would
induce me to do this.
> I could copy (yikes)
How about just moving it into a database, instead of copying it?
> the data into a data
> base and access it through a data base modules, though I am not sure
> what data base I should use for this purpose.
This seems like a good idea. I'm partial to mysql myself for such simple
projects.
But before that, how do you arrive at the queries that you will submit to
the would-be database in the first place? If they are not interactive, but
rather you have a fixed set of queries to process, you can usually come up
with better text based methods. For example, instead of storing the data
in a hash/database and then reading the queries and applying them to the
data hash, you can store the queries in the hash, and read through the data
a line at a time figuring out what query it pertains to.
Or, you can often just arrange things such that just sorting the data file
in a particular way will accomplish most of the work you need to do.
> (I need not one-key
> access, but two key multiple-record access.) or I could do the
> combination, and put the data into an SQL data base and learn SQL just
> so that I can quickly access my data file. yikes and yikes. maybe
> perl6 could do better, but perl6 isn't around yet. is there a way to
> code so that perl5 becomes more memory efficient?
Yes, but they will be painful and inflexible, and you would have to give us
far more information about exactly what it is you are going to be doing.
For example, you could keep the last 3 columns for each record as one
string of text, and reparse that string each time you need to access the
record. A string takes up much less space than a three-element array which
contains the split up contents of that string.
> This can't be an obscure problem.
But it also isn't a general problem. There are a billion ways you can have
way too much data to fit into memory, and a billion things you can want to
do with it. There isn't one solution that fits all of those situations.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 19 Jun 2007 04:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Jun 19 2007
Message-Id: <JJv92A.1Hup@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.
App-Build-0.68
http://search.cpan.org/~mbarbon/App-Build-0.68/
extends Module::Build to build/install/configure entire applications (i.e. web applications), not just modules and programs
----
Benchmark-Stopwatch-Pause-0.02
http://search.cpan.org/~notbenh/Benchmark-Stopwatch-Pause-0.02/
simple timing of stages of your code with a pause option.
----
Bundle-SQL-0.01
http://search.cpan.org/~ski/Bundle-SQL-0.01/
installs SQL modules and dependencies
----
Bundle-SQL-0.02
http://search.cpan.org/~ski/Bundle-SQL-0.02/
installs SQL modules and dependencies
----
Business-OnlinePayment-CashCow-0.09
http://search.cpan.org/~jonasbn/Business-OnlinePayment-CashCow-0.09/
Online payment processing via CashCow
----
CORBA-Python-0.39
http://search.cpan.org/~perrad/CORBA-Python-0.39/
----
Cache-Memcached-1.22
http://search.cpan.org/~bradfitz/Cache-Memcached-1.22/
client library for memcached (memory cache daemon)
----
Catalyst-Controller-FormBuilder-0.04
http://search.cpan.org/~jcamacho/Catalyst-Controller-FormBuilder-0.04/
Catalyst FormBuilder Base Controller
----
Class-MOP-0.39
http://search.cpan.org/~groditi/Class-MOP-0.39/
A Meta Object Protocol for Perl 5
----
Config-Apt-Sources-0.03
http://search.cpan.org/~iank/Config-Apt-Sources-0.03/
Parse and manipulate apt sources
----
Cvs-Simple-0.02
http://search.cpan.org/~stephenca/Cvs-Simple-0.02/
Perl interface to cvs
----
DBD-Multiplex-2.01
http://search.cpan.org/~tkishel/DBD-Multiplex-2.01/
A multiplexing driver for the DBI.
----
DBI-1.57
http://search.cpan.org/~timb/DBI-1.57/
Database independent interface for Perl
----
Data-Package-CSV-0.01
http://search.cpan.org/~adamk/Data-Package-CSV-0.01/
A Data::Package class for CSV data using Parse::CSV
----
Date-Gregorian-0.11
http://search.cpan.org/~mhasch/Date-Gregorian-0.11/
Gregorian calendar
----
File-Next-1.00
http://search.cpan.org/~petdance/File-Next-1.00/
File-finding iterator
----
File-chdir-0.07
http://search.cpan.org/~dagolden/File-chdir-0.07/
a more sensible way to change directories
----
Flickr-Upload-1.27
http://search.cpan.org/~cpb/Flickr-Upload-1.27/
Upload images to flickr.com
----
Flickr-Upload-1.28
http://search.cpan.org/~cpb/Flickr-Upload-1.28/
Upload images to flickr.com
----
Geo-Query-LatLong-0.8004
http://search.cpan.org/~retoh/Geo-Query-LatLong-0.8004/
Perl module to query latitude and longitude from a city.
----
Geo-Query-LatLong-0.8005
http://search.cpan.org/~retoh/Geo-Query-LatLong-0.8005/
Perl module to query latitude and longitude from a city.
----
Graph-Timeline-1.3
http://search.cpan.org/~peterhi/Graph-Timeline-1.3/
Render timeline data
----
MARC-Fast-0.05
http://search.cpan.org/~dpavlin/MARC-Fast-0.05/
Very fast implementation of MARC database reader
----
MARC-Fast-0.06
http://search.cpan.org/~dpavlin/MARC-Fast-0.06/
Very fast implementation of MARC database reader
----
MIME-tools-5.420_01
http://search.cpan.org/~doneill/MIME-tools-5.420_01/
----
Math-Counting-0.07
http://search.cpan.org/~gene/Math-Counting-0.07/
Combinatorial counting operations
----
Math-Counting-0.0701
http://search.cpan.org/~gene/Math-Counting-0.0701/
Combinatorial counting operations
----
Moose-0.23
http://search.cpan.org/~groditi/Moose-0.23/
A complete modern object system for Perl 5
----
Net-Amazon-0.42
http://search.cpan.org/~boumenot/Net-Amazon-0.42/
Framework for accessing amazon.com via REST
----
Net-Radius-Client-0.01
http://search.cpan.org/~ilya/Net-Radius-Client-0.01/
Pure-Perl, VSA-empowered RADIUS client
----
Net-SFTP-Foreign-1.24
http://search.cpan.org/~salva/Net-SFTP-Foreign-1.24/
Secure File Transfer Protocol client
----
Net-SLP-1.1
http://search.cpan.org/~mikem/Net-SLP-1.1/
Perl extension for accessing the Service Location Protocol (SLP) API. SLP can be used to discover the location of services
----
OODoc-1.01
http://search.cpan.org/~markov/OODoc-1.01/
object oriented production of code related documentation
----
PerlSpeak-1.0
http://search.cpan.org/~jkamphaus/PerlSpeak-1.0/
Perl Module for text to speech with festival, cepstral and others.
----
RRDTool-Creator-0.7
http://search.cpan.org/~jacquelin/RRDTool-Creator-0.7/
Creators for round robin databases (RRD)
----
SQL-API-0.02
http://search.cpan.org/~mlawren/SQL-API-0.02/
----
Spreadsheet-Read-0.21
http://search.cpan.org/~hmbrand/Spreadsheet-Read-0.21/
Meta-Wrapper for reading spreadsheet data
----
Spreadsheet-Read-0.22
http://search.cpan.org/~hmbrand/Spreadsheet-Read-0.22/
Meta-Wrapper for reading spreadsheet data
----
String-MFN-1.29
http://search.cpan.org/~mdxi/String-MFN-1.29/
Normalize a string to produce a sane Unix filename
----
WebService-YahooJapan-WebMA-0.01
http://search.cpan.org/~jiro/WebService-YahooJapan-WebMA-0.01/
Easy-to-use Interface for Yahoo! Japan Web MA Web Service
----
YAML-LibYAML-0.19
http://search.cpan.org/~ingy/YAML-LibYAML-0.19/
----
YAML-LibYAML-0.20
http://search.cpan.org/~ingy/YAML-LibYAML-0.20/
----
poptart-0.1
http://search.cpan.org/~jbg/poptart-0.1/
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: Mon, 18 Jun 2007 17:32:40 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: paragraph mode
Message-Id: <slrnf7e208.a2g.tadmc@tadmc30.sbcglobal.net>
Larry <larry.grant.dc@gmail.com> wrote:
> Is there any exact definition of "paragraph mode", i.e.
>
> $/ = '';
In perlvar.pod, where else?
> Everything I've seen has been somewhat vague.
It seems pretty clear to me...
> In particular, I am
> noticing on ActiveState/Win32 that the Hex sequence "0d 0a 20 0d 0a"
> is NOT being treated as a "paragraph boundary" (quite annoyingly).
> For some reason the space character alone on a line invalidates it.
Because if there is a character on the line, then it is
not an empty line!
> However, I am quite sure I have seen "0a 20 0a" treated as a
> "paragraph boundary" under Linux (can't test it so easily right now).
I doubt it.
> What is the correct behavior?
$/ The input record separator, newline by default. This influences
Perl’s idea of what a "line" is. Works like awk’s RS variable,
including treating empty lines as a terminator if set to the null
string. (An empty line cannot contain any spaces or tabs.)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 18 Jun 2007 19:08:59 -0700
From: skywriter14 <sumonsmailbox@gmail.com>
Subject: Re: perl and php
Message-Id: <1182218939.647790.194780@q75g2000hsh.googlegroups.com>
On Jun 18, 12:30 pm, Bart Lateur <bart.lat...@pandora.be> wrote:
> Only for small sites/pages.
>
> --
> Bart.
Please tell me why there are tons of web sites made with PHP as
compared to Perl or any other language, if PHP is worse than Perl and
Ruby. How does it survive? Not only the rookies program with PHP,
isn't it?
PS: I am someone who learned C first, then Java, then PHP, then Perl.
I use Perl for most of my works now. I think PHP is not anywhere close
to Perl for you, if you are a serious programmer. So you know that I
am a Perl lover.
------------------------------
Date: Tue, 19 Jun 2007 06:02:28 -0000
From: kwan <kwan.jingx@gmail.com>
Subject: perl build.PL create an error
Message-Id: <1182232948.614151.269970@w5g2000hsg.googlegroups.com>
error modules installation
==========================================
Error message for Perl Build.PL
--------------------------
[root@popple HTML-Mason-1.36]# perl Build.PL
Can't locate Module/Build.pm in @INC (@INC contains: inc /usr/lib64/
perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib64/perl5/
site_perl/5.8.7/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/
5.8.6/x86_64-linux-thread-multi /usr/lib64/perl5/site_perl/5.8.5/
x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/
perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/
site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib64/perl5/
vendor_perl/
5.8.8/x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.7/
x86_64-linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.6/x86_64-
linux-thread-multi /usr/lib64/perl5/vendor_perl/5.8.5/x86_64-linux-
thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/
vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/
vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/
x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at inc/Mason/
Build.pm line 6.
BEGIN failed--compilation aborted at inc/Mason/Build.pm line 6.
Compilation failed in require at Build.PL line 7.
BEGIN failed--compilation aborted at Build.PL line 7.
=================================================================
Perl -MCPAN -e shell
CPAN> install HTML::Mason
------------------------------
Date: Tue, 19 Jun 2007 06:34:19 -0000
From: "Skye Shaw!@#$" <skye.shaw@gmail.com>
Subject: Re: perl build.PL create an error
Message-Id: <1182234859.018417.99680@z28g2000prd.googlegroups.com>
On Jun 18, 11:02 pm, kwan <kwan.ji...@gmail.com> wrote:
> error modules installation
> ==========================================
> Error message for Perl Build.PL
> --------------------------
> [root@popple HTML-Mason-1.36]# perl Build.PL
> Can't locate Module/Build.pm in @INC (@INC contains: inc /usr/lib64/
<snip @INC dump>
[sshaw@localhost HTML-Mason-1.36]# grep -n -B5 Module::Build Build.PL
47-
48-my $build = Mason::Build->new
49- ( module_name => 'HTML::Mason',
50- requires => \%prereq,
51- build_requires => { 'HTML::Entities' => 0,
52: 'Module::Build' => 0.26,
As you can see, Module::Build is required for HTML::Mason's install.
> Perl -MCPAN -e shell
> CPAN> install HTML::Mason
This should have installed it for you. Maybe the install failed?
------------------------------
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 532
**************************************
