Skip to content
Snippets Groups Projects
Commit be8c7c54 authored by Rike-Benjamin Schuppner's avatar Rike-Benjamin Schuppner Committed by GitHub
Browse files

Fix ARGV input.

parent 4e0efb58
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
examples/perl/multitomaton.pl
+ 3
− 3
View file @ be8c7c54
...@@ -22,10 +22,10 @@ $client->can_connect(); ...@@ -22,10 +22,10 @@ $client->can_connect();
my $red_rule = $ARGV[0]; my $red_rule = $ARGV[0];
$red_rule = int(rand(255)) unless $red_rule; $red_rule = int(rand(255)) unless $red_rule;
my $green_rule = $ARGV[0]; my $green_rule = $ARGV[1];
$green_rule = int(rand(255)) unless $green_rule; $green_rule = int(rand(255)) unless $green_rule;
my $blue_rule = $ARGV[0]; my $blue_rule = $ARGV[2];
$blue_rule = int(rand(255)) unless $blue_rule; $blue_rule = int(rand(255)) unless $blue_rule;
print "Running rules $red_rule (red), $green_rule (green), and $blue_rule (blue) \n"; print "Running rules $red_rule (red), $green_rule (green), and $blue_rule (blue) \n";
...@@ -117,4 +117,4 @@ while(1){ ...@@ -117,4 +117,4 @@ while(1){
sleep 1; sleep 1;
} }
print "Done\n"; print "Done\n";
\ No newline at end of file
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment