LEFT関数のようなもの（７桁の数字から左の３桁の数字を抜き出す）

はじめての質問です、よろしくお願いします。

ホームページでのアクセス制限を行うフリーｃｇｉを修正・改造して、目的にかなうように作り替えたいのです。

このアクセス制限で行いたいのは
　・パスワードに７桁の数字を入力（例：1234567）
　・左の３桁（123）だけをパスワードリストに照合。

この「７桁の数字から左の３桁の数字を抜き出す」という部分にお手上げの状態です。

LEFT関数の様なもの、または、そのような処理をする方法について、アドバイスやヒントをお願い致します。

また、入力されたパスワードが７桁かどうかのチェック方法についてもよろしければアドバイス下さい。

No.1 ベストアンサー 回答者： w-inty 回答日時： 2004/01/27 14:26

substr(文字列,取り出す最初の位置,取り出す長さ)

というのを使えばOKです。

文字数を数えたいのであれば
length(文字列)
がいいかと。（ただしバイト数ですので）

この回答へのお礼

ありがとうございました。
substrは基本のようですが、こんなことも分かりませんでした。

しかし、おかげさまで、目的のcgiへの改造がうまく行きました。

お礼日時：2004/01/29 18:18

No.3 回答者： HOGERA3 回答日時： 2004/01/27 17:53

こんなのはどうでしょう。

if ($password =~ /\D*(\d{3})\d{4}\D*/) {
　　$left3 = $1;
}

この回答へのお礼

ありがとうございました。

お礼日時：2004/01/29 18:20

No.2 回答者： liar_adan 回答日時： 2004/01/27 15:04

パスワードを $passwordとして、

・右3桁を抜き出す。
$password % 1000

・7桁か確かめる。
1000000 <= $password && $password < 10000000

ではどうでしょう。
perlをしばらくやっていないので自信なしですが。

この回答へのお礼

今、この式の意味を勉強中です。
ありがとうございました。

お礼日時：2004/01/29 18:19