From 6e313a44b7c4d7b6deb15eb2741826c4a967d5c3 Mon Sep 17 00:00:00 2001 From: David Polakovic Date: Sat, 26 Aug 2023 12:22:47 +0200 Subject: [PATCH] corrected code comments and added two new --- cultivate.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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"); -- 2.30.2