初めてのPerl 第4章 ~4.6 サブルーチンの中でプライベートな変数~

my演算子を用いることでレキシカル変数(プライベート変数)となる。
囲み{}の中でのみ有効となる。

サンプル：サブルーチンの中でレキシカル変数を使用してみる。

　　#! /usr/bin/perl -w

　　print "input num1";
　　chomp($num1=);

　　print "input num2";
　　chomp($num2=);

　　$max = &sub_max($num1,$num2);

　　print "Max is $max \n";
　
　　sub sub_max{
　　　　my($a,$b)=@_;
　　　　if($a>$b){
　　　　　　return $a;
　　　　}else{
　　　　　　return $b;
　　　　}
　　}