08/02/20 20:04:29 AT7Ymvry
掲示板で書き込んだ人のIPを取得するにはどうしたら良いのでしょうか？
$〇〇 = $ENV{'REMOTE_ADDR'};
でIPを取得したのはわかったんですが、ﾌｫｰﾑの中に<input type=hidden name=△△ value=$○○>などで他人に書き込みさせても自分のIPが表示されてしまいます
色々ググったりしたんですが良く分かりません
優しい解説お願いします
884:nobodyさん
08/02/20 20:25:09
>>883
hiddenタグでやろうとしていることがいまいち分からないが、
通常は、書き込んだ時にログファイルに一緒にIPアドレスを
書き込むものなんだが。
885:nobodyさん
08/02/20 20:30:56
>>884
スクリプトは時刻表示とコメントだけの、一行掲示板の簡易なものです
一緒にとはどういうことなのでしょうか？
ログファイルには時刻とコメントしか載りません
超初心者ですいませんm(_ _)m
886:nobodyさん
08/02/20 20:42:58
>>885
その、時刻とコメントを書き込むファイルに、IPアドレスも一緒に
書き込む方法があるでしょといいたいのだよ。
表示する際はそのデータは必ずしも出す必要は無いのだから。
それが嫌ならば、書き込みをしたときに内部的に別なファイルにも
IPアドレスと時刻を書き込ませるようにプログラムを書けばよい。
887:nobodyさん
08/02/20 20:55:23
>>885
フォームにセットしなくても、書き込んだ人のIPはこれで取り出せるよ → $ENV{'REMOTE_ADDR'}
888:nobodyさん
08/02/20 20:55:38
>>886
IPｱﾄﾞﾚｽを一緒に書き込むﾌﾟﾛｸﾞﾗﾑの書き方を知りたいんです(；∇；)/~~色々ググって、配布されてるｽｸﾘﾌﾟﾄから該当する部分を抽出して頑張ったんですが...良く分からなかったんです、
889:nobodyさん
08/02/20 20:57:55
>>887
レスありがとうございますm(_ _)m
それでIPは表示されるのは分かったんですが、それをどこに設置すればログに書き込んだ人のIPが表示されるかが分からないんです(；∇；)/~~
890:nobodyさん
08/02/20 21:04:58
>>889
open(OUT,">> log.txt");
$line = $ENV{'REMOTE_ADDR'};
print OUT $line;
close(OUT);
891:nobodyさん
08/02/20 21:07:00
>>889
コメントの後ろにくっ付けちゃえｗ
892:nobodyさん
08/02/20 21:14:53
aska とか kent の BBS にはログにIPアドレスを記録するコードは
あったはずだが。
それらを読んでも分からないのであれば、何処かに君が書いたソースを
うｐしてここに貼りなさい。気分が向いたら改変してやるからｗ
893:nobodyさん
08/02/20 22:19:30
先程はありがとうございましたo(^-^)oおかげさまで解決しましたｗ
もう一つ質問させて下さいm(_ _)m
($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time);
$week = $weekday[$wday];
$mon++;
$date = "$mon月 $day日 $hour:$min";
という時刻表示のｽｸﾘﾌﾟﾄ(年が無駄にあるのは気にしないで下さいｗ)を使ってる？んですが、$minの所だけを1ｹﾀの秒の時だけ01や02みたいに0を先頭に付けたいのですが、どのようにすれば良いのでしょうか？
ちなみに 2月20日 22:04
というような事です！
894:nobodyさん
08/02/20 22:24:58
>>893
printf使うとか。
また、例のごとくそれの使い方が分からないということであれば、
以下のコードを付け加える。
if($min>9){
$min = "0" . $min;
}
895:nobodyさん
08/02/20 22:40:01
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$d,$d) = localtime;
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year+1900, $mon+1, $mday,
('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday], $hour, $min, $sec);
print $date;
896:nobodyさん
08/02/20 22:48:10
>>893
これはどうなの？
$date = sprintf("%2d月%2d日 %2d：%02d",$mon,$day,$hour,$min);
print $date;
897:nobodyさん
08/02/20 22:53:59
>>895
$dは無くても良いぞ。
どうしても書きたいなら、undefにすべし
それと、
my( $year, $month, $day, $hour, $min, $sec, $wday ) = ( localtime() )[5,4,3,2,1,0];
って言うのを覚えると見た目に麗しい
898:nobodyさん
08/02/20 23:05:01
perlは配列の要素が足りなければ
足りない分の後ろの要素は無視されるから
必要なければ書かなくてよろし
899:895
08/02/20 23:06:42
>>894が正常に動かない気がして5年も前に書いたやつ貼っただけだから
900:nobodyさん
08/02/20 23:12:33
下らない質問に親切に答えていただいて本当にありがとうございました！
23:06 とかできました(゜∀゜;ノ)ノ
また何かあったらよろしくお願いします!(b^ー°)
901:nobodyさん
08/02/20 23:34:16
もう２度と来るな
902:nobodyさん
08/02/21 03:45:40
>>897
$wday いらね
903:nobodyさん
08/02/21 09:53:00
>>902
あぁ、ほんとだ。
904:nobodyさん
08/02/21 16:13:36 VlnHmaCl
掲示板で
[3]内容
[2]内容
[1]内容
みたいにレス番号を付けるにはどうしたら良いのでしょうか？
905:nobodyさん
08/02/21 16:50:55
おまえ>>883だろ。
全部聞きに来るなら一から勉強しろよ。
906:nobodyさん
08/02/21 17:10:04
>>904
お前の質問の仕方は抽象杉でわけわかんねえんだよ。
質問したければお前が書いたコードをうｐれ。話はそれからだ。
907:nobodyさん
08/02/21 17:42:47
自分なりに勉強してやってみたんですが分からなかったので質問しに来ました
まあもう良いです
908:nobodyさん
08/02/21 18:09:09
>>904
全データ読み込んで、内容の数を数えて、
・ 一番上の内容を表示する前に数えた数を
・ 次の内容を表示する前に(数えた数-1)を
と出していけばいんじゃね？
データフォーマットも表示部分のソースも無いんじゃ
エスパーでもないかぎり（ｒｙ
909:nobodyさん
08/02/21 18:17:46
「出来ないやつ」の典型的なパターンだなｗ
・自分なりの勉強したはずなのに「本当に調べたの？」といいたくなる程度であるところ。
・「もう良いです。」とすぐにさじをなげるところ。
もう良いというのならば、このままPerlも辞めた方がいいぞ。道はいくらでもあるんだから。
910:nobodyさん
08/02/21 21:37:27
ちょっと直したい時に全部調べるのがカッタルイってのはすげーよくわかるよ。
おれも子供の頃「関数内から抜けるコマンド何だっけ？」と電話で聞いたことある。あれは助かった。
でも何カ所も直したり、まして新規でBBSを作るなら、オマエそれ全部おれに書かせるのかって。
911:nobodyさん
08/02/21 23:40:01
数年前はぐぐるにしても、日本語サイトが少ないからある程度英語が読めないと
駄目だったとか、検索エンジンの使い方のコツをある程度体得しておかなければ
目的のコンテンツにたどり着けなかったりしたから、その気持ちは分かる。
Perlのサンプルソースを手に入れる時、検索を使うよりも、２ｃｈの専用スレの
テンプレのURL一覧を見た方が早いなと感じた場合もあった。
だけど、今は大分検索エンジンの使い勝手も良くなり、目的のものがヒット
しやすくなった。Perlのこの程度の事なら日本語だけでも大丈夫だしね。
この状況で、このレベルのことが分からないなら、もう無理だと思う。
912:nobodyさん
08/02/21 23:46:33
ラリーもあきれ顔です
URLﾘﾝｸ(upload.wikimedia.org)
913:nobodyさん
08/02/22 07:19:54
一つの発言に対してこれ程執着するとは(^w^)
ここがどれだけ過疎ってるかを表してますね
914:nobodyさん
08/02/22 07:55:30
よし、じゃPHPのくだすれと統合するか？ｗ
915:910
08/02/22 10:59:13
>>911
っつーかｸﾞｸﾞﾚが一番要らない。何でもｸﾞｸﾞﾚばわかる筈だよ。理論上。
「これどうやるの？」「正規表現」みたいな一行レスもｸﾞｸﾞﾚと同じで意味が無い。
ｸﾞｸﾞﾚ言っていいのは通常スレ内だけで、こういうスレは隔離用だから、答えたい人
だけが見て、答えたくない人は見なければいい。教えてgooと同じ。たとえば
「C 関数 戻る」
で検索すると、return()はなかなか出て来ない。だからといって普段Tcl/Tk専門で
やってるSUNの社員に、一時的な知識のために参考書を買わせるのも無駄が多い。
ただ全部は聞きに来るなよって。
916:nobodyさん
08/02/22 11:35:20
レスの内容が「ググレカス」と「正規表現」とは大きく違うと思うが。
後者は、情報にたどり着くまでの手助けを十分にしているといえる。
ひろゆきも、この簡潔な回答が出来るのは、２ｃｈの特徴であり、
他のサイトのくだらない挨拶をしなければならないところとの
大きな違いだといってたぞ。
917:nobodyさん
08/02/22 11:40:32
質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドなのに
正規表現で分かるのかよｗ
918:nobodyさん
08/02/22 12:38:27
まぁ時間と金をかけて勉強すりゃわかるだろうけど、当面の一つの目的さえ達成できれば、
あとはPerlなんて一生触りたくない層が最も多い。つまり言語がPerlなのはあるツールが
元々Perlで書かれていたからで、欲しいのはINとOUTのデータだけ。
こういう層に正規表現をわざわざ勉強させる必要は無いし、あればとっくにやってる。
そういうわけで具体的に一連の処理を書くことが望ましい。べつに10秒で書けるんだから。
また追加モジュールの紹介も価値が低い。モジュールのインスコが一番難しいんだから。
rootが必要だし、客先のネットワークによって無保証のモジュールの導入を禁止されている。
必ずしも導入できなくはないが、自社でアップデート対応を保証しなくてはならない。
919:nobodyさん
08/02/22 13:47:46
ぬるぽ
920:nobodyさん
08/02/22 14:15:30
>>919
ガッ！
921:nobodyさん
08/02/22 16:15:50
>>918
元のソフトがPerlで書かれててPerlなんか一生触りたくないなら、
INなりOUTなりを使い慣れたプログラム言語で作ったフィルタで修正すりゃいいだろ。
一生触りたくないプログラム言語で書かれたソフトのメンテなんて断ればいい。
「どうしても」と言われたら使い慣れたプログラム言語に移植する方向で交渉すればいい。
くだすれで質問した答えを意味も分からずコピペしたソフトを使わされる顧客は悲惨だな。
よほどCPANのモジュールぶちこんでもらった方が安心できるとオモワレ。
モジュールのインストールってそんなに難しいか？
インストール先を自分の権限範囲にすればroot権限いらないモジュールも多いと思うが？
ああ、>>918みたいなクレクレ厨じゃ英語のメッセージは読めないんだな。納得。
922:nobodyさん
08/02/22 20:36:06
「思うが」は典型的なバカの言葉だからあんま相手したくないけど、もう少し具体的に
言えば、配布されているCGI-Perlスクリプトを少し直して使いたい人が非常に多い。
こういう層に向かって「勉強しろ」はありえない。
その人はそこで節約した時間を社会奉仕にあてるかもしれない。
Perlはおれの方が少し詳しいかもしれないけど、Perl知ってりゃ偉いわけじゃなし。
ｸﾞｸﾞﾚとかモジュールのご紹介とかアホを晒す暇があったら処理を書けばいいし、
それが出来ない奴は消えりゃいい。
923:nobodyさん
08/02/22 20:39:07
ああそうそう。こういうスレでｸﾞｸﾞﾚだのLWPだのほざいてる奴は
ソープランドでセックスしながら説教してるバカオヤジと同じだよ。
普通相手の人生なんて関係ないし興味もないよ。出た問いに答えればいい。
そういうスレなんだから。
924:nobodyさん
08/02/22 20:47:34 8Vusg7lr
ソープランドでセックスしながら説教してる奴なんていねーよｗｗｗｗｗ
925:nobodyさん
08/02/22 20:48:52
くだすれで顧客とか言ってる奴って何なの？
926:nobodyさん
08/02/22 21:26:16
>925
くだすれで顧客とか言ってる奴＝>918と>921で桶？
>918
＞客先のネットワークによって無保証のモジュールの導入を禁止されている。
>921
＞くだすれで質問した答えを意味も分からずコピペしたソフトを使わされる顧客は悲惨だな。
どっちにしろ最初に客先とか言い出した>918がアフォだと思うが。
927:nobodyさん
08/02/22 21:28:15
>918 >921 >922
どこを縦読み？
928:nobodyさん
08/02/22 21:40:20
Perlの質問マダァー？
929:nobodyさん
08/02/23 02:02:05
> その人はそこで節約した時間を社会奉仕にあてるかもしれない。
何で話の流れとは関係の無い仮定の話が出てきてるの？ｗ
930:nobodyさん
08/02/23 02:07:11
ま、Perl関連はまったりとしてきているので、統合もいいと思う。
例えばこっちと一緒にするとか。
Perlコーディング初心者質問スレ Part 56
ｽﾚﾘﾝｸ(php板)
931:nobodyさん
08/02/23 03:04:09 mggQq9GV
>>928
掲示板にレス番号を付けるにはどのようにすれば良いのでしょうか？
３.内容
２.内容
１.内容
みたいにして行きたいのですが...具体的に教えて下さい
932:nobodyさん
08/02/23 03:27:22
>>931
お前の書いたソースを出せと言っただろうが
933:nobodyさん
08/02/23 03:31:09
『詭弁のガイドライン』 より、引用
5. 資料を示さず持論が支持されていると思わせる
例：（世界では、犬は哺乳類ではないという見方が一般的だ）
934:921
08/02/23 16:43:38
>>922
>配布されているCGI-Perlスクリプトを少し直して使いたい人が非常に多い。
>こういう層に向かって「勉強しろ」はありえない。
スクリプト直すのに、意味も分からずコピペして直すのか。すげえな。
「客先の」とか言ってるって事は、それを金取って(もしくは客へのサービスとして)提供するわけだろ？
拾ってきたスクリプトに掲示板で質問してコピペで手直し加えて金儲けとか、せこすぎる。
そんなもん外注に出せよ。
935:nobodyさん
08/02/23 16:44:46
>>931
>908
936:nobodyさん
08/02/24 03:14:09 G7lDCCAr
>>932
URLﾘﾝｸ(nurupo.biz)
さんのdownloadの簡易コメントって奴です
[2/24] 内容
みたいになるのを
[2/24]3.内容
[2/24]2.内容
[2/24]1.内容
みたいにしたいんです
937:nobodyさん
08/02/24 06:46:40
>>936
ダウソしてソース見た。分かった事は下記の通り。
・ データファイルには 日付<TAB>内容 が1件1行で入っていて、レス番は入ってない
・ 最大記事数を超えた分はデータファイルから消える
・ 新しいレスはファイルの先頭に追加される(古いレスほど後ろにある)
・ 表示する時に@DATA（配列）に全レスを読み込んでいる($DATA[0]がファイル内のレス総数)
・ sub print 内では、$begin、$end、$iにファイルの先頭から何行目かを示す数値が入る
とりあえず考えてみた。
試してないから、ちゃんと動くかどうかは保証しない。
どんなレス番の振り方をしたいかわからんので思いつくのを並べてみた。
1. 表示してるページ内でのレス番
97行目 print "[$date] ". ($end - $begin - $i + 1) .". $text\n";
2. ファイルに残ってるレス総数中のレス番
97行目 print "[$date] ". ($DATA[0] - $begin - $i +1) .". $text\n";
3. それまでに書かれた全部の中でのレス番
何行も修正しなきゃならんしデータフォーマットも変わる(=今使ってるとしたらデータ読めなくなる)から、
最初からレス番機能が付いてる別のソフト探したほうがヨサゲ。
どうしてもってんなら考えてやらんこともない。
938:nobodyさん
08/02/24 10:48:11
printで連結演算子使うなんてもったいない。
939:nobodyさん
08/02/24 16:26:23 mX6RyV0T
>>937
わざわざ本当にありがとうございます
2.のファイルに残ってるレス総数中のレス番
で表示をしたいのですが、2.を試してみたところ
[時間]3.内容
[時間]2.内容
[時間]1.内容
[時間]0.内容
[時間]-1.内容
といった風に、どんどんマイナスになってしまいます・・・
940:nobodyさん
08/02/24 18:48:04
>>939
スマソ。
97行目 print "[$date] ". ($DATA[0] - $i +1) .". $text\n";
941:nobodyさん
08/02/24 19:21:05 mX6RyV0T
>>940
97行目 print "[$date] ". ($DATA[0] - $i +1) .". $text\n";
でやっても>>939と同様の結果になってしまいます・・・
942:nobodyさん
08/02/24 20:13:54
>>941
75行目 my $max = @DATA;
76行目 my $res_no = undef;
96行目と97行目の間に追加 $res_no = $max - $i + 1;
97行目 print "[$date] $res_no. $text\n";
でどうYO？
943:nobodyさん
08/02/24 20:33:50 mX6RyV0T
>>942
できました！！！
すごいですヽ( ´ ∇ ｀ )ノ ﾜｰｲ
本当にありがとうございましたﾜｰｲ!!＼(o￣￣￣￣￣￣￣￣￣▽￣￣￣￣￣￣￣￣￣￣o)/ﾜｰｲ!!
944:nobodyさん
08/02/24 22:00:31
printはカンマで出力しようよ。
945:nobodyさん
08/02/25 00:21:00 U/vtQwh8
二重投稿を禁止するためには
データを読み込んで1行目とフォームの内容が同じの時にエラー表示させればいいんですよね？
946:nobodyさん
08/02/25 01:29:27
>>945
そうだな。
947:nobodyさん
08/02/25 01:33:39
連投防止のノウハウといったら、何があるかな？俺が思いつくものは・・・
・時間が近すぎる場合、ＩＰアドレスが同一かをチェック
・投稿内容が（数回前までと）同じかをチェック
>>945の方法だと、二重投稿を防止することは出来ても、あらしの連投は防止出来ないよね。
ま、質問自体が二重投稿を防止する方法なので、特に言うことは無いと思うが。
948:nobodyさん
08/02/25 06:27:19
print の出力をカンマで区切ると
画面出力命令のオンオフ切替が頻発し
連結してから纏めて出力した方が速い云々
ベンチマークしてないし本当かどうか知らんけどね
949:nobodyさん
08/02/25 06:44:13
そんな事より、printでカンマ使ってると、
仕様変更でその場で出力じゃなく変数に代入とかになるとウザイ。
950:nobodyさん
08/02/25 09:45:58
>>948
URLﾘﾝｸ(boobar.hp.infoseek.co.jp)
951:nobodyさん
08/02/25 22:07:36
大差ないってことか
952:nobodyさん
08/02/26 22:28:43 TAx5gJzC
ファイルのMIME-Typeってどうやって取得するの？
PHPではmime_content_type()という関数があるみたいなんだけど、
Perlではどうやるの？
953:nobodyさん
08/02/27 00:36:15 NLm3jzH+
掲示板で仮にログファイルを@LOGと置いて、それの最新の投稿を取り出すにはどうすれば良いの？
@LOG[0]でやったんですがどうも違ったみたいで
954:nobodyさん
08/02/27 02:31:06
>>952
use CGI;
my $q = new CGI;
$q->uploadInfo($filename)->{'Content-Type'};
>>953
@LOG[@LOG-1]
955:954
08/02/27 02:37:08
>>954
use CGI;
my $q = new CGI;
my $filename = $q->param('uploaded_file');
$q->uploadInfo($filename)->{'Content-Type'};
1行書き忘れた。
956:952,953
08/02/27 03:43:32
馬鹿は無理に回答しなくていいよ
957:nobodyさん
08/02/27 07:27:20
最新って・・・
一番最後の要素ってことなら
$LOG[$#LOG]
958:nobodyさん
08/02/27 11:51:23
$LOG[-1]でよくね？
959:nobodyさん
08/02/27 18:16:19
>>956
こういう質問するでも無く答えるでも無いゴミは何がしたいんだろうね？
960:nobodyさん
08/02/28 04:40:38
君みたいな馬鹿を釣って遊ぶ
961:952
08/02/28 08:35:02 5gTQ/iME
>>954-955
レスありがとう
それはロダとかでファイルをアップロードした時の判別方法だよね？
書き忘れたんだけど、LWP::Simpleで外部画像を取得した時に判別する方法を教えてほしいです。
お願いします。
962:nobodyさん
08/02/28 11:37:27
>>961
LWP::Simple はシンプル故に、レスポンスヘッダと
コンテントボディを同時には取得できない。
URLﾘﾝｸ(search.cpan.org)
普通に LWP でリクエストを送って得たレスポンスからなら
同時に取得できる。
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(search.cpan.org)
PHP の Fileinfo() 相当のモジュールはこれ。
URLﾘﾝｸ(search.cpan.org)
963:nobodyさん
08/02/28 17:15:11 TKGGhpyN
formが
<FORM ACTION="test.cgi" METHOD="POST"><INPUT TYPE="TEXT" NAME="f" cols="10"><INPUT TYPE="TEXT" NAME="id" cols="10"><INPUT TYPE="SUBMIT" VALUE="GO">
でtest.cgiが
#!/usr/local/bin/perl
use strict;
use CGI;
require"jcode.pl";
my $cgi=CGI::new();
my $f=$cgi->param('f');
my $id=$cgi->param('id');
@test = ($f,$id);
$role = int(rand 6);
my $html=<<"EOM";
<HTML>
<HEAD>
<TITLE>test</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=Shift-JIS">
</HEAD>
<BODY>
$test[$role]
EOM
print<<"EOM";
Content-type:text/html
$html
EOM
exit;
1;
という様に、formで受けた$fと$idをランダムで表示させたいのですがerror500
となってしまいます。ﾊﾟｰﾐｯｼｮﾝは合ってると思います。なぜなのでしょうか？
964:nobodyさん
08/02/28 17:16:30 TKGGhpyN
すいません
$role = int(rand 2);
です
965:nobodyさん
08/02/28 17:52:02
>>963-964
print<<"EOM";
Content-type:text/html
$html
EOM
966:nobodyさん
08/02/28 17:58:13 TKGGhpyN
>>965
改行が多いと認識されたため、空行は省いて書き込みしました
ですので
print<<"EOM";
Content-type:text/html
$html
EOM
で書いてもerror500となります
967:nobodyさん
08/02/28 18:11:34
>>966
#!/usr/local/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
968:nobodyさん
08/02/28 18:13:24
>>967 いい人だ
969:nobodyさん
08/02/28 18:18:37
「くだすれ」の由来を教えてください
970:nobodyさん
08/02/28 18:21:36
CGI::newってつい最近知り合いも書いてたんだけど
どっかのサイトか本でそんな紹介されてるのかな？
CGI.pmは問題ないんだけど、new CGI;かCGI->new;て書く癖つけとかないと
他のモジュールでクラスが渡らなくて泣きそうでない？
971:nobodyさん
08/02/28 18:31:10
うむ。
972:nobodyさん
08/02/28 18:56:16 TKGGhpyN
>>967でやって、KENTの文法チェッカー使ったら
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$cgi" requires explicit package name at new.cgi line 6.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$cgi" requires explicit package name at new.cgi line 7.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "@test" requires explicit package name at new.cgi line 8.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$role" requires explicit package name at new.cgi line 9.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "@test" requires explicit package name at new.cgi line 10.
[Thu Feb 28 18:54:48 2008] new.cgi: Global symbol "$role" requires explicit package name at new.cgi line 10.
[Thu Feb 28 18:54:48 2008] new ｩらは。
猿だって仲間から餌を分けてもらう時は申し訳無さそうな顔するんだよ。ヘラヘラ笑いながら近づいてったら殴り殺されんぞ。
猿だったら今頃とっくに死んでんだよお前。そんな態度で今まで。研修で散々言われたよな。謝る時は申し訳無さそうな顔をしろって。
そういう学校じゃ受けられない教育を受けておきながら、社会人を経験しなきゃ得られない知識を貰っておきながら、
何にも生かせてないんだよ今のお前は。学生のサークルごっこじゃないんだから。もっと四六時中危機感を持って生きてなきゃ駄目だよ。いい加減いつまで学生気分じゃ。
973:nobodyさん
08/03/02 03:52:46
>>992
ためしに$LOG[1]を表示してみ。
974:nobodyさん
08/03/02 07:56:37 UDBaDi65
>>994
＞知識ってのはな、社会人に取って金と同じく貴重な財産なんだよ。
それを超初心者に教えてくれるのがこのスレッドの意義ですよね？
＞社会で必要とされる知識ってのはな、本になんか載ってない事ばかりなんだよ。全部人から人へ、直接のコミュニケーションを介して伝わって来たモンなんだ。
掲示板というコミュニケーションを介して聞いてますし、この内容は僕の持ってる2つのPerlに関する書籍にはありませんでした。
＞猿だったら今頃とっくに死んでんだよお前。
猿じゃないです。人間です。人間と猿のDNAはたかが2％の違いといわれてますが、それは大きな差です。猿＝人間という発想はおかしいかと。
＞いい加減いつまで学生気分じゃ。
当て水量でモノを言わないでください。あなたの投稿からは僕があたかも社会人であるかのように見えますけど、僕まだ中学3年生です。
まあ態度という点では気をつけなきゃならないのかなとは思いましたが、あなたには>>1に書かれているような優しさや、このスレッドの意義を良く理解してもらいたいものです。
>>995
ありがとうございます！できました！
ただDATA[1]だけでは、すべてのフォームの内容が取り出されて、うまく$FORM{'comment'}の部分だけを抽出できません。。
975:942=995
08/03/02 16:20:53
>>996
なあ、ガキならガキらしく、オッサンには敬意を払えよ。
あと、試行錯誤の形跡が見れないと誰も相手してくれないぞ。
悩めるだけ悩め。そしてどう悩んだか見せろ。話はそれからだ。
ヒントは、元ソースの94行目 for から99行目 }まで。
ここで、$dateには日付、$textには内容が入ってるって事。
そっから先は自分で少し考えてみろ。
分からなくなったら、自分でどう考えてどこが分からないかを書けよ。
自分じゃ何も試さないようじゃ、漏れも付き合いきれない。
いい加減甘やかしすぎだと思えてきた。
976:nobodyさん
08/03/02 16:39:55
>>997
お前、甘すぎ。バカガキは放置が基本。
977:nobodyさん
08/03/02 17:44:58 eMvpxgfI
>>999
お前糞すぎﾜﾛﾀｗｗｗ
>>998
神様すぎﾜﾛﾀｗｗｗ
978:nobodyさん
08/03/02 17:48:04
人類に平和が訪れますように
979:１００１
Over 1000 Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。