Perlコーディング初心者質問スレ Part 44

**nobodyさん** · 2005/10/17(月) 00:47:17

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 2005/10/17(月) 00:47:57

関連スレ
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

【Perl,CGI】参考書籍第三版
http://pc8.2ch.net/test/read.cgi/php/1030209573/

【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

★負荷軽減対策委員会（Perl、PHP)★
http://pc8.2ch.net/test/read.cgi/php/1034645635/

Perlモジュールについて
http://pc8.2ch.net/test/read.cgi/php/997829243/

CGIに依存しないPerlの話題一般/Part2
http://pc8.2ch.net/test/read.cgi/php/1030548610/

★三　【スクリプト改造工房 PART 8 】　★三
http://pc8.2ch.net/test/read.cgi/php/1077525387/

【スクリプト改造依頼スレ】(丸投げ) part4
http://pc8.2ch.net/test/read.cgi/php/1127916965/

**nobodyさん** · 2005/10/17(月) 00:48:29

［過去ログ] 1 of 4

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html

**nobodyさん** · 2005/10/17(月) 00:49:52

**nobodyさん** · 2005/10/17(月) 00:50:39

［過去ログ] 3 of 4

part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/php/kako/1053/10530/1053051519.html
part24 http://pc2.2ch.net/php/kako/1054/10549/1054992610.html
part25 http://pc2.2ch.net/php/kako/1056/10567/1056730690.html
part26 http://pc5.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc5.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc5.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc5.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc5.2ch.net/test/read.cgi/php/1069846177/

**nobodyさん** · 2005/10/17(月) 00:51:22

**nobodyさん** · 2005/10/17(月) 00:52:36

ム板Perlスレより 1 of 2

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www.site-cooler.com/kwl/perl/

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873110378/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.7/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://search.cpan.jp/
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/

**nobodyさん** · 2005/10/17(月) 00:53:16

ム板Perlスレより 2 of 2

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/
Perlの小技: http://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

関連スレ

正規表現道場@2ch Part4
http://pc8.2ch.net/test/read.cgi/php/1105930285/

**766** · 2005/10/17(月) 00:55:59

>>997
すいません。。ほんとに。おいらが悪いんです。ごめんなさいです。

**nobodyさん** · 2005/10/17(月) 01:08:17

前スレ999ﾜﾗﾀ

**nobodyさん** · 2005/10/17(月) 01:42:22

全然勉強してないうえ仕事でわかんなくて悩むんだったら、
誰か (ちゃんとしたスクリプトを書いてくれるとこ) に依頼した方が会社もお前もいい判断だろうに。
1～2週間やそこら悩んでできないくらいだったらそのほうがはるかにコストパフォーマンスがよいハズ。
つかそんなことで雇ってもらえてるのが、何ていうか、うらやましい。

**nobodyさん** · 2005/10/17(月) 01:48:57

同じく、前スレ999ﾜﾗﾀ

**766** · 2005/10/17(月) 01:57:00

>>11

おっしゃるとおりです。おいらもできるってゆっちゃったのがいけなかったんです。ほんとに前スレの999ですね。。。情けないです。

**766** · 2005/10/17(月) 01:59:05

色々調べて何回もいろんなソース試したりしてここまでやったんですが、、もうだめぽ。。泣

今回だけマジで助けてほしい。。お願いします。

**nobodyさん** · NG

めずらしくこのスレ盛り上がってるじゃん。うれしいよ。。

**nobodyさん** · 2005/10/17(月) 02:20:21

まだ766はいるのかな？
まだ出来てないなら要点まとめて頂戴。

まずは、送信したフォームの情報が正しく所得できているのか。
↓
POSTでなく、GETで値をみられるようにする。

データを保存する方法はわかっているのか。
↓
変数に入れた文字が保存できたのか調べる。

**nobodyさん** · 2005/10/17(月) 02:43:10

すみません、教えていただきたいのですが。
買い物などのWEBで、検索や完了まで時間がかかるとき、「ただいま検索（登録）中です」のような一時的画面を表示させたいのですが、
perlではどのような方法があるでしょうか？
一定時間（例えば１分とか）は、特定の一時ページを表示して、
完了した時に完了ページを表示するものをイメージしています。
javaなどでは時々このようなページを使っているとこがあるのですが。。。。

一応、小枝とかその他有名なサイトは見たんですが、
こういう点での会報がわからなくて。。。。

**766** · 2005/10/17(月) 02:50:52

>>16

すいません。ありがとうございますです。

・送信したフォームの情報はexcelで開いたとき、名前が文字化け（EUCでやってるからだと思いますが、解決策わからず。。）

・変数にいれた文字（回答番号　1とか2とか）はcsvに数字で保存できています。

【お手上げ】

・前スレ　>>981 に書いたような並びでexcelに保存ができなし。。
・名前をいれてなかったらエラー（送信できない）ようにしたい。

です。何卒ご指導お願いいたします。。まじですいません。

16 · 2005/10/17(月) 03:04:21

まず、先にこれだけいっておきます。
「エクセルは関係ない」。
エクセルで読める表示形式で保存したいって言うのは最後の手段で、今はそこまでいってないので頭から忘れてください。

送信する
↓
データを受け取る
↓
ファイルに保存する

第一段階でHTMLのメソッドをgetに・・・

って現段階のコード、どっかにアップしてもらったほうが早そうね。
もうちょっと常駐しとく。

16 · 2005/10/17(月) 03:21:03

納期遅れのいいわけ考えながら寝ちゃったのかな？

**nobodyさん** · 2005/10/17(月) 03:41:01

>>19
現段階のコードは前スレに。
参考にやり取りを列挙すると
前スレ http://pc8.2ch.net/test/read.cgi/php/1123777607/ の
Q >>922-925
A >>931,932
Q >>936-938
A >>950
Q >>954-956
A >>958
Q >>981,982-986 (現状の全ソース)

その要件を実装するのはすぐにできるけれど、
完成物を渡してしまっても766のためにはならないしな…

**nobodyさん** · 2005/10/17(月) 03:51:17

というかまず766は出来ないことは「できない」と言う事を学ぶべきだと思う
じゃないとまた同じ事繰り返す羽目になる

16 · 2005/10/17(月) 04:19:43

暇でネタもないので、とりあえず作ってみてる。

**nobodyさん** · 2005/10/17(月) 04:40:35

>>23
おまい、いいやつだな

**766** · 2005/10/17(月) 04:40:42

>>21

レス有難うございます。
ヒントだけでも結構です。。後はもちろん自分でなんとか完成させるつもりです。

何卒宜しくお願いいたします。

**nobodyさん** · 2005/10/17(月) 04:45:09

>>17
それ、perlとは関係ないだろう。
meta refresh か JavaScript 使いなされ。

**766** · 2005/10/17(月) 04:54:56

現状のソースをアップしますた。

http://www.nextftp.com/sentobeat/

皆さんに頼りっぱなしなのもわかっております。
ヒントだけでもいただければもちろん自分でもなんとかするようにします。

なんとか宜しくお願いいたします。。マジ泣

16 · 2005/10/17(月) 05:03:25

最初のファイルを編集してるので。
希望動作は最初のとおりでいいのよね？

16 · 2005/10/17(月) 05:12:34

アプロダの指定よろ

**766** · 2005/10/17(月) 05:13:39

>>28

まじですか　ほんとに有難うございます。。

はい。希望動作は >>18 に書いたものです。

今なんとか自分でもとりあえずエラー機能をつけようと思って
#入力チェック
if ($in{name} eq '') { &error('名前を入力してください',''); }

を頭につけてみたんですが、動きませんでした。。orz

何卒宜しくお願いいたします。

**766** · 2005/10/17(月) 05:16:11

