くだらない質問でも偉そうに聞いていいスレ (730ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

27(2): 2010/04/15(木)20:51 ID:??? AAS
>>20
perlですが、こんな感じでいかがでしょう。DBIx::Simpleを入れてくださいね。

#!/usr/local/bin/perl
use strict;use warnings;use CGI;use DBIx::Simple;use Digest::SHA1 qw(sha1_hex);
my$q=CGI->new;print$q->header(-charset=>'utf-8'),$q->start_html('message'),$q->
start_form(-action=>$q->script_name),$q->textfield(-name=>'value',-size=>64),$q
->submit('leave a secret mess'),$q->end_form,$q->hr;my$db=DBIx::Simple->connect
('dbi:SQLite:dbname=secret_message.db')or die DBIx::Simple->error;$db->query(qq
{CREATE TABLE IF NOT EXISTS message (key, value)});if($q->param('key')){my@mes=
$db->select('message','value',{key=>[$q->param('key')]})->hashes;for my$m(@mes)
省4

---

30(1): 15 2010/04/16(金)09:08 ID:??? AAS
>>27 >>29 よくやった。お疲れさん。

しかしXREAでは動かんようだ。
>>29のコードをUTF-8BOM無しで"read_once.cgi"という名前で保存、
dbファイル"secret_message.db"は同じディレクトリに置いた、
あとはどうすれば良い？

---

43(1): 15 2010/04/19(月)12:05 ID:??? AAS
キー付きURLをアンカーリンクにしたのでは、うっかり書き込んだ本人がクリックしてしまって、
メッセージが消えてしまうではないか！ｗ　テキストエリアに書き出すことにした。
ちょっと古い携帯電話ではWebページ中の文字列をコピー出来ないのでな。

とりあえずここまでのソースは下記の通り。間違いがあったら指摘してくれ。
オリジナルのソースを書いてくれた>>27には改めて敬意を表する。
外部ﾘﾝｸ:codepad.org

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.260s*