new Thread cannot work

2008-04-17 Thread happytown277
Hi, buddies. The code below can't work on my WindowsXP with SP2: === #!/usr/bin/perl use Thread qw/async yield/; my $var = 0; sub abump { lock $var; if ($var == 0) { yield; $var++

Installing DBD::mysql??

2008-04-17 Thread sanket vaidya
Hi, I cannot instead module using ppm or MCPAN (office proxy wont allow me to do this) & I have never installed a perl module manually. I am installing DBD::mysql module. When I get into the module directory & type "perl makefile.pl" I get error as below: Failed to determine directory of my

Re: CSV duplicate

2008-04-17 Thread manojkumarg
I haven't seen hash used in this format. $data{ $val1 }{ $val2 }++; Can yor please tell what this means? It worked for me.. I was also trying with exists command which returns boolean value. Thanks all. - Original Message - From: "John W. Krahn" <[EMAIL PROTECTED]> Date: Thursday, Apri

Re: Substitute Variably hort string into long string at Right Justified possition

2008-04-17 Thread Paul Nickerson
Gah, they're both so simple! And they both work :) Time to kick myself twice... Well, I never knew sprintf had a pad with zero's thing, and forgot that it even had pad with spaces. And I didn't know Perl could iterate a string like that. It seems intelligent (like AI kind of intelligent), but dang

Re: Concatenate similar data in array

2008-04-17 Thread Rob Dixon
anthony brooke wrote: > Hello, my logic is really bad, here is I want to do. > > my @list = qw(a b a a d e e ); > > I want to compact the array by concatenating the adjacent vowels and > consonant together, like for the above it should become, > > my @list2 = qw(ab aa d ee); > > How do I get

Re: installing Text-Balanced module

2008-04-17 Thread Chas. Owens
On Apr 17, 2008, at 11:41, Sharan Basappa wrote: PREREQ_PM => { 'Test::More' => 0, 'version'=> 0, }, snip So, that means I have to install this module? Regards snip That means that both Test::More and version must be installed. You check to see if a module is inst

Re: installing Text-Balanced module

2008-04-17 Thread Sharan Basappa
On Thu, Apr 17, 2008 at 9:07 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Thu, Apr 17, 2008 at 11:34 AM, Sharan Basappa > > <[EMAIL PROTECTED]> wrote: > > > > On Thu, Apr 17, 2008 at 8:41 PM, Gunnar Hjalmarsson <[EMAIL PROTECTED]> > > wrote: > > > Sharan Basappa wrote: > > > > > > > I am

Re: installing Text-Balanced module

2008-04-17 Thread Sharan Basappa
unfortunately the server I am trying to install the module is not connected to net. Regards On Thu, Apr 17, 2008 at 9:05 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > On Thu, Apr 17, 2008 at 10:57 AM, Sharan Basappa > <[EMAIL PROTECTED]> wrote: > > I am installing Text-Balanced module locally. >

Re: installing Text-Balanced module

2008-04-17 Thread Chas. Owens
On Thu, Apr 17, 2008 at 11:34 AM, Sharan Basappa <[EMAIL PROTECTED]> wrote: > On Thu, Apr 17, 2008 at 8:41 PM, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote: > > Sharan Basappa wrote: > > > > > I am installing Text-Balanced module locally. > > > perl Makefile.PL .. step does not complete. > > >

Re: installing Text-Balanced module

2008-04-17 Thread Chas. Owens
On Thu, Apr 17, 2008 at 10:57 AM, Sharan Basappa <[EMAIL PROTECTED]> wrote: > I am installing Text-Balanced module locally. > perl Makefile.PL .. step does not complete. snip > This looks like a dependency issue. Can someone tell me what module > should I be installing before I can > install Te

Re: installing Text-Balanced module

2008-04-17 Thread Sharan Basappa
On Thu, Apr 17, 2008 at 8:41 PM, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote: > Sharan Basappa wrote: > > > I am installing Text-Balanced module locally. > > perl Makefile.PL .. step does not complete. > > > > It bails out with the foll. error: > > Warning: prerequisite version 0 not found. > > >

Re: installing Text-Balanced module

