Help for this page

Select Code to Download


  1. or download this
    Argument "42 32 22" isn't numeric in multiplication (*) at ./multigear
    +.pl line 19, <STDIN> line 3.
    Argument "11 13 15 17 19 21" isn't numeric in division (/) at ./multig
    +ear.pl line 19, <STDIN> line 3.
    Use of uninitialized value in division (/) at ./multigear.pl line 20, 
    +<STDIN> line 3.
    Illegal division by zero at ./multigear.pl line 20, <STDIN> line 3.
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    use warnings;
    ...
    print "@gear1\n\n";
    print "@gear2\n\n";
    print "@gear3\n\n";