Re: log for script

2008-04-18 Thread Alan C
On Wed, Apr 16, 2008 at 11:58 PM, <[EMAIL PROTECTED]> wrote: > > 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: internal Perl sc

Re: RE: setting unix command through perl script

2008-04-18 Thread Chas. Owens
On Sat, Apr 19, 2008 at 12:14 AM, Mike Flannigan <[EMAIL PROTECTED]> wrote: > > What ever happened to trimming the posts to a reasonable > number of quoted messages? In the old days regulars > would have made your life miserable for this kind of > transgression. I guess since this is a beginn

Re:Re: CSV duplicate

2008-04-18 Thread Jeff Pang
=Original Message= >From :[EMAIL PROTECTED]; >To :John W. Krahn <[EMAIL PROTECTED]>; >Cc :Perl Beginners ; >Date:Fri Apr 18 13:51:58 CST 2008 >Subject:Re: CSV duplicate > >I haven't seen hash used in this format. >$data{ $val1 }{ $val2 }++; Can yor please tell what this means? > It's

Re: RE: setting unix command through perl script

2008-04-18 Thread Mike Flannigan
What ever happened to trimming the posts to a reasonable number of quoted messages? In the old days regulars would have made your life miserable for this kind of transgression. I guess since this is a beginners list we are much more tolerant nowadays. Mike On Thu, 17 Apr 2008, [EMAIL PROTEC

Re: installing Text-Balanced module

2008-04-18 Thread Gunnar Hjalmarsson
Sharan Basappa wrote: I downloaded version and installed it. That went smoothly. When I go back to text-balanced installation, it still does not seem to locate version.pm I think it's advisable to follow the recommendation in perldoc -q "own module" and use both the PREFIX and LIB option

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

2008-04-18 Thread Rob Dixon
Paul Nickerson 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 > dbt0002sfg > ... > dbt0034sfg > ... > dbt2601sfg > ... > > I thin

Re: installing Text-Balanced module

2008-04-18 Thread Rob Dixon
Sharan Basappa wrote: > On Thu, Apr 17, 2008 at 9:17 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: >> >> 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

Re: new Thread cannot work

2008-04-18 Thread happytown277
Sorry for these line: "It show me this information below after I run the code: " " I test the code under Linux, but the result is ways:" They should be: "It shows me this information below after I run the code: " "I test the code under Linux, but the result is aways: " -- To uns

Re: Installing DBD::mysql??

2008-04-18 Thread Josh Miller
sanket vaidya wrote: 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

Re: installing Text-Balanced module

2008-04-18 Thread Sharan Basappa
On Thu, Apr 17, 2008 at 9:17 PM, Chas. Owens <[EMAIL PROTECTED]> wrote: > > > 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 > > T

Re: new Thread cannot work

2008-04-18 Thread Chas. Owens
On Thu, Apr 17, 2008 at 9:32 PM, <[EMAIL PROTECTED]> wrote: > Hi, buddies. > The code below can't work on my WindowsXP with SP2: snip > It show me this information below after I run the code: > "Undefined subroutine &threads::new called at E:\test\learnperl > \thread.pl line 15." > > A

Re: CSV duplicate

2008-04-18 Thread John W. Krahn
[EMAIL PROTECTED] wrote: From: "John W. Krahn" <[EMAIL PROTECTED]> This should be close to what you want: my %data; while ( ) { chomp; for ( map [ split /=/ ], ( split /\s*,\s*/ )[ 0, -1 ] ) { $data{ $_->[ 0 ] }{ $_->[ 1 ] }++; } } for my $type (