Perlメモ

文字列か数値かを判別する方法
データをJSON化するのに必要だったので調べてみた^-^;

our $var = '1234';
if ($var ^ $var eq '0'){
  print '数値です';
} else {
  print '文字列です';
}

解説:
同じ変数同士で排他的論理和をとり数値なら「0」、文字列なら文字数分のヌル文字になる。
(上記は数字の「1234」という文字列なので文字列と判定される)
リファレンスが入っているなんてことは考慮しないっ(; ̄ー ̄A アセアセ・・・

トップページへ