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

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

No.1 ベストアンサー 回答者： mi-si 回答日時： 2004/02/17 12:32

substr関数を使います

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

参考URL：http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd …

この回答へのお礼

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

お礼日時：2004/02/17 12:54

No.2 回答者： leaz024 回答日時： 2004/02/17 12:39

Perlで文字列の一部を抜き出す時には substr 関数を使用します。

例えば、
　　$var = substr($str, $pos, $len);
とすると、$str の $pos 番目（先頭は0番目）から、$len バイト分を $var に代入します。
※$str は変更されません。

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

この回答へのお礼

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

お礼日時：2004/02/17 12:56