so just to put it out there for my ideas to run more perl scripts at
work using modules that I cannot install(whether due to lack of
knoweldge or just don't have
the right)..

at work, we have a solaris based unix server(lets say serverK) which is
being served as central logon for all the daily tasks.
I don't have root right and I have tried many things to install some
modules that I wanted to run(DBI,Expect among other things) but could no
make it work..
I also have list of linux machine behind serverK, called linux1-4 which
btw cannot reach any of other servers out
there(server1/server2/server3.........etc)
I DO have root right in linux machines and I am installing all the
modules that I know I want to use..

Going from RPM 5.6 to 5.8 source. Is there a thorough cookbook on
this? I've been poking around the web to no avail.

Hi there,
can somebody convert the following perl code to C++

sub OleUnpackPackages {
my($this, $explodeinto, $parentname, @NativeFilenames) = @_;

my($infh, $byte, $number, $buffer, $outname);
my($finished);

OLEFILE: foreach my $inname (@NativeFilenames) {
$byte = "";
$buffer = "";
close $infh if $infh;
$infh = new FileHandle;
sysopen $infh, "$explodeinto/$inname", O_RDONLY; sysseek...

Currently I own a 'learning perl' 3rd edition and I noticed that 5th
version is coming out in june.
What I didn't realize was that learning perl 4th edition's been out
since 2005.

I was going to order 5th version in june but does anyone in here know
the different between 3rd and 4th version?
Is there a big difference?

anthony brooke wrote:

Because extended threads become very hard to read if they're top-posted. Making
tidy posts about a programming language that may include embedded code is hard
to do anyway, and if they have to be read from the end backwards it makes them
even less likely to be understood. You should remove all sigs and salutations
and anything that's irrelevant to your own post. Each of us is responsible for
the formatting of all that we quote as well as our own material, and all posts
should make sense in isolation if read from the beginning to the end.

Thanks for the reply, it's a dynamic server side script that currently using CGI, but I am going for mod_perl. The interface is something like Google, so everytime the user make a request to lookup let's say the meaning of a word, the WordNet object have to be initialized. Is there a work around of this with mod_perl ? Thanks

----- Original Message ----
From: Rob Dixon gmx.com>
To: beginner perl mailling list perl.org>
Cc: anthony brooke yahoo.com>
Sent: Saturday, May 17, 2008 0:47:52
Subject: Re: Initialize object permanently

anthony brooke wrote:

On Thu, May 15, 2008 at 3:45 PM, Dr.Ruud wrote:

You have been helpful in the past so please be so kind to point out
the *bad Advice*... Just saying it's bad really helps no one on a
"beginners" list. The way I see it, people will read that information,
begin to code with it, then when they run into problems they come here
only to be chastised by using such examples. Why not end that loop by
good examples?

-

Horray, Horray! I agree with all stated here. I have been doing Perl for seven years now and still consider myself a beginner at many concepts.

Hi all,

How to comment Multiple lines in Perl?

Thanks,
Siva

Hello, I am using Wordnet::QueryData which allow access to a very huge dictionary data. The initialization of object
my $wn = WordNet::QueryData->new;

took
2 wallclock secs ( 2.36 usr + 0.07 sys = 2.43 CPU)

Then the subsequent request for the data is exetremely fast

For the lines below took
0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU)

print "Synset: ", join(", ", $wn->querySense("cat#n#7", "syns")), "\n";
print "Hyponyms: ", join(", ", $wn->querySense("cat#n#1", "hypo")), "\n";
print "Parts of Speech: ", join(", ", $wn->querySense("run")), "\n";
print "Senses: ", join(", ", $wn->querySense("run#v")), "\n";
print "Forms: ", join(", ", $wn->validForms("lay down#v")), "\n";
print "Noun count: ", scalar($wn->listAllWords("noun")), "\n";
print "Antonyms: ", join(", ", $wn->queryWord("dark#n#1", "ants")), "\n";

I
am developing a web application, is there a way to make the
initialization of object permanently in memory ? I tried to use the
Storable module. But that only give me a little increase in
performance. Anybody's idea is very much appreciated, Thank you.

Hi,
here is a problem I'm working on. It's not PERL-specific, rather it is a
problem in sorting followed by grouping.
Suppose I have a set of lines that have tab-delimited text, thus:
1 w 3 wer
2 a 4 rte
4 w 2 weg
6 d 4 fhg
5 d 7 dfl
6 w 4 ald
8 a 3 dsl

I would like to first sort the lines based on the 2nd token (w,a, w, d, etc)
and then group the lines based on the 2nd token.

At the end of this sorting/grouping I should have the lines grouped thus:
2 a 4 rte
8 a 3 dsl

6 d 4 fhg
5 d 7 dfl