CGI-BBS > CGI > Perl > 5桁の数字だけデータに書込みたい。


カレッヂ
カレッヂ


質問者 ぱんだ  投稿日 7/19(木) 20:43:46
ぱんだと申します。

例えば、
00001はOKだけど01とか0001はダメ。
8596はダメで00701はOK。
つまり
5桁の数字だけファイルに書込みたいのですが...

宜しくお願いします。





回答者 しあわせのツボ  [削除]  投稿日 7/19(木) 23:43:01
対象の数字が$decimal5に格納されているとした時、
if ($decimal5 !~ /^\d{5}$/) { &error(); }
とすれば、対象外だった時はsub errorに飛びます。
回答者 yaku sima  [削除]  投稿日 7/20(金) 00:42:06
無理やり変えちゃうってのは、どうですか?

$a=sprintf("%05d",$a);
質問者 ぱんだ  [削除]  投稿日 7/20(金) 16:30:35
しあわせのツボさん
yaku simaさん
問題解決です!
親切にありがとうございました。

感謝感謝
ぱんだ。

このページは終了したので返信(回答)は書きこめません

Web裏技