Re: Query regarding Parallel::ForkManager

2012-03-30 Thread Dr.Ruud
On 2012-03-30 11:14, punit jain wrote: my $file = "/tmp/test"; die "\n Killed as filed doesnot exist \n" if(-e $file); It looks like you have to reverse your test. -e $file or die "[$$] exit early because '$file' doesn't exist\n"; But why even start a child, if its d

Re: [question] array

2012-03-30 Thread Dr.Ruud
On 2012-03-30 12:33, Eko Budiharto wrote: I would like to ask about 2 dimensional array Each element of a Perl array is a scalar. my @colors = ( "red", "white", "blue" ); which can also be written as: my @colors = qw( red white blue ); and can be used as: print "ok" if $colors[ 2

RE: [question] array

2012-03-30 Thread Ken Slater
> -Original Message- > From: Eko Budiharto [mailto:eko.budiha...@gmail.com] > Sent: Friday, March 30, 2012 6:33 AM > To: beginners@perl.org > Subject: [question] array > > hi list, > I would like to ask about 2 dimensional array > > my code: > my $ref = $sth->fetchall_arrayref(); > foreac

[question] array

2012-03-30 Thread Eko Budiharto
hi list, I would like to ask about 2 dimensional array my code: my $ref = $sth->fetchall_arrayref(); foreach my $row (@$ref) { ( $KODE_UNIT, $KODE_BAGIAN, $NIK, $TANGGAL ) = @$row; @row = @$row; push(@array_2d, @row ); print ""; print "width=>@array_2d[0][0]@array_2d[0][1]@array

Query regarding Parallel::ForkManager

2012-03-30 Thread punit jain
Hi , I am using ForkManager module for multiprocessing in my code below : - use Parallel::ForkManager; $pm = new Parallel::ForkManager($MAX_PROCESSES); foreach $data (@all_data) { # Forks and returns the pid for the child: my $pid = $pm->start and next; ... do some work with $d