From: David Polakovic Date: Sat, 26 Aug 2023 10:22:47 +0000 (+0200) Subject: corrected code comments and added two new X-Git-Url: https://git.dpolakovic.space/?a=commitdiff_plain;h=6e313a44b7c4d7b6deb15eb2741826c4a967d5c3;p=partition-bacteria corrected code comments and added two new --- diff --git a/cultivate.pl b/cultivate.pl index a7a57ff..bf5ae8a 100644 --- a/cultivate.pl +++ b/cultivate.pl @@ -37,8 +37,8 @@ if($vitality > $used_spc){ close(SRC); close(DES); - # child needs to have its name replaced in line 7 - # this string contains line 7 of this bacteria, except for the name + # child needs to have its name replaced in line 12 + # this string contains line 12 of this bacteria, except for the name my $rpl_text = 'my $src =' . '\'' . $rndname . '\';'; # read newly created bacteria content into an array @@ -62,6 +62,7 @@ if($vitality > $used_spc){ } }else{ # bacteria has not enough place to survive + # UNCOMMENT TO DELETE BACTERIA IF THERE IS NO PLACE ON DISK #unlink("$src"); } @@ -74,6 +75,7 @@ print $fh $DNA; close($fh); # bacteria dies at the end of its life +# UNCOMMENT TO DELETE BACTERIA WHEN FINISHED #unlink("$src");