>>29

ありがとうございます。

http://other.free-uploader.com/up/　

でお願いしますです。

16 · 2005/10/17(月) 05:30:28

とりあえずあぷ
ソース汚いままだけど保存はちゃんとされるはず。
読みにくかったfont　size=2はスタイルに勝手に変えちゃったままですが。

16 · 2005/10/17(月) 05:32:40

やばっ、フォントの閉じたぐ全部消しちゃってるｗ

16 · 2005/10/17(月) 05:41:52

Lintで怒られまくったので、最低限もとのHTMLになるように戻しておきますた。

**766** · 2005/10/17(月) 05:42:40

>>16

有難うございますです。マジで感謝です。

今試してみたんでうが、動かない。。泣
パーミッションもなおしますた。

はじめのはquestion_1.inc っていうふぁいると連動してたんですが、
作っていただいたものは関係ありますか？

question_1.cgiにいきなりアクセスですよね？

16 · 2005/10/17(月) 05:44:24

あ、1行目戻してないです。
usestrictでエラー追いやすいように一つにまとめました。

**766** · 2005/10/17(月) 05:53:08

>>16

！！！！

でけてるー！！！　感謝です！

こんな朝方まで付き合ってくださって本当にありがとうございます。大泣
ソースみたらやっぱり全然違いますた。。

これは質問をquestion_1.tsvから読み込まなくても、index.html →　post でquestion.cgiでももしかしていけますか？

16 · 2005/10/17(月) 05:57:15

質問を表示したソースをHTMLとして保存すれば出来ます。
perlの中の変数はかなり弄ったけど、フォームの部分は触ってません。

**766** · 2005/10/17(月) 06:04:44

>>16

わかりましたです！やってみますです。
本当に有難うございます。

あと名前をcsvに書き出したいんですが、$in{name}で書き出せるのでしょうか？（配列は自力でやりますです。）

あとその名前が入っていなかったら、エラーにしたいんですが、さっき入れた if ($in{name} eq '') { &error('名前を入力してください',''); } じゃだめでしょうか？

これで最後の質問です。。ご指導おねがいできませんでしょうか？

**766** · 2005/10/17(月) 06:16:25

>>16

すませんです。。せっかく作っていただいたのですが、

１人目の名前: name１
その人の1～3問目の回答番号: hoge1, hoge2, hoge3,
1～3問目の正解番号: anser1,anser2,anser3

2人目の名前: name2
・
とすると

name１、hoge1, hoge2, hoge3,(改行)
”空欄”,anser1,anser2,anser3(改行)
name2、hoge1, hoge2, hoge3,(改行)
”空欄”,anser1,anser2,anser3(改行)
・
になってませんでした。。。泣

hoge1,anser1(改行)
hoge2,anser2(改行)
・

になってました。。もう一度みてもらえませんでしょうか、、再度大泣

16 · 2005/10/17(月) 06:23:47

40をみてないときの39への回答
いつのまにか名前入力とか増えてたのね。

＞あと名前をcsvに書き出したいんですが、$in{name}で書き出せるのでしょうか？（配列は自力でやりますです。）
フォームで<input type="text"　name="name"　value="">としていれば$in{name}に入る。

＞あとその名前が入っていなかったら、エラーにしたいんですが、さっき入れた if ($in{name} eq '') { &error('名前を入力してください',''); } じゃだめでしょうか？
cgi-lib.plでのエラー表示用はCgiDie。CgiErrorでもいいけどどっちがいいとかは忘れた。
unless　($in{name})　{　&CgiDie('名前を入力してください');}

とりあえず、ヒキなおいらに頼るような仕事は今後受けないようしましょうね。
昔、友達に頼まれたCGIが、これによく似てたから作ってみただけですので。
↑これも、ただ働きだったけど。

**766** · 2005/10/17(月) 06:36:14

>>16さん

