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

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

>>89
そういう感じでよいんでない？その都度微妙に処理が異なるならともか
くとして同じならサブルーチンでしょ。
ちなみにその使用だと入力されたデータを数値として揃えるサブルーチン
も必要になるよね。

がんばってね

>>88
いかにショッピングカートって仕組みが必要とされているかって事だと思うよ。

>>89
しょうがないな〜、JAPUたんが最近いないので、
変わりに教えてあげるYO！

print "合計金額",comma($total);

sub comma{
($_) = @_;
1 while s/(.*[0-9\?])([0-9\?]{3})/$1,$2/;
$_;
}

こんな感じかな。

>>92
ありがとうございました。m(__)m
実は、一応なんとか書きあがってたんですが・・・・(汗

>>89
>ただ,そういう場面が多いと一々subを呼び出す事になるんですが、
>そういうのって良いんでしょうか？

ぜんぜん問題ないよ。それで普通。

もう諦めてPHPでつくりなさい

>>1
俺達これだけ協力したんだから、
できあがったスクリプトをちゃんとUPしてね。
それくらい分かってると思うけど。

>>96
完成がいつになるかわからないけどガムバってみます。

＃進捗状況
フォームから受け取ったデータをタブ区切りでTMPファイルに
書き込み、そのデータを配列に格納して、HTMLにテーブルで表示する。

ようやくこれだけ出来ました。タブ区切りのひとつひとつのデータを
\nを区切りとして配列にして、それをさらに\tを区切りとして配列にしてから
テーブルに埋め込んで表示させました。カートの中身を表示する部分の実験です。
＃次の予定
テーブルの列の最後に「削除」ボタンを表示させ、それを押したら
その列を削除（カートから消す）という方法を見つけたいと思います。
配列の最後に何かデータをくっつけさせてそれが有るか無いかで判断させて
削除しようと思ってるんですが・・・・・

ﾀﾞﾐﾀﾞ・・・・・
とりあえず寝よう・・・
なんか、根本的に削除の方法論が間違ってる気がする・・・・・

例えばだね。

注文（注文番号　商品番号　注文個数　顧客番号）
商品（商品番号　商品名　単価　写真ファイル名）
顧客（顧客番号　氏名　連絡先）

などというテーブル構成にして、画面上では注文の部分のみを扱う
それぞれの番号には同じ数字を重ねない。
で、削除の場合。削除確認のラジオボタン（かなにか）をチェックする
と削除する注文番号が飛んでいってその注文番号と一致するレコード
なりファイルなり配列なりクッキーを消せば(･∀･)ｲｲ!!だけじゃない？

100か。

>>1
・・・・楽天でいいじゃん。

今日は進捗無しです・・・・・
ちょっと脳みそ沸騰ぎみ。
プログラムの経験自体が無いので、自分でやろうとしてることの、
可否、考え方の良否が不安で頭の隅から離れません　はぁ・・・

>>99さん
その方法っていわゆるリレーショナルDBと同じ考え方ですよね？
後々便利そうでは有るんですが、現状たった一つのテキストを
扱うのにｲｯﾊﾟｲｲｯﾊﾟｲなモノでして・・・・
それらを各キー（番号）を使って扱うなんてとても無理です・・・
>>101
えっと、上のほうに書いた気もするんですが、楽天って高いじゃ無いですか？
で、そのコストパフォーマンスの悪さに辟易した友人から相談されたわけです。
楽天で売上上がらないところもそうだけど、上がってるとこだって、
ドメイン取っといて契約が終わる直前にでも誘導すれば、コスト抑えられると
思うんですが・・・・・ま、セキュリティの問題とかｺﾝﾋﾞﾆ決済とかの利便性も
有るんで一概には言えないと思いますが・・・・
でも、月五万（でしたっけ？）の粗利を稼ぐって楽じゃないと思うんですが。
特に楽天に多い、花屋とかアクセサリ屋とか。

すいません、sage忘れました・・・

で、この板見ていて感じたんですが、常駐住人の方は、業務で
ﾊﾞﾘﾊﾞﾘと大きなお仕事をしてる方がほとんどなのでは無いかと。
でも、上の例にあるような、花屋とか産直の食品扱ってるとことか
、業者に3桁万円の金を払って頼むのは無理だけど・・・・
ってところはいっぱいあると思うんですよね。私の知り合いも、そのクチ
でして・・・・
で、フリーとかシェアで探してみても、どれも、帯に短し＜以下略＞
って感じだったんで、良い機会だから、と思ったわけです。
ちなみにその知人の所はフリーの使ってとりあえず、稼動出来るようには
しました。

1は保険とか絶対入らないタイプだな
(こう言うの見てるとカード使うのは怖いのぅ。。)

確かにユーザー側の利便性（安心感）って言うのは重要なファクター
ですね。ただ、現在のECの普及見ると、いずれ貸鯖にしてもその辺
が整備されていくと思うんですよ。上に出てきたベリサイン使う
って手も有るでしょうし。
って、もっともらしいこと書いてますが、たまたま、上記のような
頼まれ事がきっかけ（Perlを覚えてみようと思った）になっただけです。
そもそも、ゼロから初めて、実運用に耐えられるものが作れるとは
思ってませんし・・・・

ちなみに、保険は家計を圧迫するほど入っております・・ﾊｲ

基本的にそう言う事は共用でするもんじゃ無いと思うぞ。
共用サーバなんてのは本当のROOT以外に、何故か何でも出来る(所謂、夜のroot)
輩が何人か居ると思って間違い無い。
そう言う奴に対してDBの安全を保障出来ないだろ？
そうなると、スクリプトの安全も勿論だが、寧ろ管理するOSの
勉強の方がずっと大事だと思う、実務レベルではね。
perlのスクリプトってのは安全なんだよ、標準関数が豊富だから
得体の知れない外部コマンドを使わなくていいし、perl自身が実行前に
権限のチェックを厳密にしてるからね。
それと通信経路の暗号化も大前提、今時SSLも使ってない所は誰も使わないよ。
いずれにしてもその調子で一通り動く物が出来ても多分穴だらけだと
思うから、一冊FW構築本なんかを読む事をお勧め。

あ、何か読み直したら結構適当な事言ってる
酔っ払いなんで読み流してくり

1さんって、何年か前に●nakaとか名乗ってませんでした？

>>108
いや、人違いだと思いますよ。この板本格的に見始めたの極最近なので。
>>106-107
ご忠告、ご提案ありがとうございます。やはりセキュリティ関連の勉強は必須
ですかね。今はともかPerlでCGIを書けるようになることでｲｯﾊﾟｲｲｯﾊﾟｲですが、
時間のあるときにその手の本も目を通してみます。

>>109
106ではないのだが、共用鯖でセキュリティといっても限界があると彼は言ってる
のだと思われ。
テストでサンプルデータ入れるのは問題ないけどそれを本格運用する場合には
気をつけてくれってことだろ。
とにかく形にもなってないんだろうからがんばれよ

>>1
本当に書いてるなら、できあがってるところまでのコードを見せてよ。
どこかでDLしたものはナシね。

>>110
了解です。＞セキュリティの件
あと励ましありがとうございます。
>>111
本当に書いているんでが・・・・
今のところ、あれこれいじりながら、何をすれば何が起きるのか？ってのを
確認してる段階なので・・・
Hallo World! に毛が生えた程度のもの晒すのもどうかと・・・

未経験から始めるのならPHPの方がよかったと思うよ。
2か月くらいかかったけど素人でもできたから。

楽天じゃなくても安価な（無料な）ショッピングモールって結構あるじゃん。
何でそれらを使わないの？
http://www.cubit.co.jp/shopgear.html
http://www.mallkun.com/
このへんで良いじゃん。

>>114
商売にしたいんじゃないの。

別に商売にしてもそれはそれでいいと思うんだよな。
使う人間が便利だと思えばね。
GPLにしてくれとはいわないよ(笑)

>>116
俺も別に悪いとは思わないよ

売るのは悪くないがショッピングカートCGIって売れるか？
シェアウエアがあるのは知ってるがフリーな物も沢山あるし
無料レンタルもあるからよっぽど使いやすく堅牢な奴でないと
買う奴は居ないと思うが。

レスキューのヘボい奴でもそれなりのユーザはいるので親切なページ生成が
作ってやれば需要はあると思われ。
堅牢性は本来最重要なのだが評価されにくいね。

なるほど、じゃあ使いやすいUIのCGI生成プログラム作ったら売れるかな。
堅牢性は知識無いから考えないことにしよう（藁

じゃ、負荷テストプログラムを用意して
脆弱そうなところに堅牢なのを売る、と。

いつの間にやら、いろんなレスが・・・・
商売については・・・頭の隅の方に無いって言えばウソになりますが、
とてもじゃ、無いですけど今の段階じゃ(藁
確かに、シェアやフリーであることは有るんですが、いろいろ調べてみると
結構痒い所に手に届いてるものが無い。思うに「通販サイト」に直接
携わってない人たちが作ってるのでは無いかと・・・
実際、頼まれて見ると、運用者側に親切な機能が搭載されて無かったりします。
ページの生成機能なんて最たるものですね。
ここの皆さんのように、スクリプトをホイホイ書けるような人たちなら
小遣い稼ぎくらいすぐ出来るんじゃないですか？　”商売”ってなるとまた難しいでしょうが・・・

れすきゅーにOEMするとか (藁

はっきりいって１時間あれば作れるよ
>>1さんのような人も使うと思うとやっぱりフリーで免責事項書いたって
やだな（わら

別に>>1は嫌いじゃないぞ、そういう何かに挑む姿勢は好きだ。
いろいろ試してみて３ヵ月後くらいにはいい友達になれそうだ、がんばれ

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

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

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

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

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

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

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

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

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

>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;
}
で、良いのでは？
きっと誰かが最適化してくれるだろうけど。

>133
あ、訂正。

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

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

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

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

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

$nadanは→$nedanは

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

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

PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL
PostgreSQLPostgreSQLPostgreSQLPostgreSQLPostgreSQL

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

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

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

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

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

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

さて、ここまでの結論

・>>1には絶対無理

でよろしいか？

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

>>154に同意

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

うちもPHPで格闘中。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

>>176
OK,OK

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

クッキー・・・
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
}

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

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

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

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

で"$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";
}

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

とりあえずクッキーに関しては>>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に格納・・・
みたいな事を考えたんですが・・・

>187

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

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

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