2008-04-17 Thread Gunnar Hjalmarsson
Sharan Basappa wrote: I am installing Text-Balanced module locally. perl Makefile.PL .. step does not complete. It bails out with the foll. error: Warning: prerequisite version 0 not found. This looks like a dependency issue. Can someone tell me what module should I be installing before I c

installing Text-Balanced module

2008-04-17 Thread Sharan Basappa
I am installing Text-Balanced module locally. perl Makefile.PL .. step does not complete. It bails out with the foll. error: Warning: prerequisite version 0 not found. Could not eval ' package ExtUtils::MakeMaker::_version; no strict; local $VERSION;

Re: algorithm/permute.pm

2008-04-17 Thread Sharan Basappa
On Thu, Apr 17, 2008 at 7:37 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > > On Apr 17, 2008, at 10:03, Sharan Basappa wrote: > snip > > > > $perl Makefile.PL PREFIX=/u/basappas/local/perl/perm_install > > > snip > > Try > > use lib "/u/basappas/local/perl/perm_install/lib/perl5/site_perl"; > >

Re: CGI serverpush??

2008-04-17 Thread Gunnar Hjalmarsson
sanket wrote: On Apr 16, 6:28 pm, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: Try setting the -nph parameter to a false value. do_push ( -next_page => \&refresh, -last_page => \&done, -nph => 0, ); See http://search.cpan.org/perldoc?CGI::Push#INSTALLING_C

Re: algorithm/permute.pm

2008-04-17 Thread Chas. Owens
On Apr 17, 2008, at 10:03, Sharan Basappa wrote: snip $perl Makefile.PL PREFIX=/u/basappas/local/perl/perm_install snip Try use lib "/u/basappas/local/perl/perm_install/lib/perl5/site_perl"; -- Chas. Owens wonkden.net The most important skill a programmer can have is the ability to read. -

Re: algorithm/permute.pm

2008-04-17 Thread Sharan Basappa
On Thu, Apr 17, 2008 at 1:26 AM, Rob Dixon <[EMAIL PROTECTED]> wrote: > Sharan Basappa wrote: > > Rob, > > > > I replied to Chas' mail with steps I have followed to install the module. > > I have also tried omitting Algorithm to PREFIX, but that does not help. > > > > perl Makefile.PL PREFIX=

Re: Concatenate similar data in array

2008-04-17 Thread Jenda Krynicky
Date sent: Wed, 16 Apr 2008 21:47:20 -0700 (PDT) From: anthony brooke <[EMAIL PROTECTED]> Subject:Concatenate similar data in array To: beginner perl mailling list > Hello, my logic is really bad, here is I want to do. > > my @l

Re: Substitute Variably hort string into long string at Right Justified possition

2008-04-17 Thread Jenda Krynicky
From: Paul Nickerson <[EMAIL PROTECTED]> > In short, I'm looking to do this: integer 4 -> string dbt0004sfg, and > integer 287 -> string dbt0287sfg. $filename = sprintf "dbt%04dsfg", $number; Jenda = [EMAIL PROTECTED] === http://Jenda.Krynicky.cz = When it comes to wine, women and song, w

Re: log for script

2008-04-17 Thread Chas. Owens
On Thu, Apr 17, 2008 at 2:58 AM, <[EMAIL PROTECTED]> wrote: > Hi All, > > Is there any mechanism where I can take the log of entire Perl script. I > mean to say that I need the log of each and every step which I am doing > in Perl script. That step may include > > 1: input from user > > 2: in

Re: Substitute Variably hort string into long string at Right Justified possition

2008-04-17 Thread Chas. Owens
On Thu, Apr 17, 2008 at 4:14 AM, Paul Nickerson <[EMAIL PROTECTED]> wrote: > In short, I'm looking to do this: integer 4 -> string dbt0004sfg, and > integer 287 -> string dbt0287sfg. > > And now in long, I want to iterate through creating strings to print > the bellow: > dbt0001sfg > dbt0002sf

Re: setting unix command through perl script