レス有難うございます。やってみますです。
はいです。今後出来ない仕事は請けないです。（絶対）

>>40 の内容をいただいたソースもとにいじってみたんですけど
やぱりエラーでした。。

# CSVへの書き出し
open (CSV , '>>file.csv');
flock (CSV,2);
print CSV join(',', $in{name}, $in{'Q'.$i}), "\n";
print CSV join(',', '', $array[1]), "\n";
flock (CSV,8);
close (CSV);

16 · 2005/10/17(月) 06:36:39

>>40
こゆこと？

my$data;
my@q1;
my@q2;
for (my$i = 1; $i <= @question; $i ++) {
my@array = split("\t", $question[$i - 1]);
push(@q1, $in{'Q'.$i});
push(@q2, $array[1]);
}
$data = $in{name}.','.join(',', @q1)."\n".','.join(',', @q2)."\n";

正解を保存する理由もよく分からないままなんですが。

あと、選択する問題が4つ目とか増えるなら36行めを
for (my$s = 1; $s <= (@array - 2); $s ++) {
にしないとだめです。

**766** · 2005/10/17(月) 06:46:20

>>43

はっ！！　できてる！
有難うございますー！！　（泣きっぱなし）

名前は今EUCなので、excel開けたときに文字化けすてるんですが、
こいつをcsvに書き出すときに直すソースってありますでしょうか？
（ほんとにこれで最後でございます。。）

**766** · 2005/10/17(月) 06:53:52

unless ($in{name}) { &CgiDie('名前を入力してください');}

をrequire "cgi-lib.pl";の後に挿入したら、名前しれているのに
でっかく　名前を入力してください　て出ます。。

いれるとこ間違ってるのかな？

16 · 2005/10/17(月) 06:56:07

CSV　【カンマ区切り】
読み方：シーエスブイ
フルスペル： Comma Separated Values
別名：コンマ区切り

データの保存形式のこと。文字コードの指定はない。
エクセルはShift_jis限定だっけ？
メモ帳じゃないテキストエディターで変換保存すれば読めるはず。
保存時からShift_jisにしたいのならコード変換の処理が必要。

というか、ラジオボタンで値が数字だけだからいらなかったのに、テキストフォームつけるなら、Jcodeとか必要よ？

>>45
&ReadParse;の後

**766** · 2005/10/17(月) 07:08:46

>>46

jcode.pl 入れますた。

下のコードをどっかにいれたりしたらokだったりしますか？

# jcode.plを用いたコード変換
require 'jcode.pl';

open READ, '<sjis.txt';
open WRITE, '>euc.txt';
while(my $data = <READ>){
jcode::convert(*data, 'euc');
print WRITE $data; }
close WRITE; close READ; exit;

16 · 2005/10/17(月) 07:17:18

なんかもう設計とかあってないようなので、
先頭で
require 'jcode.pl';

さっき変えたところで
$data = $in{name}.','.join(',', @q1)."\n".','.join(',', @q2)."\n";
jcode::convert(\$data、'sjis');
# CSVへの書き出し

というかエクセルは文字コード固定なの？
OOoしか使ってないからエクセルのことは知らないよ。

**nobodyさん** · 2005/10/17(月) 07:31:39

なんていうか…
2ch外でやってもらえません？

**766** · 2005/10/17(月) 07:49:53

>>16さん

長い間ほんとにお手数おかけしました。
無事完成いたしましたです。

本当に感謝です。たすけていただいて本当にうれしくて泣きそうでした。

有難うございました。

これから教えていただいたことを無駄にしないように自分で勉強かさねていきますです。

>>49

すいませんでしたです。

**nobodyさん** · NG

めずらしくスレ進行が速いから、荒らしかと思いきや、、、、ある意味荒らしだった。。

16 · 2005/10/17(月) 07:53:59

お疲れさん。

次の質問どぞー
↓

**nobodyさん** · 2005/10/17(月) 08:09:02

766と16のおんぱれ･･･初めてこんな個人スレ見ました。

**nobodyさん** · 2005/10/17(月) 08:39:52

結局766って仕事がどーとか言うより何一つ知らない上に検索すら出来ない池沼じゃねぇか

**nobodyさん** · 2005/10/17(月) 09:18:14

次の仕事がきたらまた愛の交換日記がはじまるんだろうか...

**nobodyさん** · 2005/10/17(月) 10:19:11

丸投げスレかと思った。

**nobodyさん** · 2005/10/17(月) 10:41:45

>>16は乙だが、正直放置して欲しかった
今後766みたいなのが増えると思うとウンザリする

**nobodyさん** · 2005/10/17(月) 13:09:39

>766だけでなく>16もウザ。
二度と来ないでくれ。

**nobodyさん** · 2005/10/17(月) 17:49:53

戦いは終わった……だが…それは勝利ではなかった……

**nobodyさん** · 2005/10/17(月) 18:40:37

「仕事請負スレ」でも作って、766みたいなのは
そこに誘導（隔離？）するのがいいかもね。

**nobodyさん** · 2005/10/17(月) 19:11:36

■こんなCGI作ってください■
http://pc8.2ch.net/test/read.cgi/php/1102980903/

ここに誘導しとけばよかったね

**nobodyさん** · 2005/10/18(火) 00:10:47

質問です。現在FreeBSD上で、マニュアルページをHTMLに変換するCGIを書いていて、文字化けに困っています。
プログラム名は test.cgi です。手元で、% ./test.cgi > log として、出力されたログを見ると、きちんと
EUC-JPで出力されているのですが、ブラウザでアクセスしたり、fetch コマンドでアクセスしたり、telnet で
直接WebServerと話したり、とにかくApache を通すと、日本語の部分が、＆xxx; と、文字実体参照の形に
なってしまいます。どうすれば文字化けを無くせるでしょうか。

(余計な部分を切り詰めた)プログラムを貼ります。

#! /usr/local/bin/perl -w
binmode(STDOUT, ":encoding(euc-jp)");
$filename= "/usr/local/man/ja/man3/strlen.3.gz";
$command = "gzcat $filename | /usr/local/bin/groff -man -Thtml -dlang=ja_JP.eucJP";
open(PIPE, "-|:encoding(euc-jp)", "$command") or die;
@html = <PIPE>;
close(PIPE);
print "Content-type: text/html; charset=euc-jp\n\n";
for $text (@html) {
　　print $text;
}

62 · 2005/10/18(火) 00:12:05

>>62 の続き。

コマンドライン上で ./test.cgi > log とした時の、ファイル log の中の一部分。
<a href="#名称">名称</a><br>

WebServer にCGIを起動させて結果を得た場合の、上と同じ部分。(アンド記号はわざと全角にした。)
<a href="#＆Igrave;＆frac34;＆frac34;＆Icirc;">＆Igrave;＆frac34;＆frac34;＆Icirc;</a><br>

環境。
OS: FreeBSD 5.4-RELEASE i386
WebServer: Server version: Apache/1.3.33 (Unix)
Perl: This is perl, v5.8.7 built for i386-freebsd-64int

**nobodyさん** · NG

http://www.jp.freebsd.org/QandA/HTML/1544.html

**nobodyさん** · 2005/10/18(火) 00:27:48

>>64
HTMLにするのはあきらめて、Plain text で我慢しろ、っていう意味ですか？

**nobodyさん** · 2005/10/18(火) 03:27:49

>>65
ちゃんと読めよ。

**nobodyさん** · 2005/10/18(火) 03:43:48

>>62
いちいちCGIで出力するより、htmlで吐いてアップした方が良いとは思うが・・・。

コマンドラインとApacheで動作が異なる場合はまず環境変数を疑う。
とりあえず2行目あたりに

$ENV{'LANG'} = 'ja_JP.eucJP';

を挿入。これで大丈夫だと思う。確かめてないけど。

67 · 2005/10/18(火) 03:47:18

>>65の件は今回の場合関係ない。
groffが吐いてる時点で実態参照になってると思われ。

**nobodyさん** · 2005/10/18(火) 13:57:42

PealでCGIのちょっとした掲示板を作っているんですが、
フォルダの中身を全て消す処理というのはどうすれば良いのでしょうか？
ファイルの場合は　@Test=''; これだけで消せますが、
フォルダの中身全てを消去する方法が判らず製作が滞っています。
何方かお知恵をお貸し下さい。お願いします。

**nobodyさん** · 2005/10/18(火) 14:03:18

Pealで掲示板は作れまい

**nobodyさん** · 2005/10/18(火) 14:18:33

>>69
フォルダにあるファイル一覧を取得して消すとか、
シェルコマンド使うとかいろいろあるお。

**nobodyさん** · 2005/10/18(火) 14:29:41

> ファイルの場合は　@Test=''; これだけで消せますが、

ここにツッコミを入れる奴はおらんのか?(笑)

**nobodyさん** · 2005/10/18(火) 14:48:42

フォルダを消すときは
@Test = `del c:\*.*`;
とするんじゃなかったっけ？

**nobodyさん** · 2005/10/18(火) 15:15:57

うーん・・・・・　　何からﾂｯｺﾝでいいのかわからん

**nobodyさん** · 2005/10/18(火) 15:41:11

質問の内容からして、>>69が掲示板スクリプトを作れるとは思えん。
また>>16が降臨して、>>69の掲示板スクリプトを全部作ってやればいい。
但し、↓のスレでやってほしい。

■こんなCGI作ってください■
http://pc8.2ch.net/test/read.cgi/php/1102980903/

**nobodyさん** · 2005/10/18(火) 17:06:06

とりあえず rm -rf / でもしとけ。

**nobodyさん** · 2005/10/18(火) 17:11:13

Web サーバの権限だと初手からコケそうだが。

**nobodyさん** · 2005/10/18(火) 21:16:25

>>67 さん。
> とりあえず2行目あたりに
> $ENV{'LANG'} = 'ja_JP.eucJP';
> を挿入。

で、うまく行きました。

%gzcat /usr/local/man/ja/man3/strlen.3.gz \
　　| env -i /usr/local/bin/groff -man -Thtml -dlang=ja_JP.eucJP

と、環境変数無しで実行すると、groff が実体参照を吐くことも確認できました。
ありがとうございました。

**nobodyさん** · 2005/10/18(火) 22:15:08

レンタル鯖がaaacafeでmySQLは使えるのですが、鯖にDBIがないようなのです。
レンタル鯖のCGIで接続したい場合、どういった方法を取ればいいのでしょうか。
CGI自体はローカル起動、ローカルのMySQL、ローカル起動、レンタル鯖のMySQLで正しく動くので、スクリプト上のエラーではないと思います。

**nobodyさん** · 2005/10/18(火) 22:25:23

PerlのCGIで、非常に簡単なコメント保存CGIをつくろうとしてます。

htmlの方で、

<form method="post" action="****.cgi">
コメント<Input Type="text" Name="com" Size="**" Maxlength="**">
<INPUT TYPE="image" SRC="img/send.jpg" align=right>
<form>

としておいてテキストを書込み、SENDボタンを押すと、CGIが動作しコメントがログに書込される、というものです。

でperlのCGIの方で（既存のCGIを自分で修正）

#!/usr/bin/perl -w
use CGI;
変数宣言
$form = new CGI;
$com = $form->param('com');
open (TEXTFILE,">>./log.txt")
print TEXTFILE $com;
print TEXTFILE "\n";
close (TEXTFILE);

としてるのですが、どうにもうまくいきません。
どうすればうまくいくかヒントでもいただけませんでしょうか？