Subroutine & For loop

[Anonymous Monk]

Dear Monks, I would like to call a subroutine repeatedly based on a condition from a for loop and each time pass different parameters. My code is calling the subroutine only the first time. I am not sure which is the correct format to call a subroutine from a for loop. Please help. Thank you!

[roboticus]

Here's a trivial example:

sub doit {
   my ($arg1, $arg2) = @_;
   print "$arg1 squared is $arg2\n";
}

for (0 .. 10) {
   doit( $_, $_*$_);
}

...roboticus

When your only tool is a hammer, all problems look like your thumb.

[LanX]

To be able to help you, you need to show us first what you tried.

Please put it within code tags...

[Anonymous Monk]

Read perlintro and post your code

[Laurent_R]

A oneliner example:

$ perl -e 'for my $c (1..10) {print_square($c)}; sub print_square{my $
+d = shift; print $d*$d, "\n";}'
1
4
9
16
25
36
49
64
81
100

[tbone654]

see module switch::plain , if I understand the question properly it should help...

[LanX]

> if I understand the question properly

Don't feed the cryptic! ;-)