CGI Perl総合at HACKCGI Perl総合 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト5:名無しさん 01/03/16 01:08 >>4 何がしたいのかさっぱりわからん。 これで良いのか？ open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); @LINES = <IN>; close (IN); $xx = "c"; foreach (@LINES) { my ($t1, $t2, $t3) = split /<>/; next unless $t2 eq $xx; $t3++; $_ = join ("<>",$t1,$t2,$t3); last; } open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); print OUT (@LINES); close (OUT); 6:名無しさん 01/03/16 01:10 あ、いかんいかん。 foreachにはいるまえに chomp(@LINES) 出力は print OUT join("\n", @LINES); 7:名無しさん 01/03/16 01:15 >>2 全部。0点。 ・sendmail 使うなら -tとか使え。 ・ヒアドキュメント使え。 ・CGIモジュール使うなら、あえて%formにセットすることないだろ ・Content-type自分でださなくていいだろ。 CGIモジュールつかうなら。 ・未定義値が欲しいなら eq undefするだろ、ふつー。 でdieしたらサーバーエラーになるだろ、自前ルーチンで表示させたれ。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch