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