You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
222 B
Perl
11 lines
222 B
Perl
5 years ago
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
my @array = (8, 3, 0, 2, 2, 0);
|
||
|
|
for (@array) {
|
||
|
|
if ($_ == 0) {
|
||
|
|
print "Skipping zero element.\n";
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
print "48 over $_ is ", 48/$_, "\n";
|
||
|
|
}
|