Programming

use strict;

print "this is just a test", "\n";
MAIN_LOOP1:
print "please enter the first number between 1 and 100", "\n";
my $X = <>;
chomp($X);
for $X (1 .. 100)
{
	print "now onto the next step", "\n";
	else
	{
		print " the number does not meet the above requirment", "\n";
		next MAIN_LOOP1;
	}
}
MAIN_LOOP2:
print "please enter the second number between 1 and 100", "\n";
my $Y = <>;
chomp($Y);
for $Y (1 .. 100)
{
	print "now onto the calculations", "\n";
	else
	{
		print " the number does not meet the above requirment", "\n";
		next MAIN_LOOP2;
	}
}
print $X, " * ", $Y, " = ", ($X*$Y), "\n";
print "Finding the module" . "\n";
print $X, " % ", $Y, " = ", ($X%$Y), "\n";
print "Terminate", "\n";

c:\Strawberry\SCRIPTS>perl new.pl
syntax error at new.pl line 11, near "else"
syntax error at new.pl line 16, near "}"
syntax error at new.pl line 24, near "else"
syntax error at new.pl line 29, near "}"
Execution of new.pl aborted due to compilation errors.

#!/usr/bin/perl
use strict;
use warnings;

print "This is just a test\n";
MAIN_LOOP1:
print "Please enter a FIRST number, between 1 and 100: ";
my $X = <>;
chomp $X;
goto MAIN_LOOP1 unless $X =~ /^[1-9][0-9]?$|^100$/;
print "Now, onto the next step...\n";
MAIN_LOOP2:
print "Please enter a SECOND number, between 1 and 100: ";
my $Y = <>;
chomp $Y;
goto MAIN_LOOP2 unless $Y =~ /^[1-9][0-9]?$|^100$/;
print "Now, onto the calculations...\n";
printf "$X * $Y = %d\n", $X*$Y;
print "Finding the modulus\n";
printf "$X %% $Y = %d\n", $X%$Y;
print "Test finished!\n";

#!/usr/bin/perl

use strict;
use warnings;
use Scalar::Util qw(looks_like_number);

print "This is just a test\n";
my ($X, $Y);
FIRSTN:
print "Please, enter a FIRST number, between 1 and 100: ";
# Process user input
chomp($X = <>);
# Check for a valid input
if((looks_like_number($X)) && $X >= 1 && $X <= 100) {
    # User did enter a valid input continue with test
    goto SECONDN;
}
else {
    # User did not enter valid input
    goto FIRSTN;
}
SECONDN:
print "Please, enter a SECOND number, between 1 and 100: ";
chomp($Y = <>);
# Using another way of checking that the number range is valid
# Repeat as long is not a valid number
goto SECONDN unless (looks_like_number($Y) && $Y >= 1 && $Y <= 100);
# Format evaluation using printf and not print
printf "Test for multiplication\n$X * $Y = %d\n", $X*$Y;
printf "Test for modulus\n$X %% $Y = %d\n", $X%$Y;
print "Test is finished!\n";

#!/usr/bin/perl
use strict;
use warnings;

my ($X, $Y);
my @range = (1, 100);

$X = ask_number();

print "Now, onto the next step\n";

$Y = ask_number();

printf "$X * $Y = %d\n", $X * $Y;
printf "$X %% $Y = %d\n", $X % $Y;
print "Test finished!";

sub check_number {
    use Scalar::Util qw(looks_like_number);
    my $num = shift;
    looks_like_number($num) && $num >= $range[0] && $num <= $range[1];
}

sub ask_number {
    my $n;
    do {
        print "Please, enter a number, between $range[0] and $range[1], inclusive: ";
        chomp($n = <>);
    } while( not check_number($n) );
    $n;
}