|
| カレッヂ |
|
質問者 ひなお
投稿日 12/3(月) 18:54:47
簡易ショッピングバスケットで受注番号を付与する方法を探しています。できればNTサーバーで使用できる方法だと助かります。 |
|
回答者 呑兵衛＠大阪
[削除]
投稿日 12/6(木) 20:05:57
c:\perl -e "$date = scalar localtime; print $date" Thu Dec 6 11:22:15 2001 または連番みたいに c:\perl -e "$date = scalar localtime; $date=~s/ |://g; print $date" ThuDec61122152001 print $date して結果を出していますが、$date に値が入っていますので、 その後この変数をどこかで出力すればいいのでは。 |
|
質問者 ひなお
[削除]
投稿日 12/7(金) 17:13:48
アドバイスありがとうございました。 初心者なのでアドバイスの通りでは出来なかったのですが良いヒントになり自己解決できました。 方法は、アドバイスと同様に現在時刻から付加し、 $ordercode = "$month$mday$hour$min$sec"; 引き渡す方法にしました。 print "<input type=hidden name=\"受注番号\" value=\"$ordercode\">\n"; なにぶん初心者なのでむちゃくちゃですがツッコミあればアドバイスお願いします。 |
|
回答者 呑兵衛＠大阪
[削除]
投稿日 12/7(金) 20:19:41
はい、けっこうな出来栄えです。もひとつ、 ($sec,$min,$hour,$mday,$month) = (localtime(time))[0,1,2,3,4]; $month += 1; # ←抜けてる $ordercode = "$month$mday$hour$min$sec"; |
|
質問者 ひなお
[削除]
投稿日 12/10(月) 09:06:53
呑兵衛＠大阪さんありがとうございました。まだまだ勉強不足でアドバイス頂いた内容について理解できていないところもありますが自分のやったことが全くの間違いでなかったことが解り安心しました。アドバイスを基にもっと勉強したいと思います。 |
このページは終了したので返信(回答)は書きこめません
| Ｗｅｂ裏技 |