- 1 名前：nobodyさん mailto:sage [2008/02/25(月) 19:25:51 ID:???]
- Perlのコーディングで困ってる人のスレです。
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ pc11.2ch.net/test/read.cgi/php/1189939783/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
- 458 名前：nobodyさん mailto:sage [2008/05/06(火) 00:50:15 ID:???]
- >>455-456
>>1を100回声を出して読め。
読み終わったら610と三ポールのミックスカクテル飲め。
- 459 名前：nobodyさん [2008/05/06(火) 00:51:09 ID:fJq/GBDg]
- (｀･ω･´)ソフト使ってるだろｗｗ
- 460 名前：nobodyさん mailto:sage [2008/05/06(火) 09:09:26 ID:???]
- Windowsローカルに入れたActivePerlで
cpan > install XML::ATOM::Feed
したのに、それを500エラーになってしまいます
（useしてるところをコメントアウトすると通る）
moduschで見たら「存在しないか、ロード出来ない」っぽい
なぜでしょうか…？
- 461 名前：nobodyさん mailto:sage [2008/05/06(火) 16:59:23 ID:???]
- >>442
BCCで目的は達成できると思うけど、
自分のメールアドレスを、スパムを送りたい先などにされると
簡単にスパムの踏み台になるから気をつけてね。
- 462 名前：nobodyさん [2008/05/06(火) 22:50:17 ID:wGWcI8Lv]
- AUTOLOADってのを初めて使ってみたんです。
未定義の関数を読んだら無事AUTOLOADが呼ばれたんですが、
変数$AUTOLOADを参照するとGlobal symbol〜っていうエラーが出てしまいます。
AUTOLOADを使う場合はno strictしていいものでしょうか。
- 463 名前：nobodyさん mailto:sage [2008/05/07(水) 00:05:35 ID:???]
- use strict;
use warnings;
sub AUTOLOAD {
our $AUTOLOAD;
print $AUTOLOAD;
}
foo();
- 464 名前：nobodyさん mailto:sage [2008/05/10(土) 23:18:32 ID:???]
- URL転送なんだけど今こうしてます↓
#!/usr/bin/perl
print "Location: *****\n\n";
これに転送するまでHTMLの<meta content="x">みたいに
一定時間ウェイトかける事って出来るのでしょうか？
- 465 名前：nobodyさん mailto:sage [2008/05/10(土) 23:19:01 ID:???]
- いいえ
- 466 名前： ◆TWARamEjuA mailto:sage [2008/05/11(日) 01:16:36 ID:???]
- 転送するまでひと寝入りする。
- 467 名前：nobodyさん mailto:sage [2008/05/11(日) 02:11:14 ID:???]
- >>464
いい事いうじゃねえか。
出来るんだな？
今すぐ頼むぞ。
- 468 名前：nobodyさん [2008/05/11(日) 13:18:10 ID:yMOlxpUv]
- print qq{あいうえお @{[1+1]} かきくけこ };
無名配列のリファレンスとデリファレンスを使ってクォート内に式を埋め込めます。
これ気に入っててよく使うんですが、これのスカラーリファレンス版ってできませんか？
\$()
無名スカラーって存在しないんですかね。
いやそもそも@{[]}に式を埋め込めるのはそこをクォート内ではないと認識するからなわけで。
いや、う〜ん。確かこれなんかいい方法があったような期がするんですが。
- 469 名前：nobodyさん [2008/05/11(日) 23:02:44 ID:Vy6R2X5C]
- Perlスクリプトの処理が全て完了する前に
クライアントとの接続を明示的にクローズする方法は
ありませんでしょうか？
以下のようなことが実施したいです。
どなたかよろしくお願いします。
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html><body>なんちゃら</body></html>";
## ここで明示的にクライアントとのConnectionをクローズしたい。
## ここからクライアント側に影響がない時間がかかる別の処理を実施したい。
&HokaNoShori();
exit;
- 470 名前：nobodyさん [2008/05/12(月) 01:08:40 ID:CYOIx0A2]
- perlで重い処理をさせるのが困ります。
例えばパソコンの30％の能力だけ使わせるとかってできませんか？
- 471 名前：nobodyさん mailto:sage [2008/05/12(月) 01:16:51 ID:???]
- >>470
それは知らないけど、nice付けて起動とかしてみては？
- 472 名前：nobodyさん mailto:sage [2008/05/12(月) 03:09:36 ID:???]
- >>468
qq{ ${\do {1+3}} }
- 473 名前：nobodyさん mailto:sage [2008/05/12(月) 04:50:44 ID:???]
- >>469
close(STDOUT);
- 474 名前：nobodyさん mailto:sage [2008/05/12(月) 10:21:48 ID:???]
- >>469
fork
- 475 名前：nobodyさん mailto:sage [2008/05/12(月) 16:03:50 ID:???]
- WindowsXPでActivePerlを使って
クリップボードにあるテキストに処理を加えて
クリップボードに戻すプログラムを作ろうとしています。
Win32::Clipboardを使用しているのですが、Unicodeだと化けてしまいます。
Unicodeでも化けないで処理できる方法はあるでしょうか？
- 476 名前：nobodyさん [2008/05/12(月) 16:08:19 ID:CYOIx0A2]
- >>472
思い出した！
print qq{ ${ \(1+1)} };
でしたね。
なるほどなるほど。${}これでデリファレンスができるというわけだ。
- 477 名前：nobodyさん mailto:sage [2008/05/12(月) 17:20:30 ID:???]
- Win32::Clipboard が受け取るのは Shift_JIS 固定っぽいです
Encode でShift_JIS にして渡してみたらどうりますか？
- 478 名前：nobodyさん mailto:sage [2008/05/12(月) 18:00:21 ID:???]
- >>477
回答ありがとうございます。
Shift_JISにない文字も処理したかったので
Win32::Clipboardでは無理と言うことですね。
Win32::Clipboard以外でクリップボードを利用できるものはありますか？
- 479 名前：nobodyさん mailto:sage [2008/05/12(月) 20:22:51 ID:???]
- 文字化けしないようにする方法教えてください
use LWP::Simple;
my $page = get('hogehogehoge.jp/');
getprint('hogehogehoge.jp/');
print $page
- 480 名前：nobodyさん mailto:sage [2008/05/12(月) 21:36:53 ID:???]
- >>479
ヒント：Jcode
- 481 名前：nobodyさん mailto:sage [2008/05/13(火) 01:04:45 ID:???]
- perl 文字化け でググれカス
- 482 名前：479 mailto:sage [2008/05/13(火) 03:44:42 ID:???]
- エスジス保存しておいたソースファイルをEUCに変更保存してみたけど
何も変わんないですよ
- 483 名前：nobodyさん mailto:sage [2008/05/13(火) 06:45:22 ID:???]
- >>482
「ソースファイル」ってのが上の us-ascii で足りそうなコードのことだったら
SJIS → EUC しても何も変わんないですよ。
環境その他も書かれてないし、変換に興味なさそうなので
perl hoge.pl > test.html
して「まともなエディタで見れば文字化けしない」でいいのかも。
- 484 名前：nobodyさん mailto:sage [2008/05/13(火) 13:57:38 ID:???]
- >>464
Location:を表示する前にwaitをいれればおk
- 485 名前：nobodyさん mailto:sage [2008/05/17(土) 19:31:00 ID:???]
- $obj = new Class;
$obj = Class->new();
この二つの違いは何ですか？
- 486 名前：nobodyさん mailto:sage [2008/05/17(土) 20:03:56 ID:???]
- おんなじ。どっちのClassクラスのコンストラクタを呼んでるだけ。
Classってサブルーチンが定義されてるときに問題がおきることがあるので、
$obj = Class->new;
の形式のほうが推奨されるけど。
- 487 名前：nobodyさん mailto:sage [2008/05/17(土) 23:09:13 ID:???]
- >486
ありがとんです
- 488 名前：nobodyさん mailto:sage [2008/05/18(日) 11:25:25 ID:???]
- 俺はコンストラクタを呼び出すときだけはnew Classってしてあとはぜんぶ$obj->sub()ってするかな。
- 489 名前：nobodyさん mailto:sage [2008/05/19(月) 06:36:14 ID:???]
- なんだか、急にCPANでエラーで全く動かなくなったので、いろいろ調べてみたら、
ERRNO.pmが、MSWin32-x86-multi-thread-5.00（Windows Updateでいつの間にか変わってた）を弾いてた。
とりあえず、ERRNO.pmを書き換える（！）ことで対処したんだけど、
他に同じトラブルあってる人いません？
- 490 名前：がんちゃん mailto:sage [2008/05/19(月) 10:02:27 ID:???]
- perlでImage::MagickのAnnotateを使って画像と文字を合成できたのですが
出来上がった画像を右クリックして保存しましたが
そのファイルが開けません。
何が原因でしょうか。宜しくお願いします。
- 491 名前：nobodyさん mailto:sage [2008/05/19(月) 11:27:27 ID:???]
- >>490
開けないとは具体的にどういうこと?
単に、変なファイル名(拡張子)で保存してしまって、ダブルクリックしても関連づけの問題で開けないってことではなくて?
- 492 名前：がんちゃん mailto:sage [2008/05/19(月) 12:15:34 ID:???]
- うっせーよ！それぐらい分かるっての！腐った回答してんじゃねぇよｗｗｗ
- 493 名前：がんちゃん mailto:sage [2008/05/19(月) 12:29:05 ID:???]
- * *
＊ ＋ うそです
n ∧＿∧ n
＋ (ﾖ（* ´∀｀）E)
Y Y ＊
- 494 名前：がんちゃん mailto:sage [2008/05/19(月) 12:32:08 ID:???]
- なんだここの人たちはこれぐらいの質問も答えられないの？
回答者が初心者のスレだったのか・・・
- 495 名前：がんちゃん mailto:sage [2008/05/19(月) 12:35:01 ID:???]
- * *
＊ ＋ うそです
n ∧＿∧ n
＋ (ﾖ（* ´∀｀）E)
Y Y ＊
- 496 名前：nobodyさん mailto:sage [2008/05/19(月) 14:06:12 ID:???]
- print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$image->Write('jpeg:-');
ソース晒せや。
- 497 名前：nobodyさん mailto:sage [2008/05/19(月) 14:11:40 ID:???]
- なにこの流れ・・・
- 498 名前：nobodyさん mailto:sage [2008/05/19(月) 15:48:41 ID:???]
- 質問の仕方も知らないというか、質問の文章すら正しく書けない馬鹿が多すぎ
Perl云々の前に日本語学校行け
- 499 名前：nobodyさん mailto:sage [2008/05/19(月) 15:59:52 ID:???]
- \E
- 500 名前：nobodyさん mailto:sage [2008/05/19(月) 16:39:50 ID:???]
- はい、次
- 501 名前：nobodyさん mailto:sage [2008/05/19(月) 16:41:56 ID:???]
- >>498
お前の文章が一番変だわ
- 502 名前：nobodyさん [2008/05/19(月) 18:36:38 ID:82E4EJS9]
- すみません。ド素人です。
質問です。
Can't locate GD/Image.pm in @INC (@INC contains: C:/perl/site/lib C:/perl/lib .)
というソフトウェアエラーが出て、CGIを実行できません。
どうかどうか、教えてください。
- 503 名前：nobodyさん mailto:sage [2008/05/19(月) 18:38:59 ID:???]
- GD を入れてください
はい次
- 504 名前：nobodyさん [2008/05/19(月) 18:39:34 ID:82E4EJS9]
- GDは入れてるんですけど、image.pmってのがなにか、わかんないんです。。。
- 505 名前：nobodyさん mailto:sage [2008/05/19(月) 18:44:49 ID:???]
- GD-Image-Thumbnail でも居れておきゃえぇんとちゃうのん？
- 506 名前：nobodyさん [2008/05/19(月) 18:45:58 ID:82E4EJS9]
- 505さん ありがとうございますぅやってみます。
- 507 名前：nobodyさん mailto:sage [2008/05/19(月) 18:47:44 ID:???]
- search.cpan.org/~lds/GD-2.39/GD/Image.pm.PLS
- 508 名前：nobodyさん [2008/05/19(月) 18:54:23 ID:82E4EJS9]
- 507さん。。ありがとうです。
けど、このページの、なにをどうすればいいのか。
わかりません
どうしようもない素人なので。。
- 509 名前：nobodyさん mailto:sage [2008/05/19(月) 19:12:16 ID:???]
- *.pmってのはPerlモジュール
エラーの内容は「このモジュールがみつからないよパパ」
→インスコor場所確認
とりあえずモジュールが入ってるか確認する
→ぐぐる
入っていない場合、モジュールをインスコする
→ぐぐる
入っている場合、パスを確認する
→ぐぐる
- 510 名前：nobodyさん mailto:sage [2008/05/19(月) 19:26:15 ID:???]
- GDのバージョンを2.39に上げれば解決。
- 511 名前：nobodyさん mailto:sage [2008/05/19(月) 19:58:48 ID:???]
- 「初心者」「素人」は分からないからフルサポートしてもらえる理由になりません。
- 512 名前：nobodyさん [2008/05/19(月) 20:03:39 ID:82E4EJS9]
- GD2.39の中のGD.pmとGDフォルダを /perl/libの中にドラック＆ドロップしてるんです。
これは、どこかのサイトに書いてあったので。しました。
そしたら、エラーがでて。GD/Image.pmがどうのこうのとなってまして。
505さん507さん509さん510さんの言葉も、正直、理解しきれてない状況です。
まず、インスコというのが、コマンドプロンプトでするらしいとどこかに書いてて、
してみたんですけど。まず、「ｐｐｍ」とすると、perlpackagemanagerが起動して、
その中に、GDがなくて。どやってインストールしていいのかも、わかんない感じです。
すみません長々と。どうかお助け願います。。
- 513 名前：nobodyさん mailto:sage [2008/05/19(月) 20:03:43 ID:???]
- ローカルで試そうとしてるやつが、
どうしようもない素人を名乗るなよ。
向上心ねぇのか
- 514 名前：nobodyさん mailto:sage [2008/05/19(月) 20:16:06 ID:???]
- >>512
www.bribes.org/perl/ppmdir.html
ここへいってら。
それができたら、こっちも回っておくように。
theoryx5.uwinnipeg.ca/ppms/
- 515 名前：nobodyさん [2008/05/19(月) 20:18:47 ID:82E4EJS9]
- 514さんありがとうございます。
読んでます。
- 516 名前：nobodyさん [2008/05/19(月) 21:08:55 ID:82E4EJS9]
- やっぱりエラーになります（涙
- 517 名前：nobodyさん mailto:sage [2008/05/19(月) 21:35:03 ID:???]
- リポジトリを増やしたのだからインストールできるはずだが。
掲示板なんだから、レスに主語と述語をはっきり書いてくれ。
とりあえず、頭にエラーが出たのか？
- 518 名前：nobodyさん mailto:sage [2008/05/19(月) 22:17:16 ID:???]
- 良く読んでないけど、
スタート→すべてのプログラム→ActivePerl→Perl Package Managerで
必要なものをクリック、クリック！した方が楽で簡単だよ。
- 519 名前：nobodyさん [2008/05/19(月) 23:01:51 ID:82E4EJS9]
- perl package managerの中に GDが見当たらないんです。
コマンドプロンプトで CPANから install GDってしても
できないんです。
GD/image.pmが＠INCに無いっていうエラーが出るんです。517さん。
- 520 名前：nobodyさん mailto:sage [2008/05/19(月) 23:13:22 ID:???]
- >>519
>>514サイトをよく読んでppmにリポジトリを追加すると、GD 2.39がインストールできるようになる。
ちゃんとリポジトリを追加したか？
それでも出ないというのなら、ppmに問題があることになる。
- 521 名前：nobodyさん mailto:sage [2008/05/19(月) 23:23:58 ID:???]
- ttp://mikiho.jp/memo/?log=20070111_141552
serach のとろを
s GD
としてくださいな
これでも出来なければ諦めてください
サポートしきれないです
- 522 名前：nobodyさん mailto:sage [2008/05/20(火) 01:25:53 ID:???]
- pub.ne.jp/wakapon/?entry_id=82091
Perl 5.8ならなんか面倒そうなんだけどこれかな？
- 523 名前：nobodyさん [2008/05/20(火) 03:52:12 ID:U/T3y6km]
- ここ見て、Win用のGD-2.39来てるのかと思い、threory58に行くも2.35しかないじゃないか！？ぷんぷん。
ふと、PPM-Repositoriesを0.14に上げて見るとbribesなるレポがあるので、これを見に行くと、
おおー、結構新しいの来てるじゃないか〜と、調子にのってperl areaのmoduleもUpしまくる。
しかし、Compress-ZlibをUpすると、Bandleされてたversionを上書きしてしまい、
それ以降ppmがtar.gzファイルを展開できなくなってしまった。(今まで見たことないエラーでPPMが落ちる)
とゆうことで、今やっと再インストールと、(自分のよく使う)各種モジュールのインストール、最新版へのUpデートが終わった。
なんとか、Compress-Zlibも2.010に上げる事ができた。
ふう、疲れたぜ・・・・。
- 524 名前：nobodyさん mailto:sage [2008/05/20(火) 04:15:25 ID:???]
- そうなんだお疲れちゃん
- 525 名前：nobodyさん [2008/05/20(火) 14:16:09 ID:XrCi5l42]
- 519です。
いろいろサポートいただいて、できました。
ほんとに感謝してます。ありがとうです。
- 526 名前：nobodyさん mailto:sage [2008/05/21(水) 00:33:37 ID:???]
- phpのexplodeみたいに、
正規表現を使わずに高速に動作するsplitの代わりはないでしょうか？
- 527 名前：nobodyさん mailto:sage [2008/05/21(水) 01:39:24 ID:???]
- substrでループさせる自前の関数でも作れば？
- 528 名前：nobodyさん mailto:sage [2008/05/21(水) 01:41:57 ID:???]
- それって速いのかな。。
indexとsubstrを併用してちょっと試してみるか。
- 529 名前：nobodyさん [2008/05/21(水) 11:18:20 ID:crauFAgn]
- モジュールが一切入っていないレンタルサーバで、xmlを読み込もうとしています。
ググってみると、どこもXMLとLWPというモジュールを読み込む事が前提になっているようなのですが、
何も無い状態でXML
- 530 名前：529 mailto:sage [2008/05/21(水) 11:19:42 ID:???]
- すみません途中で送信してしまいました…orz
モジュールが何も無い状態でXMLを読み込むために
参考になるようなサイトがありましたら、ご教示下さい。
宜しくお願いします。
- 531 名前：nobodyさん mailto:sage [2008/05/21(水) 12:00:10 ID:???]
- ソケット使ってゴリゴリ書くしか無いんじゃないかな
- 532 名前：nobodyさん mailto:sage [2008/05/21(水) 12:06:34 ID:???]
- モジュールが一切入っていないレンタルサーバでソケットが使えるようにインストールされてる
とはとても思えないが・・
- 533 名前：nobodyさん mailto:sage [2008/05/21(水) 12:14:45 ID:???]
- xmlそのものについても調べてる状態なんですが、
どうも事実上無理っぽいということですかね…orz
お騒がせしました、ありがとうございました。
- 534 名前：nobodyさん mailto:sage [2008/05/21(水) 13:46:16 ID:???]
- php が動くなら php 普通にネットワーク経由でファイル開けるので php も考慮してみれば？
- 535 名前：nobodyさん mailto:sage [2008/05/21(水) 23:33:50 ID:???]
- >>529,530
XMLを読み込むだけなら、XML::TreePPでXMLが読める。
別サイト上にあるXMLを読むならLWP等が必要。
- 536 名前：nobodyさん mailto:sage [2008/05/22(木) 08:42:14 ID:???]
- 質問です。Snアップローダー（sugachan.dip.jp/obsolete/snup/）の
ファイル個別HTMLを作成する部分で
$buff = "<html><head><title>$filename</title></head><body>";
$buff .= qq|Download <a href="./$filename">$filename</a>|;
$buff .= '</body></html>';
（ソースの760行目付近です）
特定の拡張子のみ別のHTMLコードを書き出したいのですが
if文で$filename等試してみましたが上手く行きませんでした
どなたか分かる方宜しくお願いします
- 537 名前：nobodyさん mailto:sage [2008/05/22(木) 10:13:46 ID:???]
- 改造スレいけ
- 538 名前：nobodyさん mailto:sage [2008/05/22(木) 12:40:41 ID:???]
- $buff .= qq|Download <a href="./$filename">$filename</a>|;
こういう書き方もあるんだ。勉強になったｗ
- 539 名前：nobodyさん mailto:sage [2008/05/22(木) 13:18:50 ID:???]
- 毎行クォート変えるくらいならヒアドキュメント使えよ
- 540 名前：nobodyさん mailto:sage [2008/05/22(木) 13:25:55 ID:???]
- ヒアドキュメントもコーディングの桁揃えと、HTMLの桁揃えでタブを使うと、すっきりする方法
がなかなか見つからない。
- 541 名前：nobodyさん mailto:sage [2008/05/22(木) 13:40:38 ID:???]
- >if文で$filename等試してみましたが上手く行きませんでした
どう試して、どういう結果になったのか書かないと。
基本だと思うが。
- 542 名前：nobodyさん mailto:sage [2008/05/22(木) 17:17:18 ID:???]
- >>540
普通に cookbook にある解ではダメなのか？
ttp://www.unix.com.ua/orelly/perl/cookbook/ch01_12.htm
- 543 名前：nobodyさん [2008/05/24(土) 13:22:00 ID:CztaXqIN]
- セッション変数の受け渡しについての質問です。
print <<EOT
<form action="localhost/cgi-bin/session.cgi" method="post">
<p>
<label for="nm">お名前：</label>
<input type="text" name="namae" id="nm"><br>
<label for="ma">メール：</label>
<input type="text" name="email" id="ma">
</p>
<p>
<input type="submit" value="送信">
<input type="reset" value="リセット">
</p>
</form>
EOT
;
これらのフォームデータをセッション変数としてsession.cgiに受け渡したい
のですが、どのようにすればよいでしょうか？
CGI::sessionモジュールを利用して、session.cgi側で
$hoge=$cgi->$session->param('namae');
などとすればセッション変数として受け取れる事は分かったのですが、
フォームからの受け渡し方が分かりません…。
よろしくお願いします。
- 544 名前：nobodyさん mailto:sage [2008/05/24(土) 13:38:27 ID:???]
- hiddenで投げれ
- 545 名前：nobodyさん mailto:sage [2008/05/24(土) 13:41:36 ID:???]
- >>543
どれがセッション変数なの？
- 546 名前：543 [2008/05/24(土) 13:47:45 ID:CztaXqIN]
- >>544
hiddenフィールドを利用すればセッション変数として受け渡されるのでしょうか？
>>545
「お名前」や「メール」フォームに入力された文字列をセッション変数として
session.cgiで受け取りたいと考えています。
- 547 名前：nobodyさん mailto:sage [2008/05/24(土) 13:47:48 ID:???]
- CGI.pmでデータを受け取るところから勉強を始めるべき。
セッションはその後。
- 548 名前：nobodyさん mailto:sage [2008/05/24(土) 13:49:52 ID:???]
- ・hidden
・GET
・cookie
わざわざCGI::session使うくらいなんだから、普通はcookie使うんじゃね？
- 549 名前：543 [2008/05/24(土) 13:53:40 ID:CztaXqIN]
- >>547
すいません。>>543の書き込み微妙に間違っています。
$hoge=$cgi->$session->param('namae'); のところ
通常データの受け取りは
$hoge=$cgi->param('namae');
セッションでの受け取りは
$hoge=$session->param('namae');
の間違いです。
- 550 名前：nobodyさん mailto:sage [2008/05/24(土) 14:04:47 ID:???]
- >>549
受け渡しの情報が知りたいって言ってるのに、
受け取りのソース書いてるから、それを指摘されてるんだよ。
＞基本的にはセッション系モジュールの役割は、特定のキー＝セッションIDに紐付けて、
＞データを保存したり、読み込んだりといったことです。
＞セッションIDの受渡しはCGI側でする必要があります。
ヒント：digit.que.ne.jp/work/wiki.cgi?Perl%e3%83%a1%e3%83%a2%2fCGI%3a%3aApplication%3a%3aPlugin%3a%3aSession%e3%83%a2%e3%82%b8%e3%83%a5%e3%83%bc%e3%83%ab
- 551 名前：543 [2008/05/24(土) 14:05:03 ID:CztaXqIN]
- cookieにセッションIDやもっておきたいデータ(今回の場合、お名前やメール)を記述しておき、
サーバ側から要求があった時点でクライアントはそのcookieのデータを受け渡す
といったイメージで良いのでしょうか。
うぅ、難しい。。。
- 552 名前：543 [2008/05/24(土) 14:13:48 ID:CztaXqIN]
- >>550
＞受け渡しの情報が知りたいって言ってるのに、
＞受け取りのソース書いてるから、それを指摘されてるんだよ。
データを受け渡す側のソースが>>543で、受け取るソースがsession.cgiだと
認識してるのですが…。間違っているでしょうか。
もしかしたら私が勘違い？をしているのかも？
- 553 名前：nobodyさん mailto:sage [2008/05/24(土) 14:14:00 ID:???]
- >>551
正直、目的に対して技術が足りなすぎる。イヤミじゃなくてね。
トラブル起こす前に、オライリーのCGIプログラミング読破オススメ。
- 554 名前：nobodyさん mailto:sage [2008/05/24(土) 14:18:21 ID:???]
- >>552
＞受け取るソースがsession.cgiだと認識してるのですが…。
少なくてもこのソース中でセッションIDはどこにも発行してないでしょ？
後は調べなさい。
- 555 名前：554 mailto:sage [2008/05/24(土) 14:19:15 ID:???]
- ごめんミスった。
× ＞受け取るソースがsession.cgiだと認識してるのですが…
○ ＞データを受け渡す側のソースが>>543で
- 556 名前：543 [2008/05/24(土) 14:19:38 ID:CztaXqIN]
- すいません。もう少し勉強しなおしてきます。
みなさん、有難うございましたー・・・
- 557 名前：543 [2008/05/24(土) 14:23:19 ID:CztaXqIN]
- >>554
あ、ソースの一部分しか乗せてなかったためです！
use CGI::Session qw/-ip_match/;
my $session=CGI::Session->new(undef,undef,{Directory=>'./session'});
$session->expire('+1m'); #有効期限は1分間
$session->param('name','john'); #セッション経由で引き渡す項目と値
my $cgi=CGI->new;
print $cgi->header(-charset=>'UTF-8',
-cookie=>$cgi->cookie(-name=>'CGISESSID',
-value=>$session->id,
-expires => '+3M')),
#cookieにセッションidを保管
$cgi->start_html(-lang=>'ja',
-encoding=>'UTF-8',
-title=>'CGI.pm使用/cookie'),
$cgi->p('session id: '.$session->id.'<br/>',
'name: '.$session->param('name').'<br/>',
- 558 名前：543 [2008/05/24(土) 14:24:17 ID:CztaXqIN]
- 続き
print <<EOT
<form action="localhost/cgi-bin/session.cgi" method="post">
<p>
<label for="nm">お名前：</label>
<input type="text" name="namae" id="nm"><br>
<label for="ma">メール：</label>
<input type="text" name="email" id="ma">
</p>
<p>
<input type="submit" value="送信">
<input type="reset" value="リセット">
</p>
</form>
EOT
;
$cgi->end_html;
#end
すいません…！
|
 |
