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

[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 tr; print td align=center valign=middle

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(); foreach my $row

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 ] eq

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 data