2008-04-17 Thread Chas. Owens
On Thu, Apr 17, 2008 at 7:28 AM, Martin Barth <[EMAIL PROTECTED]> wrote: > if you're trying to set just a environment variable for the perl script > then you can do (in your shell): > > > $ export CCASE_NO_FILE_HEADER=yes > > $ perl /home/m.belgaonkar/merge_latest.pl > > if you want to set the v

RE: setting unix command through perl script

2008-04-17 Thread Martin Barth
if you're trying to set just a environment variable for the perl script then you can do (in your shell): $ export CCASE_NO_FILE_HEADER=yes $ perl /home/m.belgaonkar/merge_latest.pl if you want to set the variable for another task (in your perl code): #!/usr/bin/perl use strict; ..your perl code

Re: CGI serverpush??

2008-04-17 Thread sanket
On Apr 16, 6:28 pm, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > sanket vaidya wrote: > > Kindly go through the code below. > > > > > use CGI::Push qw(:standard); > > > do_push(-next_page=>\&refresh, > > -last_page=>\&done); > > > > > When I run this code typing "http://localhost/p

RE: setting unix command through perl script

2008-04-17 Thread Irfan.Sayed
Thanks for your reply. I have run the command like this -> qx(CCASE_NO_FILE_HEADER=yes perl /home/m.belgaonkar/merge_latest.pl) bash: syntax error near unexpected token `qx(CCASE_NO_FILE_HEADER=yes' [EMAIL PROTECTED] ():/view/m.belgaonkar_oms_test/vob/oms [320] Please help. Regards, Irfan

RE: setting unix command through perl script

2008-04-17 Thread Martin Barth
hi, you could do something like that: qx(CCASE_NO_FILE_HEADER=yes /path/to/your/task); this would set the variable only for this task. HTH, Martin On 11:48:35 17/04/2008 <[EMAIL PROTECTED]> wrote: > Thanks for your help. > > Actually , I am automating one task in Perl in which this command is

Substitute Variably hort string into long string at Right Justified possition

2008-04-17 Thread Paul Nickerson
In short, I'm looking to do this: integer 4 -> string dbt0004sfg, and integer 287 -> string dbt0287sfg. And now in long, I want to iterate through creating strings to print the bellow: dbt0001sfg dbt0002sfg ... dbt0034sfg ... dbt2601sfg ... I think what I'm looking for is a regular expression to

Re: Perl Modules

2008-04-17 Thread Monty
I see that there are instructions for installing the module on the CPAN website. Sorry to have bothered anyone. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

RE: setting unix command through perl script

2008-04-17 Thread Irfan.Sayed
Thanks for your help. Actually , I am automating one task in Perl in which this command is there. If I don't execute this command then entire task would fail. So it's very important that I should set this variable with proper value and then start the execution of the task. Regards, Irfan -O

RE: setting unix command through perl script

2008-04-17 Thread Martin Barth
Hi, maybe yes. why do you need this variable to be set/changed? tell us some more about your objectives, please. Regards Martin On 11:25:01 17/04/2008 <[EMAIL PROTECTED]> wrote: > Hi, > > OK. Thanks. > > IS there any other mechanism to achieve this?? > > Regards, > Irfan > > -Original Messag

RE: setting unix command through perl script

2008-04-17 Thread Irfan.Sayed
Hi, OK. Thanks. IS there any other mechanism to achieve this?? Regards, Irfan -Original Message- From: Martin Barth [mailto:[EMAIL PROTECTED] Sent: Thursday, April 17, 2008 1:01 PM To: beginners@perl.org Subject: RE: setting unix command through perl script Hi your "command" is execu

RE: setting unix command through perl script

2008-04-17 Thread Martin Barth
Hi your "command" is executed. it changes the environment of the shell you spawn with qx(); but after this statement your shell dies and it seems that nothing happend.. it is simply impossible to change the environment of a parent when you're a child. maybe you can add this line to your shell co

RE: setting unix command through perl script

2008-04-17 Thread Irfan.Sayed
I want to execute "export CCASE_NO_FILE_HEADER=yes" command in Perl script. If I run this command on bash prompt then it is executing properly but if I try to execute this command through perl script then it is not executing at all How should I achieve this . is there any another way. Please help