Re^2: loop problem

There is no loop in this code. I tried it with a submodule. Like this:

#!/usr/bin/env perl

# use strict;
use warnings;
use utf8;
use feature "say";
use Math::Trig;

sub intro {
say "What is the radius?";
our $radius= <STDIN>;
chomp ($radius);
our $a = 2*pi;
our $c = $radius * $a
}

intro();

if ($radius==0) {
   say "circumference= ", $radius;
}

elsif ($radius<0) {
    say "Radius should be greater than 0";
    intro();
}

else {
   say "circumference= ", $c
}
[download]

But you have to switch off the strict command to make it work. And then it still doesn't work like I want it to.

How to create the loop I want?

Comment on Re^2: loop problem Download Code

Replies are listed 'Best First'.
Re^3: loop problem by AnomalousMonk (Archbishop) on Jun 12, 2018 at 19:16 UTC
I tried it with a submodule. In this context, the proper word for "submodule" is "subroutine." Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re^3: loop problem by stevieb (Canon) on Jun 12, 2018 at 17:05 UTC
What error does `strict` throw? Works fine for me as-is on 5.26.1. Anyway, here's an example of how to get what you want: `my $radius = -1; until ($radius >= 0){ say "What is the radius?"; $radius= <STDIN>; chomp ($radius); say "radius must be >= 0. Try again..."; }` [download]	[reply] [d/l] [select]
Re^4: loop problem by WisDomSeeKer34 (Sexton) on Jun 12, 2018 at 17:13 UTC
Regarding your question: if I run the program with the submodule with strict, I get this output: Variable "$radius" is not imported at circum1.pl line 19. Variable "$radius" is not imported at circum1.pl line 20. Variable "$radius" is not imported at circum1.pl line 23. Variable "$c" is not imported at circum1.pl line 30. Global symbol "$radius" requires explicit package name (did you forget + to declare "my $radius"?) at circum1.pl line 19. Global symbol "$radius" requires explicit package name (did you forget + to declare "my $radius"?) at circum1.pl line 20. Global symbol "$radius" requires explicit package name (did you forget + to declare "my $radius"?) at circum1.pl line 23. Global symbol "$c" requires explicit package name (did you forget to d +eclare "my $c"?) at circum1.pl line 30. Execution of circum1.pl aborted due to compilation errors. [download] And thank you for answering my question.	[reply] [d/l]
Re^5: loop problem by stevieb (Canon) on Jun 12, 2018 at 17:18 UTC
If you're getting those errors/warnings, then the code you posted isn't the code you're running I don't suspect. The only issue that I see with syntax is a missing semi-colon after `say "circumference= ", $c` If that doesn't fix things, please post the actual code you're using.	[reply] [d/l]
Re^6: loop problem by WisDomSeeKer34 (Sexton) on Jun 12, 2018 at 17:33 UTC
Re^7: loop problem by poj (Abbot) on Jun 12, 2018 at 18:05 UTC
Some notes below your chosen depth have not been shown here
Re^7: loop problem by stevieb (Canon) on Jun 12, 2018 at 18:03 UTC