comp.lang.perl.misc Google Group

Re: what is the expression mean?

2008-07-27T02:49:15Z

This expression is defining a hash variable called %month2num; it
expresses the relation between a month and its number. The months are
called the "keys" and the numbers are called "values". For example,
$month2num{"Jan"} would give you the string '01'. The "=>" symbol is
used as a shorthand for this statement:

what is the expression mean?

2008-07-27T02:13:55Z

hi,
I am reading the perl code of Blosxom,
I can not quite catch the meaning of this expressiong:
%month2num = (nil=>'00', Jan=>'01', Feb=>'02', Mar=>'03', Apr=>'04',
May=>'05', Jun=>'06', Jul=>'07', Aug=>'08', Sep=>'09', Oct=>'10', Nov=>'11',
Dec=>'12');
@num2month = sort { $month2num{$a} <=> $month2num{$b} } keys %month2num;

dynamic scoped variables in the debugger

2008-07-27T01:43:11Z

Hi,
I'm running Perl v5.8.8 compiled for linux. I was reading about the perl
debugger and ran the following script with the command "perl -d":
1 #!/ usr/bin/perl
2 $_ = "foo";
3 /foo/;
4
5 print "$&";
6 print "\n";
As expected it prints "foo" before the newline, and if I check the value
of $& in the debugger it does show "foo". However, if I omit line 5 of

FAQ 3.1 How do I do (anything)?

2008-07-27T01:03:02Z

This is an excerpt from the latest version perlfaq3.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at [link] .

Re: FAQ 3.10 Is there an IDE or Windows Perl Editor?

2008-07-26T21:05:02Z

I would suggest adding ConText to this for windows (http://
[link]) I have been using it and am starting to like
it more and more.
Bill H

FAQ 3.10 Is there an IDE or Windows Perl Editor?

2008-07-26T19:03:01Z

How come? RE matches, but does not set $^R

2008-07-26T18:42:26Z

Hi all,
Assume the following REs:
/(B(?:=c*))(?{'got B'})/

/(B(?:=c*)?)(?{'got B'})/

Both expressions match as expected (and set $1), BUT: the second one
does n o t set $^R as it should do.
However, if I say

/(?>(B(?:=c+)?)(?{...})/

i.e. force Perl to eat up anything it matches, $^R is correctly set.

Re: Why stdin lose after new Thread

2008-07-26T15:40:40Z

On Sat, 26 Jul 2008 05:29:00 -0700 (PDT), haomiao <miaoh...@ustc.edu>
wrote:
You don't understand how threads in Perl work very well.
When a thread gets spawned, it gets a copy of it's parent at the time.
This means when you try to dynamically spawn threads, each previous
thread gets a copy of previous ones, and memory usage of the app tends

Re: EPIC and "my" variables

2008-07-26T13:28:48Z

I gave up on Ubuntu and jumped accross to Vista to develope. Had a
couple of problems which I had to over come. First - Activestate 5.10
has got a couple of library problems, PadWalker and DBD::mysql are not
normally available for it. I had to specify full paths to repositories
for both:
ppm install [link]

FAQ 3.30 What's MakeMaker?

2008-07-26T13:03:03Z

Why stdin lose after new Thread

2008-07-26T12:29:00Z

Hi
When I create a new thread, the main thread cannot get input from
<>.
The code is like
------------------------------ -----------------
while ( $line = <STDIN> ) {
chomp $line;
execCmdLine($line);
print "pp> ";
------------------------------ ------------------
In the execCmdLine function, if $line eq 'conn', a new thread is

Re: Perl - approach to query https website for code & parsing xml response

2008-07-26T12:23:44Z

Reposting back to clpmisc, it'll probably help someone else. Site
changed to preserve anonymity ;)
I realized that what you're trying to do is to POST data to what looks
like a Web Service (in particular, a SOAP/XMLRPC-like service, except it
doesn't make an envelope;) we're using the wrong tool for the job.

FAQ 4.37 What's wrong with always quoting "$vars"?

2008-07-26T07:03:01Z

This is an excerpt from the latest version perlfaq4.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at [link] .

Re: How to match () pairs

2008-07-26T06:16:28Z

>> I would like to match
TJM> Then you should type:
TJM> perldoc -q match
TJM> How do I find matching/nesting anything?
>> a pattern such as
>> something( something_1( something_2( ...
>> (something_n)...)something_els e_2)something_else_1)
>>
>> , where all the brackets pair up and there could be any number of

FAQ 4.20 How do I unescape a string?

2008-07-26T01:03:02Z