Perl コーディング初心者質問コーナー Part37
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001nobodyさん
04/08/22 01:41ID:???誰もが最初は初心者。
だからって、初心者に甘んじた質問の仕方は意味がないよ。
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0811803
04/09/30 14:56:10ID:???そうですか、友達に負担がかかるからやめろと言われましたが、騙されたようですね_no
もう一つ質問ですが、kent-webのCGIはﾀﾞﾒﾎﾟと聞きますが、Perlとしてどこがﾀﾞﾒﾎﾟなんですか？
0812nobodyさん
04/09/30 15:05:59ID:???出力されるHTMLのｲﾝﾃﾞﾝﾄとかはもう見てらんないな。
Perlについては詳しく無いから↓の人詳細よろ
0815811
04/09/30 15:58:51ID:???ﾄﾝｸｽ!なるほど、たしかにすごいHTML…
>813
ｽﾏｿ
>814
そうでつか
0816nobodyさん
04/09/30 16:01:47ID:???お前向けのスレはここだ。
KENT WEB 総合スレ Part2
http://pc5.2ch.net/test/read.cgi/php/1078991985/
0817nobodyさん
04/09/30 18:09:03ID:???ただしソースは見るなよ
0818nobodyさん
04/09/30 20:00:11ID:???0819nobodyさん
04/09/30 20:00:36ID:???久しぶりにyybbs見たけど相変わらずザルだね
スパゲッティー度上がってるし
0820nobodyさん
04/09/30 22:21:44ID:ByT9cFMWそのモジュールの中でしか使わない関数っていうことでよかったですよね？
0823nobodyさん
04/09/30 22:59:24ID:???まあ820-821の理解で十分じゃね。
もともと印程度のいいかげんなものだし、
なんやかんやで読んじゃったりするし。
0825nobodyさん
04/10/01 02:57:04ID:???というのをform要素内の最後尾につけて、IDに対してののアンカーにしたいんですが、
〜foo=bar#hoge
とならず、
〜foo=bar%23hoge
とバケてしまいます。
どう記述したらバケずにできますか？
0826nobodyさん
04/10/01 03:14:42ID:???0828nobodyさん
04/10/01 10:26:24ID:???以下のようにしても結果が表示されません。表示する変数には実行結果の最後の行だけが入っている模様です。
他の方の質問と比べて低LVで申し訳ありませんが、お助けください_no
<html><head><title>TraceRoute</title></head>
<script language = "PerlScript">
sub button1_click{
$form = $window->document->form;
$host = $form->host->{'value'};
@traceroute = `tracert $host`;
$window->document->write("@traceroute");}
</script>
<body>
<h2>TraceRoute</h2><hr>
<form name="form"><table>
<tr><td>IPアドレス or ドメインネーム:</td>
<td><input type="text" name="host" size=50 value=""></td></tr>
</table><p>
<input type="button" name="button1" value=" 実行 " onclick="button1_click()">
</p></form></body></html>
0829nobodyさん
04/10/01 11:09:56ID:???アンカーくっつけるためのもんじゃないから無理
0830nobodyさん
04/10/01 11:49:58ID:???ｸﾗｲｱﾝﾄﾌﾟﾛｸﾞﾗﾐﾝｸﾞはﾑ板に逝ったほうがいい
0831nobodyさん
04/10/01 11:57:33ID:???JS使わんと無理ですか?
0833825
04/10/01 12:56:20ID:???0834nobodyさん
04/10/01 13:35:55ID:???それは化けているのではないし、Perl の問題でもないのでスレ違い。
http://www.asahi-net.or.jp/~sd5a-ucd/rec-html401j/interact/forms.html#h-17.13.4.1
http://e-words.jp/p/r-ascii.html
http://www.din.or.jp/~ohzaki/perl.htm#JP_Escape
http://pc5.2ch.net/test/read.cgi/php/1095633323/
0835nobodyさん
04/10/01 13:46:06ID:???選択されたﾌｧｲﾙがﾊﾞｲﾅﾘﾌｧｲﾙであればｴﾗｰを返す処理をしようと思っています。
しかしながら、ﾃｷｽﾄﾌｧｲﾙにもかかわらずﾊﾞｲﾅﾘﾌｧｲﾙと判定されてしまい、
ﾌｧｲﾙを展開できないことがあります。
opendir (DIR, "."); # ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ
while ($filename = readdir (DIR)) {
if (-d $filename) { # ﾃﾞｨﾚｸﾄﾘ
next;
}
if (-B $filename) { # ﾊﾞｲﾅﾘ
next;
}
push (@files, $filename); # ﾌｧｲﾙの一覧
}
全てが半角英数字のﾃｷｽﾄの場合は、ﾃｷｽﾄﾌｧｲﾙであると正常に判定されるようです。
選択したﾌｧｲﾙ内に2ﾊﾞｲﾄ文字があると-Bでは正確に判定できないのでしょうか。
0837nobodyさん
04/10/01 14:42:32ID:???わかんねぇカスはすっこんでろよ（ｐｇｒ
>>835
JPerlが使えるのならば、そちらだと確か正常に動いたと思う。
ファイルを展開するんなら、ファイルを読みこんだ後、
表示させる前にNULL文字のチェックをしてみるのはどうだろうか。
拡張子を制限するとか、対策は色々あると思うぞ
0838nobodyさん
04/10/01 15:00:34ID:???http://perldoc.com/perl5.8.4/pod/func/-X.html
シングルバイト文字圏の人が言う「plain text」は、マルチバイト文字は考慮
していない。use encodings 環境下とかでどうなってるかは知らないけど。
0839nobodyさん
04/10/01 18:40:00ID:???0840nobodyさん
04/10/01 19:45:04ID:???http://www5a.biglobe.ne.jp/~n_rieko/perl/4.htm
0842nobodyさん
04/10/02 04:12:13ID:???配列を後ろから読む、というような。
0845nobodyさん
04/10/02 06:14:55ID:???ということをしたいのですが…。出力したときにjavascriptを埋め込むとかでしょうか。うーん。
0846nobodyさん
04/10/02 06:31:48ID:iwLkYg8HCGIはInetpub/cgi-bin/に置いています。
Prelのバージョンは多分5.6だと思います。
Perlへのパスは#!/user/local/bin/perlにしてます。
どうすればよいでしょうか？
ちなみにPerlインストール後は設定を何もいじってません。
よろしくお願いします。
0847nobodyさん
04/10/02 06:56:22ID:???IISの設定は知らないがとりあえずPerlのパスは
#!C:/Perl/bin/perlだろ
#!/Perl/bin/perlでもいいかも
0849nobodyさん
04/10/02 08:03:38ID:iwLkYg8Hhttpdってどこをどのように変更するのでしょうか？
よろしくお願いします。
0850849
04/10/02 08:45:47ID:iwLkYg8H0851nobodyさん
04/10/02 08:55:46ID:xWycr4I2ttp://www.din.or.jp/~bigstone/cgilab/cgitips/iis.html
関係ないけどミケネコさんてお亡くなりになったのね。超ショック。
ご冥福をお祈りします。
0852nobodyさん
04/10/02 09:12:09ID:???0853nobodyさん
04/10/02 09:15:32ID:???関係ないのでsage
0854nobodyさん
04/10/02 09:36:37ID:???>>852-853
全ての研究員の中の人をお一人でやっておられたという説もある。
コンテンツはまた公開されそうな気配。
http://pc5.2ch.net/test/read.cgi/hp/1092690398/121
0855849
04/10/02 09:55:27ID:iwLkYg8H返信ありがとうございます。
早速サイトを見ます。
0857nobodyさん
04/10/02 19:17:38ID:IDTr6xb8apache2
/usr/bin/perl
↑の環境でperlを使ってるのですが、最近急に掲示板の表示速度が
激しく遅くなりました。
普通のhtmlは普通に表示される、servletも動いてますがそちらも普通。
ｐｅｒｌの掲示板のみが激しく遅いのですが、原因追及の為にどこを
調べたらいいでしょうか？
0858nobodyさん
04/10/02 19:33:14ID:???アクセス数,データの量等が影響するので、原因を特定するには情報不足だけど。多分設計の問題。
ありがちなのが、ログ等のデータをすべてメモリ上(配列など)に取り込んでるタイプの掲示版。
プロファイルとってみるといいよ。とりあえず続きは他のスレでどうぞ。スレ違い
0859nobodyさん
04/10/02 20:09:46ID:IDTr6xb8レスどうもです。
どこのスレで聞いたらいいでしょうか？
cgiは以前は普通に動いてたんです。それからデータサイズも大して
変わってないので原因がよくわからないんです。
何もいじってないですし・・・
0862nobodyさん
04/10/03 00:49:57ID:???でプロファイルとって、dprofppで解析か。
perlつーのは至れり尽せりだな。
0863nobodyさん
04/10/03 01:05:09ID:lnyRtEhYこれって何の略で具体的にどういう役割なんですか？
0866nobodyさん
04/10/03 03:57:51ID:???0867nobodyさん
04/10/03 04:22:11ID:???行単位にはならないだろうな
一旦普通に全部読み込んでから改行コードで分割しる
0868866
04/10/03 04:25:29ID:???ありがとうございました
0869nobodyさん
04/10/03 07:12:49ID:???0879nobodyさん
04/10/03 15:41:21ID:???0880nobodyさん
04/10/04 21:13:24ID:???〜or〜と同じですか？またJAVAのtry catchと同じですか？
0881nobodyさん
04/10/04 21:28:29ID:???0882nobodyさん
04/10/04 23:06:02ID:YvzQlu9kコードや名称、取引値、前日比等を変数に取り出すには
どうすれば出来ますか？
http://quote.yahoo.co.jp/q?s=9646+9654+9684+9752&d=v1&k=c3&h=on&z=m
0886nobodyさん
04/10/05 04:55:02ID:???いや、それは誰でもできるんじゃないか？
ライブラリや関数を使えば。
perlもphpのように、ローカルファイルとネット上のURLのファイルを
表面的にでもシームレスに扱えるようにしてほしい。
LWPとか使うこと自体がだるいんだよ･･･
0887nobodyさん
04/10/05 05:20:22ID:???あいつには無理だろ？
perlで
open IN,'http://2ch.net';とかしそうだし
0888nobodyさん
04/10/05 07:28:09ID:9Q+F9VOEにアクセスした時に0001の画像を。
0002にアクセスした時は0002の画像を表示させたい思って、
if($FORM{'mode'} eq "0001"){$img = "01.gif";}
elsif($FORM{'mode'} eq "0002"){$img = "02.gif";}
elsif($FORM{'mode'} eq "0003"){$img = "03.gif";}
else{$img = "04.gif";}
print "<img src=\"$img\">";
と書いたんですけど出来ませんでした…。
どの番号にアクセスしても
04.gif
の画像が出てしまいます。
どうやったら上手くいくでしょうか？
お願いしますm(__)m
0889nobodyさん
04/10/05 07:44:38ID:/XKjVdNTとりあえずは、ダウンロードツールとかブラウザでＨＴＭＬを取得して
ローカルファイルにしたものを処理対象にしようとおもってます
ソケットオープンしてＧＥＴすればできるんでしょうか？
0890nobodyさん
04/10/05 07:54:11ID:???0891nobodyさん
04/10/05 08:53:01ID:???0894888
04/10/05 11:21:13ID:9Q+F9VOEmodeを使わないでそのまま$ENV{'QUERY_STRING'}と数字だけを使ってやった方が簡単でしたね。
ありがとうございましたm(__)m
0895nobodyさん
04/10/05 12:05:45ID:???次のようなエラーになってしまいます。
'c:\inetpub\wwwroot\cgi-bin\apply.cgi' script produced no output
webサーバーでは正常に動いているのですが、IISでディレクトリの設定を
変える必要があるのでしょうか？
IIS開いてみたけどよく分かりませんでした。
どこを変えればよいでしょうか。
※テキストファイルを書き出すプログラムを書いています。
よろしくお願いします。
0896nobodyさん
04/10/05 12:20:39ID:???0897nobodyさん
04/10/05 13:37:28ID:???例えばこのようなフォルダ構造がある場合、
index.cgiが全ディレクトリ内のファイルの一覧を取得する事は可能でしょうか。
[root]
├ index.cgi
├ [data]
│ ├ [data_bak]
│ │ └ log.log
│ ├ data.log
│ └ data2.log
├ [file]
│ ├ file.txt
│ └ file2.txt
└ [img]
├ img.gif
└ img2.gif
index.cgiでreaddirで一覧を取得し、その中にディレクトリがあれば、その中の一覧も取得し、
さらにその中にディレクトリがあれば･･･といった形の構造にしたいのです。
0898nobodyさん
04/10/05 13:42:52ID:???どうしたの？
0900nobodyさん
04/10/05 14:15:07ID:???＞可能でしょうか。
可能でしょう。
＞･･･といった形の構造にしたいのです。
そういった構造で、可能でしょう。
プログラムとは、といった構造だと出来るのではないか、可能ではないか、
と考えて作り、動かしてみて、思った通りに行かなければ、
なぜそう行かないのかを探り、修正し、、、、
といった積み重ねで出来上がるものなのです。
0902nobodyさん
04/10/05 14:37:12ID:???だから、実際書いて見てつまずいた所を
聞いてこなきゃ進まないわな。
可能ですか？…といった構造にしたいのです。
なら「可能です」で終わるよ。
たぶんこれ期待した答えじゃないよな。
といって具体的な質問でもないとすると、
そこまで考えてて、一から教えろって話？
0903nobodyさん
04/10/05 14:43:17ID:???0905nobodyさん
04/10/05 14:54:11ID:???一番いいのってなんだろ
0906nobodyさん
04/10/05 14:57:47ID:???その辺のヘボいBBSの名前欄とかにタブ文字入れるとログが壊れて面白いなｗ
0908nobodyさん
04/10/05 15:04:51ID:???0909nobodyさん
04/10/05 15:09:13ID:???0910897
04/10/05 15:56:46ID:???サブルーチンの中でサブルーチンを呼んで、、、という方法だったのですね。
ヒントを下さった>>899氏、ありがとうございます。
レス数が900を超えています。1000を超えると表示できなくなるよ。