Added Perl Seed Script ! issue #4

[sdeseille]

Hi

Please find the Perl Seed Script.
Say me if it is Ok for you.

regards

[mkasberg]

Good work! 👍 Looks like the build is failing because you need to run chmod +x seeds/perl_seed.pl.

I'll give it a merge once the tests pass.

[mkasberg]

Can you use a named argument rather than shift? You defined $type up on line 10 but never used it.

[sdeseille]

In fact "shift" get the first argument pass to function call.
At line 21 there is main program with function call and use of $type.

Write your code below

if ($water){
water_the_plant(${type}) ;
}
else {
plant_a_seed(${type});
}

But i understand why you don't find $type. I wrote it ${type}. I change that in same time as i add usage in help message.

[mkasberg]

You may need to include the word usage in the output here to get the tests to pass.

[sdeseille]

ok thank,
I add it very soon.

regards

[mkasberg]

These lists are in alphabetical order. Not a big deal - I'll merge it and rearrange them.

[mkasberg]

Rather than doing this, I've just been checking all the scripts into Git with the x bit set. Again, not a big deal.