３桁コードの先頭文字を取り出す

質問

お世話になります。
Ｐｅｒｌは最近はじめました。ご教授宜しくお願いします。
さて、コード番号が101、102・・・201、202・・・801、802の様にあってリクエストフォームから送信されてきます。これを一旦変数に代入した後、102だったら、先頭の1を、801だったら先頭の8を取り出して、ifで分岐させたいのですが、ExcelなんかでのLeft関数の様に、左から○文字を取り出す・・・という処理はＰｅｒｌではどうすればよいのでしょうか？

回答No.1

mi-si · ベストアンサー

substr関数を使います

$left = substr($code,0,1); //頭(offset0)から1文字

参考URL：

http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/pe_k05.htm

お礼

ありがとうございます。
参考ＵＲＬは今後もいろいろ参考になりそうです。

回答No.2

leaz024

Perlで文字列の一部を抜き出す時には substr 関数を使用します。
例えば、
　　$var = substr($str, $pos, $len);
とすると、$str の $pos 番目（先頭は0番目）から、$len バイト分を $var に代入します。
※$str は変更されません。

# 少し前にこんな質問もありましたね。
質問：LEFT関数のようなもの（７桁の数字から左の３桁の数字を抜き出す）
http://oshiete1.goo.ne.jp/kotaeru.php3?q=762425

お礼

ありがとうございます。
やっぱり同じような質問を上げてる人もいたようですね。
探しきれませんでした。