[32830] in Perl-Users-Digest
Perl-Users Digest, Issue: 4095 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 18 09:09:42 2013
Date: Wed, 18 Dec 2013 06: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 Wed, 18 Dec 2013 Volume: 11 Number: 4095
Today's topics:
Re: "Use of assignment to $[ is deprecated" means I wil <kst-u@mib.org>
Re: anything like cassandra or riak in perl? <cwilbur@chromatico.net>
Re: Extract sample (w/o replacement) <bugbear@trim_papermule.co.uk_trim>
Re: Extract sample (w/o replacement) <rweikusat@mobileactivedefense.com>
Re: Extract sample (w/o replacement) <hjp-usenet3@hjp.at>
Re: Extract sample (w/o replacement) <bugbear@trim_papermule.co.uk_trim>
How to replace UniCode representation with actual chara <Usenet@Grolea.us>
Re: How to replace UniCode representation with actual c <jurgenex@hotmail.com>
Re: How to replace UniCode representation with actual c <Usenet@Grolea.us>
Re: How to replace UniCode representation with actual c <bjoern@hoehrmann.de>
Re: How to replace UniCode representation with actual c <jurgenex@hotmail.com>
Re: How to replace UniCode representation with actual c <rweikusat@mobileactivedefense.com>
Re: Perl Modules and packages <news@lawshouse.org>
Re: Perl Modules and packages <gravitalsun@hotmail.foo>
Re: Perl Modules and packages <jblack@nospam.com>
Re: Perl Modules and packages <vilain@NOspamcop.net>
Re: Perl Modules and packages <news@lawshouse.org>
Re: Perl Modules and packages <hjp-usenet3@hjp.at>
Re: Perl Modules and packages <jurgenex@hotmail.com>
Re: what are some huge sites with cataalyst? what are b <sistemas.alfredo@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Dec 2013 12:47:56 -0800
From: Keith Thompson <kst-u@mib.org>
Subject: Re: "Use of assignment to $[ is deprecated" means I will need to spend all night to update my program
Message-Id: <lntxe8bk03.fsf@nuthaus.mib.org>
jidanni@jidanni.org writes:
> http://jidanni.org/astro/programs/jupmoons
> produces "Use of assignment to $[ is deprecated".
>
> Which means I need to delicately adjust various array indexes all over
> my program.
>
> And there is no "p2p" (like "a2p", "s2p") program to do it for me!
You updated the code at the above URL after posting; it no longer
refers to $[.
The updated code is probably better that it was, but it's not useful
to future readers who are curious about the original problem you
were asking about.
--
Keith Thompson (The_Other_Keith) kst-u@mib.org <http://www.ghoti.net/~kst>
Working, but not speaking, for JetHead Development, Inc.
"We must do something. This is something. Therefore, we must do this."
-- Antony Jay and Jonathan Lynn, "Yes Minister"
------------------------------
Date: Sat, 14 Dec 2013 20:49:01 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: anything like cassandra or riak in perl?
Message-Id: <87wqj66fzm.fsf@new.chromatico.net>
>>>>> "troll" == johannes falcone <visphatesjava@gmail.com> writes:
troll> prevayler seems where the computing industry must go sooner
troll> or later
It's a solution to a common and recurrent problem, yes; but a solution
designed so that the lowest common denominator of code monkeys using
Java can't break it. Certainly parts of the computing industry are
there, and always have been, but Baby's First Database Interface With No
Sharp Edges is not something to aspire to.
Even within the Java realm, for instance, Hibernate is a superior
solution to the same problem.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Mon, 16 Dec 2013 12:52:59 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: Extract sample (w/o replacement)
Message-Id: <SIKdnUBMv8AxajPPnZ2dnUVZ7tidnZ2d@brightview.co.uk>
Rainer Weikusat wrote:
> bugbear <bugbear@trim_papermule.co.uk_trim> writes:
>>
>> Depending on how important the performance of this is,
>> and what other operations are performed on the array,
>> a data structure more sophisticated than a plain (huge)
>> array might be indicated.
>
> Certainly not for this particular task. There's also the problem that
> algorithms implemented in Perl tend to be a lot slower ('have bigger
> constants', [can I credit this to Robert Pike in English in some sane
> way?]) than algorithms implemented in C which implies that Perl arrays
> are more often a good choice for Perl code than C arrays would be for
> C[*].
>
> [*] No, that's not because memory management in C is soo complicated ...
I was assuming that a plain array in perl really IS a plain array,
and that (therefore) inserting/removing a single element
would have a cost linearly proportional to size.
The data structure I had in mind was (actually) rather simple.
A linked-list of arrays, (say 10000 elements each).
Essentially one can tune the read/manipulation cost ratio
by altering the size of the sub-arrays.
BugBear
------------------------------
Date: Mon, 16 Dec 2013 13:19:44 +0000
From: Rainer Weikusat <rweikusat@mobileactivedefense.com>
Subject: Re: Extract sample (w/o replacement)
Message-Id: <87haa93pcf.fsf@sable.mobileactivedefense.com>
bugbear <bugbear@trim_papermule.co.uk_trim> writes:
> Rainer Weikusat wrote:
>> bugbear <bugbear@trim_papermule.co.uk_trim> writes:
>
>>>
>>> Depending on how important the performance of this is,
>>> and what other operations are performed on the array,
>>> a data structure more sophisticated than a plain (huge)
>>> array might be indicated.
>>
>> Certainly not for this particular task. There's also the problem that
>> algorithms implemented in Perl tend to be a lot slower ('have bigger
>> constants', [can I credit this to Robert Pike in English in some sane
>> way?]) than algorithms implemented in C which implies that Perl arrays
>> are more often a good choice for Perl code than C arrays would be for
>> C[*].
>>
>> [*] No, that's not because memory management in C is soo complicated ...
>
> I was assuming that a plain array in perl really IS a plain array,
> and that (therefore) inserting/removing a single element
> would have a cost linearly proportional to size.
The algorithm the OP posted runs in constant time (swap element to be
removed and last element, pop).
------------------------------
Date: Mon, 16 Dec 2013 22:20:23 +0100
From: "Peter J. Holzer" <hjp-usenet3@hjp.at>
Subject: Re: Extract sample (w/o replacement)
Message-Id: <slrnlaurko.ogn.hjp-usenet3@hrunkner.hjp.at>
On 2013-12-16 12:52, bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
> Rainer Weikusat wrote:
>> bugbear <bugbear@trim_papermule.co.uk_trim> writes:
>>> Depending on how important the performance of this is,
>>> and what other operations are performed on the array,
>>> a data structure more sophisticated than a plain (huge)
>>> array might be indicated.
>>
>> Certainly not for this particular task. There's also the problem that
>> algorithms implemented in Perl tend to be a lot slower ('have bigger
>> constants', [can I credit this to Robert Pike in English in some sane
>> way?]) than algorithms implemented in C which implies that Perl arrays
>> are more often a good choice for Perl code than C arrays would be for
>> C[*].
>>
>> [*] No, that's not because memory management in C is soo complicated ...
>
> I was assuming that a plain array in perl really IS a plain array,
> and that (therefore) inserting/removing a single element
> would have a cost linearly proportional to size.
Not quite. The cost is proportional to the size of the part of the array
which has to be moved. Removing a single element at the start or end of
the array is very cheap, removing one from the middle of a large array
rather costly.
Also, the cost is not symmetrical: Removing an element from the second
half is cheaper than removing one from the first half: On my desktop,
using perl 5.14, removing a single element from just before the middle
of a 100000 element array takes a bit over 50 µs, removing one just
after the middle a bit under 20 µs. Both halves are linear, so an
obvious (but probably very minor) optimization would be to change the
method after the first third instead of after half.
> The data structure I had in mind was (actually) rather simple.
> A linked-list of arrays, (say 10000 elements each).
This is sometimes worthwhile but, as Rainer already pointed out, not in
this case.
hp
--
_ | Peter J. Holzer | Fluch der elektronischen Textverarbeitung:
|_|_) | | Man feilt solange an seinen Text um, bis
| | | hjp@hjp.at | die Satzbestandteile des Satzes nicht mehr
__/ | http://www.hjp.at/ | zusammenpaßt. -- Ralph Babel
------------------------------
Date: Tue, 17 Dec 2013 12:24:34 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: Extract sample (w/o replacement)
Message-Id: <F6CdnZ1unL8f3y3PnZ2dnUVZ7tidnZ2d@brightview.co.uk>
Rainer Weikusat wrote:
> bugbear <bugbear@trim_papermule.co.uk_trim> writes:
>> I was assuming that a plain array in perl really IS a plain array,
>> and that (therefore) inserting/removing a single element
>> would have a cost linearly proportional to size.
>
> The algorithm the OP posted runs in constant time (swap element to be
> removed and last element, pop).
I hadn't read in enough detail. My thanks
and apologies. That's rather clever.
BugBear
------------------------------
Date: Tue, 17 Dec 2013 22:36:54 -0500
From: Wes Groleau <Usenet@Grolea.us>
Subject: How to replace UniCode representation with actual character?
Message-Id: <l8r58l$ihg$1@dont-email.me>
I have a huge file with information about Chinese characters. But
instead of the character, each line starts with the Unicode hex,
e.g., U+AC34
It would be trivial to use awk or perl to write a long script containing
the substitution for each line, but then every line
would have to be checked against every sub, for an N² processing time.
Not good for 36K lines.
What I tried to do instead was to use the hex value to compute the
character, for an N² processing time.
But my not-as-clever-as-I-thought method didn't work:
iMac:Anki wgroleau$ perl -CSD -p -i -e \
's:(U\+[A-F0-9]{4})(\s):\1\2\N{\1}\2:g;' \
/tmp/Chars_Info.txt
Unknown charname '\1' at -e line 1.
Deprecated character in \N{...}; marked by <-- HERE in \N{\<-- HERE 1}
at -e line 1.
I suspect "there's more than one way" to do it,
but a perl guru I am definitely not.
--
Wes Groleau
He that is good for making excuses, is seldom good for anything else.
— Benjamin Franklin
------------------------------
Date: Tue, 17 Dec 2013 20:23:31 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: How to replace UniCode representation with actual character?
Message-Id: <ve82b916lm5r44dlqotehak59ch1f1dfqi@4ax.com>
Wes Groleau <Usenet@Grolea.us> wrote:
>I have a huge file with information about Chinese characters. But
>instead of the character, each line starts with the Unicode hex,
>e.g., U+AC34
So you got a textual representation of a code point, i.e. of number.
To convert this text back into an actual number that the program can
work with you could use evil eval():
my $s = '0xAC34';
my $codepoint = eval "$s";
And then simply use chr() to get the character at that code point:
my $char = chr($codepoint);
Converting 'U+AC34' into '0xAC34' beforehand is left as an excercise.
jue
------------------------------
Date: Wed, 18 Dec 2013 01:40:56 -0500
From: Wes Groleau <Usenet@Grolea.us>
Subject: Re: How to replace UniCode representation with actual character?
Message-Id: <l8rg1p$t2h$1@dont-email.me>
On 12-17-2013, 23:23, Jürgen Exner wrote:
> Wes Groleau <Usenet@Grolea.us> wrote:
>> I have a huge file with information about Chinese characters. But
>> instead of the character, each line starts with the Unicode hex,
>> e.g., U+AC34
>
> So you got a textual representation of a code point, i.e. of number.
> To convert this text back into an actual number that the program can
> work with you could use evil eval():
> my $s = '0xAC34';
> my $codepoint = eval "$s";
> And then simply use chr() to get the character at that code point:
> my $char = chr($codepoint);
>
> Converting 'U+AC34' into '0xAC34' beforehand is left as an exercise.
Hmmm, I was hoping for in-place substitution. Will this work?
perl -CSD -p -i -e \
's/U+([A-F0-9]{4})(?{chr(eval "$1");})\t/U+$1\t$^R\t/r;' \
/tmp/Chars_Info.txt
Nope. On every line, what was inserted for $^R was the bytes efbfbd.
First line had U+7684, so the UTF-8 bytes hoped for are e79a84 for çš„
Every thing I tried after that inexplicably prevented matching.
Ah, well, too late for me to be up anyway.
(Slaps face) Oh, duh, forgot to put in the '0x' and escape the plus sign !!
Hmmm. Still isn't matching. G'night, all!
--
Wes Groleau
Expert, n.:
Someone who comes from out of town and shows slides.
------------------------------
Date: Wed, 18 Dec 2013 12:05:35 +0100
From: Bjoern Hoehrmann <bjoern@hoehrmann.de>
Subject: Re: How to replace UniCode representation with actual character?
Message-Id: <s903b9lcqgb54ngo9sgv623gs3h90c3lfm@hive.bjoern.hoehrmann.de>
* Jürgen Exner wrote in comp.lang.perl.misc:
>Wes Groleau <Usenet@Grolea.us> wrote:
>>I have a huge file with information about Chinese characters. But
>>instead of the character, each line starts with the Unicode hex,
>>e.g., U+AC34
>
>So you got a textual representation of a code point, i.e. of number.
>To convert this text back into an actual number that the program can
>work with you could use evil eval():
> my $s = '0xAC34';
> my $codepoint = eval "$s";
The `hex` and `oct` functions should be used instead.
--
Björn Höhrmann · mailto:bjoern@hoehrmann.de · http://bjoern.hoehrmann.de
Am Badedeich 7 · Telefon: +49(0)160/4415681 · http://www.bjoernsworld.de
25899 Dagebüll · PGP Pub. KeyID: 0xA4357E78 · http://www.websitedev.de/
------------------------------
Date: Wed, 18 Dec 2013 03:42:56 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: How to replace UniCode representation with actual character?
Message-Id: <gf23b9529q7lu0v5n33u3dr9ic56ih9pmo@4ax.com>
Bjoern Hoehrmann <bjoern@hoehrmann.de> wrote:
>* Jürgen Exner wrote in comp.lang.perl.misc:
>>Wes Groleau <Usenet@Grolea.us> wrote:
>>>I have a huge file with information about Chinese characters. But
>>>instead of the character, each line starts with the Unicode hex,
>>>e.g., U+AC34
>>
>>So you got a textual representation of a code point, i.e. of number.
>>To convert this text back into an actual number that the program can
>>work with you could use evil eval():
>> my $s = '0xAC34';
>> my $codepoint = eval "$s";
>
>The `hex` and `oct` functions should be used instead.
TIMTOWTDI, :-)
But of course you are right, hex() is the way to go.
jue
------------------------------
Date: Wed, 18 Dec 2013 12:11:27 +0000
From: Rainer Weikusat <rweikusat@mobileactivedefense.com>
Subject: Re: How to replace UniCode representation with actual character?
Message-Id: <87zjnycqa8.fsf@sable.mobileactivedefense.com>
Wes Groleau <Usenet@Grolea.us> writes:
> On 12-17-2013, 23:23, J¨¹rgen Exner wrote:
>> Wes Groleau <Usenet@Grolea.us> wrote:
>>> I have a huge file with information about Chinese characters. But
>>> instead of the character, each line starts with the Unicode hex,
>>> e.g., U+AC34
>>
>> So you got a textual representation of a code point, i.e. of number.
>> To convert this text back into an actual number that the program can
>> work with you could use evil eval():
>> my $s = '0xAC34';
>> my $codepoint = eval "$s";
>> And then simply use chr() to get the character at that code point:
>> my $char = chr($codepoint);
>>
>> Converting 'U+AC34' into '0xAC34' beforehand is left as an exercise.
>
> Hmmm, I was hoping for in-place substitution. Will this work?
>
> perl -CSD -p -i -e \
> 's/U+([A-F0-9]{4})(?{chr(eval "$1");})\t/U+$1\t$^R\t/r;' \
> /tmp/Chars_Info.txt
>
> Nope. On every line, what was inserted for $^R was the bytes efbfbd.
>
> First line had U+7684, so the UTF-8 bytes hoped for are e79a84 for µÄ
>
> Every thing I tried after that inexplicably prevented matching.
>
> Ah, well, too late for me to be up anyway.
>
> (Slaps face) Oh, duh, forgot to put in the '0x' and escape the plus sign !!
>
> Hmmm. Still isn't matching.
Saving you text to a file (utf-8 encoded) and processing that with
perl -pe 'BEGIN { binmode($_, 'utf8') for (*STDIN, *STDOUT) } s/U\+([A-F0-9]{4})/chr(hex($1))/eg'
yields
,----
| Hmmm, I was hoping for in-place substitution. Will this work?
|
| perl -CSD -p -i -e \
| 's/U+([A-F0-9]{4})(?{chr(eval "$1");})\t/U+$1\t$^R\t/r;' \
| /tmp/Chars_Info.txt
|
| Nope. On every line, what was inserted for $^R was the bytes efbfbd.
|
| First line had µÄ, so the UTF-8 bytes hoped for are e79a84 for µÄ
|
| Every thing I tried after that inexplicably prevented matching.
`----
NB: The binmode(STDOUT, 'utf8') isn't strictly needed, its rather a kow tow
in front of the idea that the character encoding used by perl should be
"weird and different from anything else" because that's An
Abstraction[tm].
------------------------------
Date: Sat, 14 Dec 2013 10:25:04 +0000
From: Henry Law <news@lawshouse.org>
Subject: Re: Perl Modules and packages
Message-Id: <ObCdnbohjLWcrzHPnZ2dnUVZ8oidnZ2d@giganews.com>
On 14/12/13 08:38, nraju531@gmail.com wrote:
> i want to know the were the perl modules and packages are in perl
Not sure I understand your question. Perl comes with a large set of
"standard modules", which are installed in system libraries when you
install Perl. You can find out what they are by typing
perl -lE "print for @INC"
If you're looking for additional modules, not supplied as standard, then
CPAN is a good place to look. But the providers of your operating
system may have more specific repositories. ActiveState Perl for
Windows, for example, has the "PPM" mechanism, which provides access to
specifically Windows version of the modules. And Ubuntu provides most
of them via the official repositories.
Does that answer your question? Post again more specifically if not.
--
Henry Law Manchester, England
------------------------------
Date: Sat, 14 Dec 2013 15:38:32 +0200
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: Perl Modules and packages
Message-Id: <l8hn0p$319s$1@news.ntua.gr>
You have to read the documentation butfFor a quick start create the
following three files at the same directory
test.pl
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use summer qw/&fun1 &fun2 &sun1 $var/;
say fun1("hello");
say fun2("hello");
say sun1("hello");
say "var is $var";
$var = 153;
say summer::fun3("hello");
say $summer::foo;
summer.pm
package summer;
use spring;
use strict;
use warnings;
use Exporter;
our $VERSION = '0.1.1';
our @ISA = qw/Exporter spring/;
our %EXPORT_TAGS = ();
our @EXPORT = qw/&fun1 $var/;
our @EXPORT_OK = qw/&fun2 &sun1/;
our @EXPORT_FAIL = qw//;
our $var = 'Summer';
our $foo = 'Winter';
sub fun1 { return uc $_[0] }
sub fun2 { return "Hello World from package ". __PACKAGE__}
sub fun3 { return "\$var is $var" }
1; __END__ #<EMD OF MODULE>
spring.pm
BEGIN {
package spring;
use strict;
use warnings;
use Exporter;
our $VERSION = '0.1.1';
our @ISA = qw/Exporter/;
our %EXPORT_TAGS = ();
our @EXPORT = qw/&sun1 &sun2/; # exprort now
our @EXPORT_OK = qw//; # export on demand
@EXPORT_FAIL = qw//;
my $foo = 'hello';
sub sun1 { return "Hello World from package ". __PACKAGE__ }
sub sun2 { return "I am package spring" }
}1; __END__ #<EMD OF MODULE>
run test.pl and you are ready to go !
------------------------------
Date: Sun, 15 Dec 2013 21:11:29 -0600
From: John Black <jblack@nospam.com>
Subject: Re: Perl Modules and packages
Message-Id: <MPG.2d17b804a44668509897a4@news.eternal-september.org>
In article <ObCdnbohjLWcrzHPnZ2dnUVZ8oidnZ2d@giganews.com>, news@lawshouse.org says...
> On 14/12/13 08:38, nraju531@gmail.com wrote:
> > i want to know the were the perl modules and packages are in perl
>
> Not sure I understand your question. Perl comes with a large set of
> "standard modules", which are installed in system libraries when you
> install Perl. You can find out what they are by typing
>
> perl -lE "print for @INC"
>
This sounded interesting. So I ran it on my system and got:
perl -lE "print for @INC"
Unrecognized switch: -E (-h will show valid options).
-ver reveals that v5.8.8 is installed.
John Black
------------------------------
Date: Sun, 15 Dec 2013 20:40:45 -0800
From: Michael Vilain <vilain@NOspamcop.net>
Subject: Re: Perl Modules and packages
Message-Id: <vilain-4518A2.20404515122013@news.individual.net>
In article <MPG.2d17b804a44668509897a4@news.eternal-september.org>,
John Black <jblack@nospam.com> wrote:
> In article <ObCdnbohjLWcrzHPnZ2dnUVZ8oidnZ2d@giganews.com>,
> news@lawshouse.org says...
> > On 14/12/13 08:38, nraju531@gmail.com wrote:
> > > i want to know the were the perl modules and packages are in perl
> >
> > Not sure I understand your question. Perl comes with a large set of
> > "standard modules", which are installed in system libraries when you
> > install Perl. You can find out what they are by typing
> >
> > perl -lE "print for @INC"
> >
>
> This sounded interesting. So I ran it on my system and got:
>
> perl -lE "print for @INC"
> Unrecognized switch: -E (-h will show valid options).
>
> -ver reveals that v5.8.8 is installed.
>
> John Black
You're running something old or not on a linux/MacOS system:
dexlabs-ml[17]~ % perl -lE "print for @INC"
/opt/local/lib/perl5/site_perl/5.12.4/darwin-thread-multi-2level
/opt/local/lib/perl5/site_perl/5.12.4
/opt/local/lib/perl5/vendor_perl/5.12.4/darwin-thread-multi-2level
/opt/local/lib/perl5/vendor_perl/5.12.4
/opt/local/lib/perl5/5.12.4/darwin-thread-multi-2level
/opt/local/lib/perl5/5.12.4
/opt/local/lib/perl5/site_perl
/opt/local/lib/perl5/vendor_perl
.
dexlabs-ml[18]~ % perl --version
This is perl 5, version 12, subversion 4 (v5.12.4) built for
darwin-thread-multi-2level
Copyright 1987-2010, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to
the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
--
DeeDee, don't press that button! DeeDee! NO! Dee...
[I filter all Goggle Groups posts, so any reply may be automatically ignored]
------------------------------
Date: Mon, 16 Dec 2013 07:22:46 +0000
From: Henry Law <news@lawshouse.org>
Subject: Re: Perl Modules and packages
Message-Id: <OKKdndSQbPXaNzPPnZ2dnUVZ8r2dnZ2d@giganews.com>
On 16/12/13 03:11, John Black wrote:
> Unrecognized switch: -E
You worried me there, John; but I checked rapidly and it does work here
on 5.14.2 on Linux ... phew!
Wonder where the OP is; two days and counting.
--
Henry Law Manchester, England
------------------------------
Date: Mon, 16 Dec 2013 08:24:05 +0100
From: "Peter J. Holzer" <hjp-usenet3@hjp.at>
Subject: Re: Perl Modules and packages
Message-Id: <slrnlatako.e8q.hjp-usenet3@hrunkner.hjp.at>
On 2013-12-16 03:11, John Black <jblack@nospam.com> wrote:
> In article <ObCdnbohjLWcrzHPnZ2dnUVZ8oidnZ2d@giganews.com>, news@lawshouse.org says...
>> On 14/12/13 08:38, nraju531@gmail.com wrote:
>> > i want to know the were the perl modules and packages are in perl
>>
>> Not sure I understand your question. Perl comes with a large set of
>> "standard modules", which are installed in system libraries when you
>> install Perl. You can find out what they are by typing
>>
>> perl -lE "print for @INC"
>>
>
> This sounded interesting. So I ran it on my system and got:
>
> perl -lE "print for @INC"
> Unrecognized switch: -E (-h will show valid options).
>
> -ver reveals that v5.8.8 is installed.
The -E switch was introduced in v5.10. Use -e instead:
perl -le 'print for @INC'
(the difference between -e and -E is that -E enables all current
features, but this simple one-liner doesn't use any, so there is no
difference in this case)
I'm not sure whether that answers the OP's question, though.
hp
--
_ | Peter J. Holzer | Fluch der elektronischen Textverarbeitung:
|_|_) | | Man feilt solange an seinen Text um, bis
| | | hjp@hjp.at | die Satzbestandteile des Satzes nicht mehr
__/ | http://www.hjp.at/ | zusammenpaßt. -- Ralph Babel
------------------------------
Date: Mon, 16 Dec 2013 07:53:52 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Perl Modules and packages
Message-Id: <1a8ua9l4p9satatc9l66c616bi9jd9raj2@4ax.com>
"Peter J. Holzer" <hjp-usenet3@hjp.at> wrote:
>>> On 14/12/13 08:38, nraju531@gmail.com wrote:
>>> > i want to know the were the perl modules and packages are in perl
>>>
> perl -le 'print for @INC'
>
>I'm not sure whether that answers the OP's question, though.
It does.
This command lists all locations, where the Perl interpreter (note the
lower case 'perl' in the OPs question) is looking for modules and
packages.
The real question is if this is what the OP meant to ask. But that is
something only he can answer.
jue
------------------------------
Date: Sun, 15 Dec 2013 09:32:50 -0800 (PST)
From: Alfredo <sistemas.alfredo@gmail.com>
Subject: Re: what are some huge sites with cataalyst? what are biggest perl powered sites in general?
Message-Id: <d6a194fa-600b-44ae-87b2-1d8bb4c495ff@googlegroups.com>
El s=E1bado, 14 de diciembre de 2013 06:18:23 UTC-3, johannes falcone escr=
ibi=F3:
> can someone kik me down this info?
As far as i know amazon still runs a lot of perl, and craigslist is all per=
l.
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 4095
***************************************
