レキシカル関数について

レキシカル変数について

use strict;
use warnings;

foreach(1..10){
  my($square) = $_ * $_;
  print "$_ squared is $ square  \n";
}

#以下で宣言している岩の名前はforeachの中でしか利用できない。
foreach my $rock(qw/bedrock slate lava/){
  print "One rock is $rock \n";
}

以下が出力の結果となります。

1 squared is 1
2 squared is 4
3 squared is 9
4 squared is 16
5 squared is 25
6 squared is 36
7 squared is 49
8 squared is 64
9 squared is 81
10 squared is 100
One rock is bedrock
One rock is slate
One rock is lava