Perl › 数値 › 数値と文字列の自動変換 Perlでは、文字列と数値の自動変換が暗黙的に行われます。C言語やJavaのように明示的に文字列と数値の変換を行う必要がないので、スクリプトの記述が非常に楽です。 my $num1_str = "100"; my $num1 = 100; my $num1_total = $num1_str + $num1; 文字列である"100"は数値として使用されると100に自動変換されて計算されます。 Perlがどのように文字列を数値として解釈するかを解説します。 my $num2_str = "34A11"; "34A11"は数値として使用されると34に変換されます。先頭から続く数値の部分が数値に変換されます。 use warnings; を記述しておくと数値だけで構成されない文字列を数値として使用しようとすると警告が行われます。 空文字列"" は、

Perl › 演算子 › 算術演算子 › here べき乗を求めるにはべき乗演算子「**」を使用します。 my $two_power_num = 4 ** 2; べき乗を求めるには、** 演算子を使います。べき乗とは、同じ数を複数回かける演算のことです。 サンプルプログラム べき乗を求めるサンプルプログラムです。 use strict; use warnings; # べき乗を求める。 print "1: べき乗を求める。\n"; my $num = 4; my $two_power_num = 4 ** 2; print "$numの2乗は$two_power_numです。\n"; Perl › 演算子 › 算術演算子 › here

Perl › 演算子 › here Perlで四則演算を行うための算術演算子について解説します。 加算 足し算を行うには加算演算子「+」を使用します。 # 足し算 my $add = 1 + 1; 減算 引き算を行うには減算演算子「-」を使用します。 # 引き算 my $sub = 9 - 1; 乗算 掛け算を行うには、乗算演算子「*」を使用します。 # 掛け算 my $multi = 5 * 4; 除算 割り算を行うには除算演算子「/」を使用します。 # 割り算 my $div = 9 / 4; 割り算の答えは割り切れないときは小数になります。 簡略な記述による4則演算 自分自身に対して4則演算を行いたいときは簡略な記述方法があります。 # $add = $add + 3 と同じ $add += 3; # $sub = $sub - 5 と同じ $sub -= 5; # $multi =

Perl › 数値 › here 2進数、8進数、16進数での数値の表現を解説します。 2進数 0b を先頭につけると2進数で数値を指定できます。 my $num_bin = 0b1111; 8進数 0を先頭につけると8進数で数値を指定できる。 my $num_oct = 0777; 16進数 0x を先頭につけると16進数で数値を指定できる。 my $num_hex = 0xFFFF; 10進数を2進数、8進数、16進数の出力 2進数、8進数、16進数で出力したい場合は、printf関数でフォーマット指定を行い出力します。%bで2進数、%oで8進数、%xで16進数(小文字)、%Xで16進数(大文字) で出力できます。 # %b で2進数表示で出力 printf("\$num_bin = %b\n", $num_bin); # %o で8進数表示で出力 printf("\$num_oct

Perl › 構文 › here ソースコード上での数値の表現を数値リテラルといいます。数値リテラルは次の表記が可能です。 整数 クオートやダブルクオートで囲まれていない数字は、Perlによって数値リテラルとして解釈されます。 my $num1 = 1; # 負の数 my $num2 = -1; 桁区切りの表現 数値リテラル中でアンダーバーが含まれていた場合は無視されます。1_000_000 と 1000000 という表記は等価です。アンダーバーは、大きな数値を読みやすくするために使用することができます。 # _ を桁区切りとして利用できる。 my $num3 = 1_000_000; 小数(浮動小数点) .(ドット)が含まれると、小数として解釈されます。数学での表記と同じです。Perlの少数は倍精度浮動小数点です。 # 小数点 my $num4 = 1.33; 少数の指数表記 少数の数値

Perl › サブルーチン › here サブルーチンの定義は、スコープの影響を受けません。 { sub func { return 2; } } my $ret = func(); サブルーチンは、スコープの影響を受けません。一見すると、funcは、スコープの外では、見えないものと思ってしまいがちですが、そうなりません。 サブルーチンの定義は、コンパイル時に、シンボルテーブルというものに登録されます。シンボルテーブルは、プログラムのどこからでも参照することができるため、サブルーチンも、プログラムのどこからでも参照できます。 サンプル サブルーチンの定義はスコープの影響を受けないことを理解するサンプルです。 use strict; use warnings; # サブルーチンの定義とスコープ # サブルーチンは、スコープの影響を受けない。 { sub func { return 2; }

Perl › サブルーチン › here Perlでは、サブルーチンを動的に生成することもできます。 関数ジェネレータ 関数ジェネレータとは、サブルーチンを生成するためのサブルーチンのことです。関数ジェネレータは、動的にサブルーチンを生成したいときに用いられるテクニックのひとつです。 一般的な名称にしたがって関数ジェネレータと呼びますが、Perlの用語でいえばサブルーチンジェネレータのことです。この解説では、関数もサブルーチンも同じ意味です。 関数ジェネレータの作成と呼び出し # 呼び出し my $func = func_generator(); $func->(); # 定義 sub func_generator { my $func = sub { print "これは、実行時に生成されたサブルーチンです。\n"; }; # サブルーチンへのリファレンスを返す。 return $fun

Perl › 構文 › オートロード Perlではサブルーチンが存在しなかった場合に呼び出されるAUTOLOADというサブルーチンを定義することができます。これをサブルーチンのオートロードと呼びます。 package MyModule; aaaaiiiii( 1, 2 ); our $AUTOLOAD; sub AUTOLOAD { # ... } our $AUROLOADを定義しておくと、呼び出された関数名を取得できます。 オートロードは何のために使うの 日常の仕事でプログラミングをするときは、オートロードを使う必要性はほとんどありません。また、モジュールを作成するときも、オートロードを積極的に使う理由はありません。 オートロードの呼び出しは、非常に遅く、代替的な手段がたいていの場合はあります。 アクセッサを作りたい場合は、evalで動的に生成したり、サブルーチンのリファレンスを型グロ