☆ショッピングカートのCGIを作りたい！Perlで☆

**無謀者** · 02/01/10 19:53

知り合いにWEBショップ作ってくれと頼まれたのは良いけど、
フリーのショッピングカートCGIは設置は簡単でも、商品の登録
とかが手作業だったりで使い勝手が悪いです。
で、短絡的に「自分で作ってみようか」と思っているのですが・・・・
Perlも、いやプログラミングさえ未経験。「必ずわかるCGI」と
その他の入門書で何とか「掲示板」の仕組みがようやく理解できました。
やっぱ、無謀ですかねぇ・・・・・・

**無謀者＠表示時間の桁合わせ・・・解決** · 02/01/15 23:56

>>124
それは、素人が使って、あとからうだうだ言われるのがたまらん！
という事でしょうか？
確かにそうかも知れませんね。ボロクソ言われているKENT氏にしたって
サポート面だけは評価されてるようですし。ソフト（スクリプト）ってのは
例えどんなに良いものが書けても、使う側ってのは自分の能力じゃなく
そのソフト（製作者）に全責任を取らせようとしますからね(藁
あと、激励本当に感謝です。地道に勉強を続け、ここで進捗状況を報告させていただき、
たまには、質問もさせていただこうと思います。
って、「日記に使うなｳﾞｫｹ！！」とか言われそうですが（ｗ

**名無しさん＠お腹いっぱい。** · 02/01/15 23:59

>>125
日記につかったら呪いますから。

**名無しさん＠お腹いっぱい。** · 02/01/16 01:54

>>125
それは一理ありますね。
自分の場合、ネットショップやってて、カートも自作ですが
商売をしてない人が作ったカートは、やはりそれなりです。
ショップ側にも、お客さん側にも細かい気配りができていない
ことが多いです。

まぁ、1つも作っていないくせにKENTさんのことを言ってる
ｳﾞｫｹよりはマシだけどね。

**無謀者** · 02/01/16 02:06

＞1つも作っていないくせにKENTさんのことを言ってるｳﾞｫｹよりはマシだけどね。
すいません、私の書き方がﾏｽﾞかったでしょうか・・・
私自身がKENT氏をどうこう言う立場に無いのは100も承知のつもりです。
実際、趣味でやってるHPでも使わせてもらってますし。
そんなんで、たまたまこの板のKENT氏関連のｽﾚ見たら、ﾜﾘと評判が悪く、
それでもコトアフターフォロー（サポート）に関しては悪く言ってる方が
いなかったので、引き合いに出させていただきました。
お気を悪くなされたのでしたら、申し訳ありませんでした。

**無謀者** · 02/01/16 02:16

ところで、今フォームから受け取ったデータをタブ区切りでファイルに格納し
その中身が
商品名　価格　個数　値段
みたいになってるんです。でカートの中身が増えていくと行が増える。
で、最終的に合計金額を求めるのに、
open (FH,$file){
@list=<FH>;
close(FH);
foreach $line(@list){
@item=split(/\t/,$line);
$count=unshift(@list);
$total=$item[4]*$count;
}
}
とやっているのですが・・
他にもっとスマートなやり方って有るのでしょうか？
一応走らせてみると期待通りの結果は得られてるんですが。

**無謀者** · 02/01/16 02:30

うわ・・・
↑じゃﾀﾞﾒだった・・・
足し算を繰り返さなきゃﾀﾞﾒですね・・・・・やりなお～し

**名無しさん＠お腹いっぱい。** · 02/01/16 02:46

レスの速さは凄いですね。いやみじゃなく。
それだけで、かなりの売り上げ増に結びつくから
あなたが通販やった方が良いですよ。
これだけスレが伸びるのが、その証拠。
カートの使いやすさも大事だけど、個別の対応も大事。
と、関係ないマジレスしたりして。

**無謀者** · 02/01/16 05:15

ﾀﾞﾐﾀﾞ、合計が出せない・・どなたかご教授ください
$total=$kingaku+$kingaku+kingaku+kingaku･･････
ってのをやりたいんです。で$kingakuてのが何回来るかわからず、
$kingakuが一定なら>>129でやったみたいに個数だして掛け算すれば
良いんですが・・・・・

**名無しさん＠お腹いっぱい。** · 02/01/16 05:33

>132

中身は良く知らないけど、価格が販売価格、値段が価格×個数ということでいいのかな？
だとしたら、

open (FH,$file);
while($line=<FH>) {
($hinmei,$kakaku,$kosuu,$nedan)=split(/\t/,$line);
push (@kakakus,$kakaku);
}
close(FH);
$all_kakaku = 0;
foreach $kakakus(@kakakus) {
$total = $total + $kakakus;
}
で、良いのでは？
きっと誰かが最適化してくれるだろうけど。

**名無しさん＠お腹いっぱい。** · 02/01/16 05:35

>133
あ、訂正。

> close(FH);
> $all_kakaku = 0;
> foreach $kakakus(@kakakus) {
の、$all_kakaku　ってのを、$totalになおしてね。

**名無しさん＠お腹いっぱい。** · 02/01/16 05:49

>133
ほかの処理が泣く、単に合計出すだけだったら、

$total = 0;
open (FH,$file);
while($line=<FH>) {
($hinmei,$kakaku,$kosuu,$nedan)=split(/\t/,$line);
$total = $total + $nedan;
}
close(FH);

だな。
しかも、前の、ちょっと間違ってるし。

**名無しさん＠お腹いっぱい。** · 02/01/16 08:51

てか、
$nadanはchompしないでOKなんですか？
俺はいつもやっちゃうけど無駄なんですか？
あと、
$total += $kosuu * $nedan;
かと思った。

**136** · 02/01/16 08:51

$nadanは→$nedanは

**名無しさん＠お腹いっぱい。** · 02/01/16 09:19

>136
わかんない。動作確認してないし、サンプルデータもないし。
下書きも校正もしないで書き終わったらがんがん書き込んじゃったから。

**名無しさん＠お腹いっぱい。** · 02/01/16 12:13

カートはMySQLとかPostgreSQL使うのがラクチンでいいよ。
追加、削除、計算も簡単だし。

**名無しさん＠お腹いっぱい。** · 02/01/16 13:43

PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL

**sage** · 02/01/16 16:21

そんな甘いもん出ないよ！おれなんかショッピングカートで地獄見たもん
質問もすごく初歩的な四則演算とかしてるぐらいなんだから
アルゴリズムについてもっと勉強してからスレッドたてれ！
PGってそんなあまくないよ！！
設計の手法だって勉強しないといけないしさ！
初心者だから？
おいおい・・・・・システム作るのがドンだけ大変か
なんか怒りを覚えてきたぞ！
PERLの特性ってしってんのか？
PERLでやるよりプログラムの基礎勉強しろ
ああ
はらたってきた

**名無しさん＠お腹いっぱい。** · 02/01/16 16:29

. ∧　　 ∧
(　´ ・∀・｀)　へー

**名無しさん＠お腹いっぱい。** · 02/01/16 17:12

（　・∀・）y━~~ ﾌﾟﾊｰ　ﾏｧﾏｧ>>141ｵﾁﾂｹﾖ

**名無しさん＠お腹いっぱい。** · 02/01/16 23:51

>>141
まあ、そう怒らずに。
これから>>1が身をもって知るんだから。

**名無しさん＠お腹いっぱい。** · 02/01/17 12:12

さて、ここまでのまとめ。

・共用サーバーで運営する（？）
・言語はperlで
・RDBMなどは使わずCSVファイルにてデータを管理
・今あるものは使いにくいからインターフェースにはこだわりたい
・>>1はまったくの素人である
・合計金額だすだけであたふたする>>1の支援人ももうちょっと勉強しろ

これくらいでよろしいか？

**名無しさん＠お腹いっぱい。** · 02/01/17 13:41

さて、ここまでの結論

・>>1には絶対無理

でよろしいか？

**名無しさん＠お腹いっぱい。** · 02/01/17 14:23

>145
＞・合計金額だすだけであたふたする>>1の支援人ももうちょっと勉強しろ

ああこれおれのことか(笑)
勉強というか、ちゃんと睡眠取るようにするよ(笑)

**sage** · 02/01/17 14:26

すまん
>>143
>>144
怒らずにはいられんかった
PGなめてんのかってぐらい無知だからさ！
ふぅ　

**名無しさん＠お腹いっぱい。** · 02/01/17 14:37

. ∧　　 ∧
(　´ ・∀・｀)　へー

**名無しさん＠お腹いっぱい。** · 02/01/17 17:46

（　・∀・）y━~~ ﾌﾟﾊｰ　ﾃﾞ　>>1ﾊﾄﾞｺｲｯﾀ?

**名無しさん＠お腹いっぱい。** · 02/01/17 19:20

>149-150
社会的弱者は役に立たないから、２ちゃんねるに来なくていいよ。

**無謀者** · 02/01/17 19:50

>怒ってる方
別に、プログラムを馬鹿にしているつもりは無いんですが、気分を害されたようなら
申し訳ありません。四則演算云々に関してはおっしゃる通りです。学生の頃
もっと数学勉強しときゃよかった・・・・
いろいろ、親切にレス頂いてる方もいるので、ありがたい限りですが、
やはり大勢として「システム構築」「セキュリティ」「運用」という
話が結構出てきますね。やはりプロフェッショナルな方が多いからでしょうか？
自分としては、それこそ「とりあえず動くスクリプト」という気持ちで
作り始めてるので、舐めてるといわれればその通りかも知れません。
ここにｽﾚ立てたのは、外部と違って、多方面の情報をいただけるかな・・・と・・・

現在の進捗状況。
合計を出すのは>>135でいけました。ありがとうございました。が・・・
ここまで来て気が付いたんですが、注文ボタン押すたびにｔｍｐファイルに書き込んでたんじゃ、
同時に二人以上の人が使えないですよね・・・
注文の最終段階まで配列で処理していって、最後に吐き出すようにしないとﾀﾞﾒなのかなぁ・・・・
というわけで、振り出しに戻ってます（藁

**名無しさん＠お腹いっぱい。** · 02/01/17 22:22

セッション管理ィィィィィィィィィｨｨｨｨｨｨｨｨｨ

**名無しさん＠お腹いっぱい。** · 02/01/17 23:21

なぁ>>1よ
過去のログは読んでるかい？たとえば>>99なんて結構親切に書いてくれ
ていると思わないかい？
我々も段階を追ってアドバイスしてるのだ、だがどうしても説明しき
れないことがあるから具体例も出している。
経験して失敗するのはかまわない、そっちの方が身になって覚えるこ
とができるからな。でももし>>99のようなアドバイスを難しいから
とか面倒だからと言って聞き流してるとだれもアドバイスをくれなく
なるよ。

だから>>153のキーワードも大切にして欲しい。
多分セッション管理と聞いて難しいことをしているように思えるだろ
う、説明している人によっては理解不能なくらい難解な言葉を使って
いて読みにくいことだろう、でもperlには効率的なセッション管理は
苦手とする分野だ。

>>141のぶち切れてる部分を除いて読んでみて、perlの特性と言って
るがセッション管理にも十分出ている。たとえばこれをPHP4でやろう
とすれば簡単にできるのだよ。
とりあえずはperlでできることを学んで行こう。キーワードはわかる
ね、セッション管理だ。

**名無しさん＠お腹いっぱい。** · 02/01/17 23:46

. ∧　　 ∧
(　´ ・∀・｀)　へー

**名無しさん＠お腹いっぱい。** · 02/01/18 00:57

http://headlines.yahoo.co.jp/hl?a=20020118-00000006-imp-sci
無理して作らなくてもこの辺使えば？
>>114のサイトでも十分だと思うがな。
自作にこだわる理由て何？。
商品登録の使い勝手が悪いというなら既存のショッピングカートCGIの商品情報を
GUIで設定するアプリをＶＢ当たりで作った方が早いぞ。

**名無しさん＠お腹いっぱい。** · 02/01/18 01:40

>>156 に禿げしく胴衣
そのほうが絶対楽。

**名無しさん＠お腹いっぱい。** · 02/01/18 01:44

クレジット決済効かない職種だったりしてな。
それにしても、クレジット手数料、ピンハネしすぎ。

**名無しさん＠お腹いっぱい。** · 02/01/18 01:46

>>1
うちでは、1のいう tmp ファイルをお客さんごとに作ってる。
途中で買い物やめた人の分は、時間で消してる。
PHPだけどセッションは、hiddenで持ち回り。
クッキー使うと i-mode 使えないから。

>>154に同意

**名無しさん＠お腹いっぱい。** · 02/01/18 02:24

>159
うん、クッキーはだめだよね。
よそのサイトからスクリプト投げられるのはどう防いでいます？

**名無しさん＠お腹いっぱい。** · 02/01/18 02:25

うちもPHPで格闘中。

>>106
ホントに夜のrootがウヨウヨしてるとしたら、よっぽどヤバイ鯖？
でも、まぁ共有鯖は危険なことは同意。せめて、置き場所と権限はキッチリしないとね。

>>1
初プログラムがカートはやめたほうがいい。せめて小さいものを１０コぐらい作ってからにしたほうが、時間の効率的利用になると思われる。
イマはまだマシ。部分ごとにカンペキにしていっても、全体動作がうまくいくとは限らない。大きなプログラムは虫取りが大変だぞ。

**sage** · 02/01/18 10:51

いまおれもPHPの開発だ！最初はとっつきにくかったがなれればOK!
おとなげなくおこってしまったが、
>>161

にかかれているように、段階を踏んでPGを勉強していったほうがよいとおもわれる
PGって積み重ねていくものだからね！>>1
>>156
おれも同意する！おれはVB嫌いだが・・・そっちのほうがはやいかもよ！

**名無しさん＠お腹いっぱい。** · 02/01/18 18:51

. ∧　　 ∧　　　
(　´ ・∀・｀)　へー

**名無しさん＠お腹いっぱい。** · 02/01/18 21:31

Perlによるセッション管理の難しさ、俺も痛いほどわかるぜ・・・。
ちょっとgoogleで旅してくるかな

**無謀者** · 02/01/18 21:44

いろいろレスありがとうございます。
＞自作にこだわる理由て何？。
う～ん・・・前前からCGIを作れるようになりたいと思ってたんですが
掲示板とかカウンターとかは自分のHP作る際もフリーので満足できちゃって
きっかけが無かったんです。で、今回のがきっかけになっただけで・・・

どちらにしろ、いろいろ寄り道しながらperlを勉強していきたいと思ってますので、
お暇な方は今後とも激励、お叱り、罵倒などいただければ幸いです。

さて、セッション管理の件ですが、とりあえず「Cokieを使う」という検討を付けたのですが、
セッションID発行する際って一般的にはどうしてるんでしょう？調べてみると
Perl自体にはユニークなIDを発行する関数が無いみたいなので、環境変数を利用
して生成するようなのですが・・・取得できる環境変数の中でユニークな値って
いうと、IPと時間でしょうか？

＞GUIで設定するアプリをＶＢ当たりで作った方が早いぞ。
平行して既存のフリーのCGIに使うページ生成のプログラムをAccessで作り始めてます。
どうせなら、こっちを先にPerlで作ってみようかな・・・・

**名無しさん＠お腹いっぱい。** · 02/01/19 00:41

つうか１には無理
まずは１は掲示版CGIでもつくってなさいってことよ
単なる掲示版でも荒し対策とか色々細かいこと考えると結構大きなプログラムになるぞ

**名無しさん＠お腹いっぱい。** · 02/01/19 00:45

しかし、１ってプログラムの経験がないとか言う割には
そうでもなく感じられるようなことも書いてるね。
VBAは使えるの？

**無謀者** · 02/01/19 00:55

>VBAは使えるの？
VBAを使える、というかアクセスのマニュアル本見ながらどうにかこうにか
簡単なものが作れる程度です。アクセスってその気になればMACROだけでも
かなり複雑なことやらせられるし・・・・
「よーし、パパプログラム作っちゃうぞ！！」って言いながら
エクセルのマクロ得意げに組み合わせてるおじさんとかわらんレベルです。

**名無しさん＠お腹いっぱい。** · 02/01/19 01:53

ここまで来て、疑問なんですが。
プログラムをしたこともない素人に頼む知り合いって
なかなか理解に苦しみます。
商売を舐めてるのでしょうか？ｗ

**名無しさん＠お腹いっぱい。** · 02/01/19 02:25

ていうか、たかが２ちゃんの書き込みに、いちいち詮索入れるってのも
不思議で性がない。
ネタならネタで乗ってあげるか、放置できないのか？

02/01/19 03:46

>>165
>Perl自体にはユニークなIDを発行する関数が無いみたいなので、環境変数を利用
>して生成するようなのですが・・・取得できる環境変数の中でユニークな値って
>いうと、IPと時間でしょうか？

ユニークな値が欲しいなら、現在の時間と、プロセスIDを組み合わせる
のが定石かな。プロセスIDは、$$と書けば得られる。
実行中のプログラムに割り当てられるIDで、同時に同じ値が割り当て
られることはない。知ってるかもしれんが。

時間はtimeとかなんとか書けば、エポック秒が得られるだろ。
マイクロ秒まで出す方法があったはずだけど、忘れた。

プログラムの内容にもよるけど、大半この組み合わせでいけるでしょ。

**agege** · 02/01/19 04:12

> 171
> マイクロ秒まで出す方法があったはずだけど、忘れた。

実は知らないんじゃないの？

**名無しさん＠お腹いっぱい。** · 02/01/19 04:18

>172
いや、実は知らなくってもちっともかまわない(笑)

**名無しさん＠お腹いっぱい。** · 02/01/19 08:37

>>165
apacheが生成してくれるの使えば?

最初に見たときは糞スレだと思ったけど、>>1の根気とチャレンジ精神で
良スレになりつつある予感。PGには必須の資質なので頑張ってくれ。

**171** · 02/01/19 09:24

>>172
モジュール入れないとダメだった。他の方法は知らん。

use Time::HiRes;
$time = Time::HiRes::time;

**無謀者** · 02/01/19 16:47

どんな内容でもレスがつくのがありがたい限りです。
>>169
単にHPの作成頼まれただけです。一応既存のカートでOK貰って
ページ自体は完成してます。プログラム作ろうと思ったのは単にきっかけ
になったに過ぎません。極端に言えば作る必要性は無いんです。

で・・・
$id=$$+time()でユニークID作って、cookie渡して
split(/\=/,＄ENV{'HTTP_COOKIE'})で埋め込まれたID参照して
これが無ければcookieを渡す、もし有るようなら{取り出したID}.dat
ていうファイルを作ってその後の処理をさせようと思ってるんですが、
方法的にはこんなんで良いんですかね？

**名無しさん＠お腹いっぱい。** · 02/01/19 17:04

process ID + time で unique だと思ってると mod_perl ではまるよ。

**名無しさん＠お腹いっぱい。** · 02/01/19 18:47

>>176
OK,OK

**名無しさん＠お腹いっぱい。** · 02/01/20 13:24

失速気味age
ここまでよくがんばった！

**無謀者** · 02/01/20 20:25

クッキー・・・
if ($ENV{'HTTP_COOKIE'} eq ""){
&set_cookie
}
print "content-type: text/html\n\n";
print $ENV{'HTTP_COOKIE'};
ってやると、もともとクッキーがあるときは＄ENVを表示するんですが、
持ってないときは&set_cookieでクッキーをセットしてるはずなのに
表示してくれません。リロードすれば表示するんですが・・・
ちなみにサブルーチンはこんな感じです（変数省略）
sub get_cookie{
$cookie="set-cookie: Tscart=$cid; expires=$gmt; ";
print <<EOF;
$cookie
EOF
}

**名無しさん＠お腹いっぱい。** · 02/01/20 20:45

set-cookieした次のアクセスからクッキーが使える。

**名無しさん＠お腹いっぱい。** · 02/01/20 21:05

う～ん、本当にがんばってるね。
陰ながら応援の機会を伺うとしよう。

**仕様書無しさん** · 02/01/20 21:26

>>180
>>181にも書いてるけど、1セッションで一発読み書きは出来ない
そこにくる前(Top辺りで)、コッソリとダミーのCookieを仕込んでおいて
そいつを読んでクライアントのONOFFを確認するっつのが常套手段

**無謀者** · 02/01/20 22:14

>>181,183さん
なるほどですね。>>183さんの方法は考えたんですが、Cookieに
埋め込むIDでその後の処理を管理する予定なので、どうしようかと・・・・

**無謀者** · 02/01/20 22:24

で"$cookieのID.dat”を定義するのに
以下のような方法で解決できたっぽいんですが・・・

$ctime=time();
$cid=$$+$ctime;#クッキー用ＩＤ

if ($ENV{'HTTP_COOKIE'} eq ""){
&set_cookie
$cart="$cid"."\.dat";
}
else{
@id=split (/\=/,$ENV{'HTTP_COOKIE'});
$cart="$id[1]"."\.dat";
}

**名無しさん＠お腹いっぱい。** · 02/01/20 23:13

クッキー食わない奴がいるから、最初にチェックしたほうが良いと思われ。
操作した後に駄目でしたはイラツキの原因。
後、クッキーはセッションクッキーで充分だろう。

**無謀者** · 02/01/21 03:36

とりあえずクッキーに関しては>>185の方法で一応動作してるようなので
その方法で進めてみます。>>186さんの進言に関しては後々方法考えてみます
で、普通のクッキーとセッションクッキーの違いって？

さて、またひとつ問題が発生してるのでどなたかよろしければご教示ください。
データの削除に関してですが、現在.datの中身が
$id\t$hoge\t$mona\t$giko\n
$id\t$hoge\t$mona\t$giko\n
$id\t$hoge\t$mona\t$giko\n
・
・
・
というようにタブ区切りで一行づつ格納されています。でこの中の
たとえば３行目を削除したい時なんですが、画面表示するときに
open(FH,$file);
@line<FH>;
close(FH);
foreach$list(@line){
@item=split(/\t/,"$list")
}
として、各要素をテーブルで区切って表示した上で
画面上に各行ごとにフォームボタンを作り、Hideenで削除用のキー（=＄ID）を入れています。
で削除ボタンを押した時にそのキーに対応する$idを持った行を丸々消したいんですが・・・
いろいろ試してるんですが、ファイルの中身が全部消えちゃったり・・（鬱
<FH>で呼び出して、foreachで配列に格納して$id＝削除キーだったら
その配列を消して、残りの配列をまた\n区切りの変数にもどして.datに格納・・・
みたいな事を考えたんですが・・・

**名無しさん＠お腹いっぱい。** · 02/01/21 06:32

>187

$i = 0;
foreach (@line) {
($id,$hoge,$mona,$giko) = split(/\,/,$_);
if (削除キー eq $id) { splice(@line,$i,1); last; }
$i++;
}

削除キーには、削除ボタン押したときに飛ばされる値を指定する。

**名無しさん＠お腹いっぱい。** · 02/01/21 12:21

やっぱりこうやって見てるとＤＢ使った方が楽だよね（わら

**名無しさん＠お腹いっぱい。** · 02/01/21 12:30

>189
禿同。
セッションIDだけhiddenで渡しておいて、あとは全部DB任せ。
この方が絶対楽だね。ソートするにせよ、合計金額を出すにせよ
全部DB任せ。こんなに楽な方法ばかり普段使っていると
>1が凄いことをしているように見えてくる・・・

**１８９** · 02/01/21 12:42

>>190
だよね（わら
久しぶりにファイル操作スクリプトみたんで懐かしいよ。

>>1さん
エラー処理はきちんとしましょうね。
クッキー渡すときも、ファイルを開くときもね。
あとデータ受け取ったときもサイズとか中身のチェックいれとかないと
だめだかんね～♪
全ての人間がフォームに従って入力してくれるとは限りませんから。

**無謀者** · 02/01/21 12:54

>>188
ありがとうございます。試してみます。ってやってみたけどいまいち
うまくいかん・・スクリプトの意味もう一回良く見ながら考えてみます。
>>189-190
DBでMySQLとかでしょうか？
私が借りてる鯖（共用）は使えるようになってるみたいなんですが、
一般的にはどうなんでしょ？置く鯖が決まってればそれにあわせた
仕様で書けば良いんでしょうが、出来るだけ汎用性のあるものを
書きたいので・・・・もしDBが鯖依存でなくてPerlが使えれば
必ず使える、とかUNIX系の鯖ならほぼ大丈夫ってものなら
勉強してみようと思うのですが・・・

**無謀者** · 02/01/21 13:00

↑
×DBでMySQLとかでしょうか？
○DBってMySQLとかでしょうか？

**名無しさん＠お腹いっぱい。** · 02/01/21 13:02

>192
いいところ突きまくり・・・

**１９０** · 02/01/21 13:14

>192
最近は安い共用鯖でもMySQLとかPostgreSQLを使えるところが
増えてきているから、汎用的だって判断しても良いんじゃない？

漏れはDB使えない（使わない）って仕事を受ける時は、それだけで
料金５割増にしてる（ｗ　しかも最近はPHPとかJavaを使うことが
多いんで、「Perlで書いてね」なんて言われたら、さらに５割増（ｗ
最低限DBが使える鯖に移転することを強く薦めている。

フリーでばらまくならPerlでファイル操作で構成しておく方が
汎用的と言えるだろうが、作るのが面倒だよなぁ。
漏れの場合は、過去に使ったクラスを使いまわして自分の中で
汎用的にするだけだな。もちろん、客には「１から作りました」
と言って、「あっという間に作ってくれましたね」と言われて
喜ぶのが好きだけど（ｗ

**無謀者** · 02/01/21 15:03

えっと・・>>188を試しているんですが、これの意味って
$i = 0;#行数カウント用の初期設定
foreach (@line) {
($id,$hoge,$mona,$giko) = split(/\,/,$_);
if (削除キー eq $id) { splice(@line,$i,1); last; }#もし削除キー=$idだったら、@lineの$i個目（つまりファイルの$i行目）を空にする）
$i++;
}
って事で良いんですよね？

**名無しさん＠お腹いっぱい。** · 02/01/21 15:35

>196
うん、その通り。

**名無しさん＠お腹いっぱい。** · 02/01/21 15:35

>196
あ、ちがうよ。
空にするんじゃなくて、その行削除ね。

**無謀者** · 02/01/21 16:25

いろいろ試してみて近いところまで来てると思うのですが・・・
open(DEL,"$cart");
@dl=<DEL>;
close(DEL);
$i=0;
foreach $line(@dl){
@cell = split(/\t/, $line);
if ($cell[0] eq "$del") {
$line="";
}

@del=join("\n",$line);
close(DEL);
#ここまで@delには削除済みのリストが入ってるのを確認
#その後
open(FH2,">>$cart");
print FH2 @del;
close(FH2);
}
で書き込もうと思ってるんですが、>>でやると元のリスト＋（元のリストー削除した要素）
が追加されちゃうし、>でやるとなぜか、もとのリストが全て消えて、削除すべき要素だけがファイルに書き込まれてしまいます。
＠delで欲しいリストは完成してるので、あとはファイルに書き戻すだけだと思うのですが・・・

**名無しさん＠お腹いっぱい。** · 02/01/21 16:30

>199
なんでそんな苦労をしているんだろう・・・・

◆6KgJyjvE · 02/01/21 16:49

open(IN,"$cart");
open(TMP,">${cart}.tmp");
while(<IN>){
my @cell = split/\t/;
if($cell[0] ne "$del"){
print TMP;
}
}
close IN;
close TMP;
rename(${cart}.tmp,$cart);

でどうよ。

**名無しさん＠お腹いっぱい。** · 02/01/21 17:18

んじゃもっと短くして・・・

open(IN,"$cart");
open(TMP,">${cart}.tmp");
print TMP grep { ! /^$del\t/ } <IN>
close IN;
close TMP;
rename(${cart}.tmp,$cart);

grep使うのは別におすすめしないけど、
判定のためだけにsplitする必要はないかと。
というか、素直にApache::Session使えばいいのにと思ったり。

**無謀者** · 02/01/21 21:33

>>201
最初、うまく行かなかったんですが、renameのところを変えたら
うまくいきました↓
open(IN,"$cart");
open(TMP,">$cart.tmp");
while(<IN>){
my @cell = split/\t/;
if($cell[0] ne "$del"){
print TMP;
}
}
close IN;
close TMP;
rename("$cart\.tmp","$cart");
ありがとうございました。

>>202
$id（＝削除キー）が単純に振られた連番（数字）なので、配列で
確実に指定してやったほうがいいかな・・・と。grepも使いかた調べたんですが、
個数とかの数字を拾っちゃいそうな気がして・・・
☆進捗状況
おかげさまで、
・買物カゴに入れる
・カゴの中身を削除する
の部分は動作するようになりました。皆様の助けが無ければとても10日でここまでは
出来なかったと思います。ありがとうございます。
次の予定は、個人情報の入力画面です。
・・・と、思い出したので質問です。非常に基本的なことだとは思うのですが、
cookieって有効期限内でも、新たに渡せば上書きされるんですかね？
買物カゴで渡したcookieを個人情報画面で、書き換えたいんですが・・
てかそういう場合って新たにクッキー渡すんですか？

02/01/22 00:28

もう解決ずみみたいだけど。

>で書き込もうと思ってるんですが、>>でやると元のリスト＋
>（元のリストー削除した要素）が追加されちゃうし、
> でやるとなぜか、もとのリストが全て消えて、
> 削除すべき要素だけがファイルに書き込まれてしまいます。

>> で開くのは、追加書き込み。ファイルは安全。
> で開くと、ファイルサイズがゼロになる。ファイルのデータは失われる。

ファイルロックを併用で、ファイルから読んだあと同一ファイルに
書き戻したい場合は、読み+書き（+<）で開くのが一般的かな。

該当ファイルが存在しない場合は、ファイルを作ってはくれないが。

**名無しさん＠お腹いっぱい。** · 02/01/22 01:23

>>203
クッキーの上書きだァ？
それ位調べろってんだよヴォケ！

**名無しさん＠お腹いっぱい。** · 02/01/22 11:42

>>205
数少ない自分が知ってるネタが出て来てよかったね　ﾎﾞｸちゃん
早く病院に戻りなさい

**名無しさん＠お腹いっぱい。** · 02/01/22 16:17

とりあえず今までのスクリプトどこかにＵＰしてみ
添削してくれるぞ、きっと

**無謀者** · 02/01/22 16:33

>>207
今、個人情報の入力＆その処理、の部分を書いてるので、それが終わったら
どっかにアップしてみます。垢とってこなきゃ・・・
もう、自分で処理内容を忘れないためのコメントが各所、各行に入りまくりの
ソースなんで恥ずかしいんですが、なにぶん2週間前までは「配列って何？」
っていう人間が書いているものなのでその辺はご容赦ください。
今日の夜くらいにアップできればと・・・

**名無しさん＠お腹いっぱい。** · 02/01/22 16:40

>>208
ソースパクって明後日ぐらいからシェアウェアとして
配布させてもらいます。w
プログラム名は、SuperCart2002です。
早めにうｐして下さいね。

**名無しさん＠お腹いっぱい。** · 02/01/22 16:50

ココまで伸びてきていてなんだが‥‥

>>65
>えっと最終的にイメージにあるのは、来訪者（客）が各売場（ページ）で
>任意に商品をカートに入れていって、最終的に注文ボタンを押すと
>その内容が管理者（店主）と客注文明細のメールが行く、というものです。

以前作ったことがあるぞ、それ。個人商店向けで、ほとんど同じ仕様。
メール送信だけPerlでSendmail叩いて、あとJavaScript。

あ、商品ページは商品と単価はtextであげといてCGIから書かせたけどね。

＃これなら途中で放棄してジャンプされてもカンケーなしだね。

ID/Pass発行して再ログインとか考えないなら、これで十分かもよ。

**無謀者** · 02/01/22 17:05

>>209
つうか、ここの住人の方ならパクらないでも数時間で書き上げる内容じゃないかと・・・（ｗ

>>210
javaScriptも触ったこと無いんで、スクリプトを書くという意味では、結局はどっちではじめても同じだったのかも
知れません。ただ、とっかかりが「既存のショッピングカートに商品ページ作成機能があればなぁ」
だったので、何も考えずにPerlでCGIを始めてしまいました。
しかし・・・普段HP作る時はDWとかばっかりだったんで、CGIの中のHTML書くのにタグが
わからず苦労してたりします(苦笑

**名無しさん＠お腹いっぱい。** · 02/01/22 17:07

クッキーは正常終了する場合消しとけよ、意味は自分で考えろ。
途中終了の場合は仕方ないがそれでも退室ボタンなどで消せるようにしとけ

**210** · 02/01/22 17:27

>タグがわからず苦労してたりします

ドリウィで満足行くまでデザインして、ﾊﾟｸれ。

**名無しさん＠お腹いっぱい。** · 02/01/22 17:29

商品ページ作成機能ってなに？
イメージが湧かない

**無謀者** · 02/01/22 20:25

>>212
はい、最終的にマイナス時間で渡して消すつもりです。
>>213
いやそのつもりではいるんですが、現段階DW立ち上げてると重くて効率
悪いので、手で打ってます。ある程度目処がついたらデザイン面は見直そうと思います。
>>214
究極で言うと、楽天みたいにWEB上で全てのページが作れてしまう機能とでも言いましょうか・・・・

http://www.xrea.com/に垢取ってアップしたけど動かん・・
ローカルはもちろん自分の借りてる鯖でも動いたんですが・・・・・

**214** · 02/01/23 01:12

>>215
ああ、そういう機能ね。わかりました。
うちのは、エクセルからコピペして終わりだから
そんなこと考えたことなかったです。

**名無しさん＠お腹いっぱい。** · 02/01/23 01:15

>>211
初心者ですが、質問です。
JavaScript のカート、フリーのやつ
見たことあります。
フレームのindex.html の部分に、
プログラムが書いてありました。
あれって、フレームなしじゃ、
できないもんなんですか？

**210** · 02/01/23 03:21

>>217
>フレームなし
JSの諸事情で、商品が複数ページに渡る場合、正直フレームにしないと
辛いな。

カート（このスレでの実装の場合、単なる送信フォームだが）と、
商品ページあわせて一枚なら、問題ないね。（ECサイトまで行かない
小さいショップのサイトの通販ページなんかで、この一枚タイプは
結構見かけるよ）

複数ページでフレーム避けたいなら、途中退場処理のコストを払っても
やはりカートをサーバーサイドに置いたほうが楽だと思われ。

ただ、JavaScript使用を前提とする場合、フレームを嫌う理由はあまり
ないね。この辺はクライアントの意向によるな。

**名無しさん＠お腹いっぱい。** · 02/01/24 10:19

あげ。

**名無しさん＠お腹いっぱい。** · 02/01/24 11:10

そろそろあきらめたかな？

**名無しさん＠お腹いっぱい。** · 02/01/24 11:26

そろそろあきられたかな？

**無謀者** · 02/01/24 13:34

あきらめてないです。なんとか・・・
一応sendmailでメールを送信するところまでは漕ぎ着けました。
まだ、文字化けしたり、mailに必要な内容が反映されなかったり
とかありますが・・・・・それが解決したら次はページ作成用の
スクリプトに着手です。

**sage** · 02/01/24 14:18

いつのも間にかどんどんすすんでるね！
がんばれよ>>1

**名無しさん＠お腹いっぱい。** · 02/01/24 14:25

がんばれよ。

日本語は本文はベタにISO-2022-JPだが、
subjectのエンコードはけっこうめんどくさいんだ。