Perl - スカラー変数

１個の値を格納する変数。スカラー変数は、識別子の前に"$"をつける。識別子に使用できる文字は、英文字・数字・アンダーライン。

$aaa = 3; #
$Aaa = 5; #これら二つは別々の意味
$str = "Hello World!"; #文字列

print "Hello World\n";
print 6 * 7;
print "This", "is" , "the pen"; #コンマで区切って、print識別子に複数の値を渡す事ができる。

ダブルクォート文字列内では、スカラー変数は展開される。スカラー変数に文字列がセットされてない時は、空文字列となる。また、単独変数でprint出力する際は、わざわざダブルクォートで囲む必要はない。

スカラー変数の前後に文字があり、スカラー変数名かどうかがわからない場合がある。perlにスカラー変数を解釈させたい時は、変数をブレースで囲む必要がある。

$str = "Hello";            #文字列
print "$str World!\n";     #文字列の出力
print "$str $kara_str";    #空文字の出力
print "$str";              #単独変数をダブルクォートで囲む
print $str;                #単独変数のときは、この書き方の方が望ましい
print '$str' . "\n";       #シングルクォートだと文字列の展開は行われない
print "$strdayo uhehe\n";  #$strdayoがスカラー変数と解釈される
print "${str}dayo uhehe\n";#$strで変数と解釈される

比較	数値演算子	文字列演算子
等しい	==	eq
等しくない	!=	ne
より小さい	<	lt
より大きい	>	gt
以上	<=	le
以下	>=	ge

ある変数の末尾の改行文字を取り除く。chomp演算子は実際は関数なので値を返す。返す値はとり除いた文字の個数（意味のない。。。）。

$str = "this is a pen\n";
chomp $str;               #()でくくる必要はない。

変数は値がセットされるまでは、未定義値(undef)が設定される。数値の場合は「0」が、文字列の場合は「空文字」として振舞う。

$sum;                    #この時点ではundef
$sum += 1;               #最初は「0」として振舞うので、sumは「1」
$str .= "this is a pen"; #$strは空文字として振舞うから、連結したら「this is a pen」となる
$str = undef;            #未定義値にする

$str;
if (defined($str))
{
  print "undefではありません。";
}
else
{
  print "undefです。";
}

my演算子を使って変数を宣言すると、それらの変数は全てローカル変数(レキシカル変数)化され宣言したブロック内が有効範囲となる。

sub rev_func
{
  my($x, $y);      #my演算子で、レキシカル変数の宣言
  ($x, $y) = @_;   #引数をmy演算子に入れる
  #以下のコードは、上記の2行と一緒
  #my($x, $y) = @_;
  if ($x < $y)
  {
    $x..$y;
  }
  else
  {
    reverse $y..$x;
  }
}
@array = rev_sub(9, 3);

local演算子を使って変数を宣言すると、以前に同じ名前で宣言していた値を一時的にスタックして（以前保持していた値を隠す)、値を入れ替える。その後、local宣言を抜けた際には、一時的にスタックしていた元の値に戻す。

sub max
{
  #local宣言でグローバルな$a, $bの値は格納される。
  #もし、local宣言しない場合は、サブルーチン呼出し後に、$a, $bの値は書き換えられる
  local($a, $b) = @_;
  #以下省略...
}
$a = 3;
$b = 5;
$val = &max(5, 7);

localはサブルーチン内での動作に影響を与える(すなわち、local宣言の変数はグローバル)が、myはサブルーチンの外部からアクセスできない。

$test "global";
&output;          #"global"と出力
&output_local;    #"local"と出力
&output_my;       #"global"と出力
sub output
{
  print "$test";
}

sub output_local
{
  local($test) = "local";
  &output;
}

sub output_my
{
  my($test) = "my";
  &output;
}