トップページ⇒php
1001コメント371KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2006/05/31(水) 04:32:28ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

過去ログやお勧めサイトは >>2-10
0402nobodyさん2006/06/10(土) 23:30:24ID:???
書いたよくださいほうがいいよ
0403nobodyさん2006/06/10(土) 23:52:59ID:???
|∀｀）ﾎﾝﾄﾆﾀﾞﾚﾓ ﾐﾅｲ?
0404nobodyさん2006/06/11(日) 01:30:03ID:???
誰も見てないって、
そんな、へんてこで読みにくいスクリプトなんて。
use strictを使えばいいのに。ふぅ。

だから、絶対見てないって！
0405nobodyさん2006/06/11(日) 01:44:54ID:???
>>400
#!/usr/local/bin/perl
どかーん！
(⌒⌒⌒)
　｜｜

／￣￣￣￣￣＼
|　・　Ｕ　　　　　　|
| |ι　　　　 　　　|つ
Ｕ｜｜ ￣￣ ｜｜
　　￣　　　　　￣
もうおこったぞう
0406nobodyさん2006/06/11(日) 01:52:53ID:???
けつからでてるのはunko？
0407nobodyさん2006/06/11(日) 01:55:40ID:???
掲示板などを作る際にjcode.plを使わないとどんな不具合が出るのですか？
0408nobodyさん2006/06/11(日) 02:03:10ID:???
>>407
､ｳ､？ﾊﾉﾔｶ？遑ｩ
0409nobodyさん2006/06/11(日) 02:04:17ID:???
>>407
ｼｺﾇﾔ｡｣､ｳ､ﾊﾉﾔｶ遉ﾀ､ﾊ｡｣
0410nobodyさんNGNG
今時のブラウザはフォームがあるページのエンコードで送ってくるから
別に使わなくていいと思う
0411nobodyさん2006/06/11(日) 02:12:30ID:???
　　　_、_　　　　　　　　　こんなトコロで
　（　,_ﾉ` ）　　　　 n　　　　 私に質問するんですか？
￣　　　　＼　　　（ E）　　　 　 だったら答えてあげますよ！
ﾌKENT /ヽ ヽ_／／　　 初心者にも簡単！
　　　　　　　　　　　　　　　 文字化けは回避できるわ鯖落ちは回避できるわ
　　　　　　　　　　　　　　　 　 とりあえず使っとけな雰囲気があるわで大騒ぎ！
0412nobodyさん2006/06/11(日) 02:15:31ID:???
>407
>409さんが書いている通り
ただ、他のページからデータを持ってこようとしたり、自分の管理外の色んなページから
GET・POSTを受ける場合は文字コード変換が必要
0413nobodyさん2006/06/11(日) 02:38:31ID:???
鯖落ちが回避できるのか
0414nobodyさん2006/06/11(日) 02:49:36ID:???
さすがのKENT様だからな
04154072006/06/11(日) 03:18:44ID:???
>>410
それはHTML内で
<Meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
としてあるのにEUCでデータを送ってくるブラウザもあるということですか？
EUCで送られてきたデータを

# $testにフォームから送られたデータが入ってるとする
print <<"HTML";
<html>
<head>
<Meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body>
$test
</body>
</html>
HTML

このように表示すると文字化けし、
それを回避するためにjcode.plで文字コードを変換する、ということでOKですか

>>412
それはURLエンコードのことではないんですか？
当方、簡単な掲示板を作っていて、jcode.plを使わなくても何の問題も無かったんで気になったんですが。
0416nobodyさん2006/06/11(日) 03:41:11ID:???
KENTわろすｗｗ
0417nobodyさん2006/06/11(日) 03:47:49ID:???
むしろ Shift_JIS だけでデータ書いたり保存したりするなら、
j(J)code でデータうけとったときに何でもかんでも変換してると半角カナで文字化けするので、
どうせ変換するなら method get だけにしとくとかのがいいと思った。
他のとこから post でデータ送ってくるのって一部を除いてイタズラ以外にないしな。

まあ get にするにしても utf-8 に対応してない jcode.pl じゃあんま役に立たないとは思うけど。
どうなんでしょうKENT様
0418nobodyさん2006/06/11(日) 04:33:43ID:???
KENTすげーｗｗｗｗｗｗｗｗｗｗｗｗｗ
0419nobodyさん2006/06/11(日) 04:50:51ID:???
一方的にシステムの文字コードで送りつけるブラウザはあるらしい(あったらしい？)。

私は、コードを決めておいて、文字コードが合わなかったら変換しないで、
エラーを出すように作ってる。
0420nobodyさん2006/06/11(日) 05:01:19ID:???
美乳をhiddenで送ってもらって美乳じゃなかったら汚乳エラーでいいじゃん
0421nobodyさん2006/06/11(日) 05:11:02ID:???
>>420
うわ、それ考え付かなかったなあ。
0422nobodyさん2006/06/11(日) 05:25:55ID:???
form 要素の accept-charset を使って、変なデータはエラー表示するのが
正しいんだと思うんだがね。

対応してないブラウザってあるの？
0423nobodyさん2006/06/11(日) 08:33:22ID:???
perl始めると共にいきなりcgi作ってるんですが、何かまずいでしょうか？
プロンプトで色々やってからcgiってのが王道？なんでしょうか？

あとKENTのところのソースを参考にしてるんですが、ここでは評判悪いようですが参考にしない方がいいですか？
04244072006/06/11(日) 09:15:29ID:???
どうも勉強になりました
0425nobodyさん2006/06/11(日) 09:35:16ID:???
>>423
KENT氏のはモジュールなどを使わない枯れた古い方式なので、
車輪の再発明に苦労することになるでしょう。

これからPerlを始めるのなら、モジュールをバシバシ使った
お手軽プログラミングをおすすめします。
0426nobodyさん2006/06/11(日) 09:38:19ID:???
>>423
cgi はいいんじゃない？
最初は形に残ったほうが面白いしね。

KENTはまあ、一回参考にしてもいいかもね。
反面教師って言葉もあるし。

use strict; して↓これみとｋ
http://www.perldoc.jp/docs/perl/5.8.0/perlstyle.pod
0427nobodyさん2006/06/11(日) 12:24:35ID:???
頑張って、人気投票ができるCGI作ってるんですが、プラウザの更新ボタンを押すと、
「情報を再送信しないと、ページを更新できません。「再試行」をクリックして～」と表示され、
「再試行」を押すと、2重投稿っぽい感じに投票が行われてしまいます・・・・・。

更新ボタンを押しても、CGIにデータを送らないようにはできないでしょうか？
0428nobodyさん2006/06/11(日) 12:27:26ID:???
そりゃブラウザが情報保持して再送信してるだけ
情報送って登録したらprint "Location: ..."すりゃ一応回避できるけど
もしくは同一IPから同一情報の登録はブロックするとか
0429nobodyさん2006/06/11(日) 12:34:09ID:???
>>428
やっぱ同一IP、同一内容の投稿を規制するしか方法はないですか・・・　orz
ありがとうございます。
0430nobodyさん2006/06/11(日) 14:25:32ID:???
>>423
> perl始めると共にいきなりcgi作ってるんですが、何かまずいでしょうか？

ダメとは言いませんけれど、少し不安です。
他はともかく、安全性についての配慮は忘れないでください。できる限り -Tw スイッチを使うようにしてください。ユーザという種族はいつでも、プログラムの動作にとって最も都合の悪い操作を選択的に行うものです。

> プロンプトで色々やってからcgiってのが王道？なんでしょうか？

CGI はサーバサイドプログラムの出力をサーバ応答として返す仕組なので、コマンドプロンプト (のことですよね?) 上でプログラムがどのように動作し、どんな出力を吐くのかを知っていたほうが有利であることは確かです。

> あとKENTのところのソースを参考にしてるんですが、ここでは評判悪いようですが参考にしない方がいいですか？

氏の CGI スクリプトは動作環境の範囲を広く取るために後方互換性を重視したスタイルのようです。
あなた (あるいはあなたのユーザ) がこれから何年もの間、比較的古い (and|or) 制限の多い環境を使い続けるなら、その点で参考になる部分は多いかもしれません。
0431nobodyさん2006/06/11(日) 14:27:28ID:???
>>430
何かを翻訳したの？
0432nobodyさん2006/06/11(日) 14:40:36ID:???
KENTについて意見の翻訳ｗｗｗｗｗ

広い動作環境ゆっても、perl4 とかのがめずらしいよな。
local だけだと全部グローバルになるせいか、少し長い script 組むとたまーにありえない挙動するから困る。
0433nobodyさん2006/06/11(日) 15:14:21ID:???
>>432
> local だけだと全部グローバルになるせいか、少し長い script 組むとたまーにありえない挙動するから困る。

それはあなたがそのように書いたからです。
また、こういった認識は上達の妨げになるので気をつけてくださいね。
プログラムは (処理系のバグも含めて) 「書いたなり」にしか動かないことを忘れちゃいけません。
0434nobodyさん2006/06/11(日) 15:41:32ID:aFjDPMnZ
すいません、ちょっと質問させていただきたいのですが・・・
「log.dat」の中に↓のようなデータが入っているとして

5,4,4,3,1,2006/06/11(日) 14:59:27,yyyyyyyyyyyyyyyyyy
1,3,4,5,3,2006/06/11(日) 14:58:45,ggggggggggggggggggg
2,4,4,4,3,2006/06/11(日) 14:58:37,ggggggggggggggggggggggggg

この「log.dat」内の「5,4,4,3,1」や「1,3,4,5,3」といった頭5つの数字だけを、
全て足していきたいのですが、そうゆうことってできますでしょうか？
ちなみに上の例だと「5+4+4+3+1+1+3+4+5+3+2+4+4+4+3」で「50」という数字を求めたい・・・・・・

一応自分で調べようと努力はしたのですが、検索しきれなくて・・・・・
よろしくお願いします　orz
0435nobodyさん2006/06/11(日) 15:54:20ID:???
>>434
処理の流れがわからんのだろうかね…これは
答えを書くのは五行足らずだがそれじゃ本人のためにならないのでヒント

まず、その処理で必要なことは何かを考える
・ファイルを開いて
・一行一行読み取って
・カンマで切り分ける
・その最初の五つを取り出して
・足し合わせる

で、これをコードに落とす
ファイルを開くのは"open"(読み取るサンプルも大抵一緒に解説されてる)
切り分けは"split"、初めの五つを取りだすには"配列のスライス"辺りで検索汁
0436nobodyさん2006/06/11(日) 15:59:53ID:???
map{}(@)の方がスマートかと
0437nobodyさん2006/06/11(日) 16:07:20ID:???
この流れを考えられないのを相手にいきなりmapを説くか？
04384342006/06/11(日) 16:16:01ID:aFjDPMnZ
open(FP,"log.dat") || &error("ログファイルが開けませんでした。");
@logs=<FP>;
close(PF);

foreach $line(@logs) {
chop($line);
($atai1,$atai2,$atai3,$atai4,$atai5,$dat,$value,) = split(/\,/,$line);
if (!$line){last;}

print
"<TABLE border=\"1\" align=\"center\"><TR><TD>\n".
"$atai1/$atai2/$atai3/$atai4/$atai5/$dat<br><br>\n".
"$value\n".
"</TD></TR></TABLE><br>\n\n";
}

一応、ここまでは何とか分かっているのですが、この「$atai1～$atai5」の値を全て足すには。。。。
foreachの間に「$tasu = $atai1+$atai2+$atai3+$atai4+$atai5;」と書いてみましたが、全然駄目でした・・・

正直、自分の頭では・・・・・
0439nobodyさんNGNG
$tasu += $atai1+$atai2+$atai3+$atai4+$atai5;
0440nobodyさん2006/06/11(日) 16:46:10ID:???
>>439
教えていただいて申し訳ないのですが、このようにログが一番古いものしか、ちゃんと表示されません。。。。
http://ranobe.sakuratan.com/up/src/up113712.jpg
0441nobodyさん2006/06/11(日) 17:23:33ID:???
>>440
つまりあれか、その全てに同じ値、全体の合計を表示したいわけか。
それなら二段階に分ける必要がある。
事前に合計を調べた上で、その後に表示。

>>436
reduceの処理でmapを使うのはスマートに思えないな…
$sum += $_ foreach @list[0..4];
reduce処理にはmapを使ってもそう大差無い様に思うのだけれども
0442nobodyさん2006/06/11(日) 17:28:59ID:???
>>434
>一応自分で調べようと努力はしたのですが、検索しきれなくて・・・・・
ていうか、なんで考えないで検索しようとするんだろうね。

自分と全く同じ状況にあるコードの書き方なんて
検索してもなかなか出てくるもんじゃないのに。
0443nobodyさん2006/06/11(日) 18:00:25ID:l/QD+3uq
http://7hp.jp/?id=dealy5th
04444342006/06/11(日) 18:51:48ID:aFjDPMnZ
>>441
ログファイルを2つに分けるってことでしょうか？・・・・　orz
ありがとうございます。やってみます。

>>442
「ファイル perl」、「open perl」等、とりあえずファイル関係で調べていました・・・　orz
0445nobodyさん2006/06/11(日) 18:59:18ID:???
>>444
> ログファイルを2つに分けるってことでしょうか？

そうじゃなくて、1つのログファイルから内容を読み込んだ後
1. 合計を求める foreach
2. 結果を表示する foreach
の2つのforeachを書く必要がある、という事だと思うよ。
0446nobodyさん2006/06/11(日) 19:01:16ID:???
>444
>442は
>なんで考えないで検索しようとするんだろうね。
と書いているんだが・・・お前は日本語が読めないのか？
まず日本語がちゃんと理解できるように勉強し直せ。
0447nobodyさん2006/06/11(日) 19:34:32ID:???
2chｸｵﾘﾃｨ
0448nobodyさん2006/06/11(日) 20:44:56ID:???
use strict;

my($total) = 0;

open(INFH, "test.txt");
while(<INFH>){
　　chomp;
　　my($tmpsum, $tmpstr);
　　my(@data) = split(/,/, $_);
　　my(@nums) = splice(@data, 0, 5);
　　map { $tmpsum += $_ } @nums;
　　$total += $tmpsum;
　　$tmpstr = join("/", @nums);
　　print <<"EOM";
------------------------------
$data[0]
$tmpstr = $tmpsum Points.
$data[1]
EOM
}
close(INFH);
print "------------------------------\n";
print "TOTAL : " . $total . "\n";
print "------------------------------\n";

0449nobodyさん2006/06/11(日) 21:42:55ID:???
今日Perl始めた新米なんだが、例えば
sub test {

$a = 5

}
sub test2 {

print "値は$aだお\n";

}
みたいなノリで、”test”サブルーチン内の変数を”test2”のサブルーチン内で使うことってできる？
上のだとうまく行かなくて…
0450nobodyさん2006/06/11(日) 21:57:42ID:???
もちろんできるよ。ちゃんと定義したサブルーチンを呼び出してる？
パッケージ変数（グローバル変数）を使う時はなるべく our で宣言しておいた方がわかりやすい。
後々「use strict;」を覚えた時にこの事は役に立つはず。

our $a = 0;

sub test { $a = 5; }
sub test2 { print "値は$aだお\n"; }

test();
test2();

実行結果：値は5だお

ところで、 $a と $b はソートに使う特殊な変数なので、なるべく使わない方がいいよ。$c 以降は問題ない。
0451nobodyさん2006/06/11(日) 23:45:03ID:???
>>449
＞$a = 5
0452nobodyさん2006/06/11(日) 23:50:12ID:???
だから、いくらサンプルなり例だったりしても$aとか$bは使うなよorz
0453nobodyさん2006/06/12(月) 00:00:13ID:???
漢は黙って$hoge, $fuga


ただしドメインの例示だけはexample.com
0454nobodyさん2006/06/12(月) 01:00:03ID:???
オレは$yakiniku, $oyakodon, $namahamu
0455nobodyさん2006/06/12(月) 01:01:25ID:???
hoge fuga に続くものってなんなんかな。5つくらいだしたいときって例に悩むわ。
foo bar だと baz, qux, quux, corge, grault, garply, waldo, fred, plugh, xyzzy, thud とかあるんだけど
0456nobodyさん2006/06/12(月) 01:02:57ID:???
＞foo bar だと baz, qux, quux, corge, grault, garply, waldo, fred, plugh, xyzzy, thud とかあるんだけど
初めて知った
0457nobodyさん2006/06/12(月) 01:12:21ID:???
$hoge, $fugaみたいなのって意味あるのかな？
それともただ"ほげほげふがふが"？(ダレてるときの擬音??)

そういえば変数名でよくみかける$lnがピンとこない。
$imgとか$cntだったらパッとみて内容を想像できるんだけど
lnは何を略してるんですか！！
入ってる内容から察するにlineですかね？(´･ω･`)
0458nobodyさん2006/06/12(月) 01:29:00ID:???
>>455
もう一つだけならpiyoかmogeか、かな。しかしあわせて検索すると恐ろしく件数が減る罠

>>456
RFC3092読んどけｗ
0459nobodyさん2006/06/12(月) 01:33:49ID:???
$a、$bを使うことで何か弊害が？
っていうやりとりに繋がっちゃうか恐れてたけど無駄に終わってよかったですｗ
0460nobodyさん2006/06/12(月) 02:08:47ID:???
>>459
>>450
0461nobodyさん2006/06/12(月) 03:44:18ID:???
>>457
そうか、piyo か。

メタ構文変数 http://ja.wikipedia.org/wiki/%E3%83%A1%E3%82%BF%E6%A7%8B%E6%96%87%E5%A4%89%E6%95%B0 とか言うんだなｗ

hoge fuga piyo で、hogehoge fugafuga piyopiyo とか重なってくのが通例みたいね。
hogera とか mogeta とか使ってみたす。
0462nobodyさん2006/06/12(月) 03:49:56ID:???
>>433
お前ちょっと、CODE COMPLETE読め。
0463nobodyさん2006/06/12(月) 03:51:21ID:???
>>457
line か length だろね。
length とか割とよく使うのに長いんだもんな。
0464nobodyさん2006/06/12(月) 17:44:14ID:m4uvfRE1
質問です。

配列@sclArrayには
@sclArray = (●●大学,△△大学,●●大学,□□大学,●●大学,ＸＸ高校・・・);
というような形で200種、1,000件くらいの学校名が入っています。

これを

%schHash = (
●●大学=>'15',
△△大学=>'8',
□□大学=>'7',
ＸＸ高校=>'14',
・・・
);

という形にしたいのですが、根本的にやりかたがわかりません。
調べ方が悪いのかgoogle様にお伺い立てても出てきません・・・

よろしくお願い致します。
0465nobodyさんNGNG
もうちょっと何がしたいのか具体的に
0466nobodyさん2006/06/12(月) 17:55:56ID:???
>>464
その数字の意味はエスパーを御所望か
$schHash{$_}++ foreach @sclArray;
0467nobodyさん2006/06/12(月) 18:11:03ID:???
googleにも聞きようが無いじゃん。
自分で考えろってこった。
どうも考える事を放棄して、ぐぐってる人が多いよね。
04682782006/06/12(月) 19:04:02ID:???
すみませんソートについてもう一度お教えください

前回、配列にするということでご指導頂き、ソートはできました
それでなんですが、実はもう一個keyがあって揃えたいのです
最初は日付でソートし、同じくキャラクターのものを並びにし、

20060612　a
20060520　a
20060610 b
20060423 c という感じにしたいのです
二回繰り返すと最初のソートがリセットされてしまいます
何か方法はあるのでしょうか？

foreach(@data){
push @{$list{$1}},$_ if/^<>inf<>--.*<>(\d*)<>----/ ;}
foreach $key (sort keys %list){
push @htm, @{$list{$key}};
}

foreach(@htm){
push @{$list2{$1}},$_ if/^<>inf<>--(.*).*<>----/ ;}
foreach $key (sort keys %list2){
push @htm2, @{$list2{$key}};
}
0469nobodyさん2006/06/13(火) 00:52:20ID:???
>>464
大学ごとに固有の識別番号が決まっているのでしょうか？
それとも入試合格ラインの偏差値のようなデータ？
大学名と番号の対応が、名称から番号を導けるような規則性を持っていないのなら、
元となるデータなしに自動的に番号の入ったハッシュを作るのは不可能なんじゃないですか。
その対応はExcelの表かコンマ区切りテキストか何かの形で手元にあるのですか？
04704572006/06/13(火) 01:17:24ID:???
>>463
なるほど。コード読むとき少し楽になりそうです。ｱﾘﾄｩｰｽ!!

>>464の数字は配列内での同じ学校名の登場回数と推測。
けどおれのスキルでパッと思いつくのはパターンマッチごにょごにょ・・・
ハッシュのキーごとにインクリメントごにょごにょ・・・が精一杯orz
↑まったく当たっていないかも
0471nobodyさん2006/06/13(火) 05:43:37ID:???
>>468
同時に比較すればいいんでね？

my @arr = qw(
    foo-1 bar-2 baz-3 qux-4
    quux-1 corge-2 grault-3 garply-4
    waldo-1 fred-2 plugh-3 xyzzy-4 thud-5
);
my @new_arr =
    map { $_->[0] .'-'. $_->[1] }
        sort { ($a->[1] == $b->[1]) ? $a->[0] cmp $b->[0] : $a->[1] <=> $b->[1] }
            map { my ($k, $i) = split (/-/); [$k, $i] } @arr;
$, = "\n";
print @new_arr;
exit;

誰かもっといい方法あったらおせーて orz
0472nobodyさん2006/06/13(火) 06:10:34ID:???
>>468
とりあえずこれ。
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq4.html#how_do_i_sort_an_array_by__anything_

ググればもっといいドキュメントが出てくる。
0473nobodyさん2006/06/13(火) 08:04:09ID:???
>>470
後者で行うのが一般的

>>471
<=>とcmpは両辺同じだったら0を返すからorや||で繋ぐだけでいい
04744682006/06/13(火) 12:07:21ID:???
有り難うございます
これは難しい・・・
04754682006/06/13(火) 12:34:52ID:???
まずこれから教えてください
１行のラインが
<>a<>b<>c<>d<>e
という風に、要素が<>で区切られ、それが格納された@dataがあるとします
この中の２つの要素でソートしたいのです、要素には同じ値もあります

２つのkeyをどういう風に考えハッシュを作ったらいいのでしょう？

大変初歩的で申し訳ありませんが、リンク先をプリントしていくら
読んでも簡単に理解できません。
0476nobodyさん2006/06/13(火) 12:55:07ID:???
>>475
無理を承知でお願いします。
どうかうちのバカ息子に因数分解を教えてやってくれませんか？
何度教科書を読んでも理解できないって言うんです。
そのくせ、友達が「こうじゃない？」って親切にヒント出してくれてるのに
無視したりするような非常識な子で…でも、根は優しい良いコなんです。

ちなみに、息子は足し算と引き算はできるらしいんですが
掛け算と割り算はよく分かってないようです。
だから、まず掛け算から教えて欲しいそうです。
おそらく相当な時間が掛かると思いますが、
どうかタダで息子が納得できるまでお付き合い下さいますようお願い申し上げます。
0477nobodyさん2006/06/13(火) 13:15:40ID:???
>475
> リンク先をプリントしていくら
> 読んでも簡単に理解できません。
理解できるまで何百回でも読んでください。
0478nobodyさん2006/06/13(火) 13:21:15ID:???
なんでハッシュとかいう言葉が出てきたのかわからねえｗ
結果としては >>471 で既にできてるじゃんな。それすら理解してないのかね？
04794682006/06/13(火) 14:10:46ID:???
すみません、他の作業しながらしばらく自習してきます
04804642006/06/13(火) 18:12:16ID:???
「（何種類でてくるかわからない）大学名と、
その大学名の出現回数をハッシュにしたい」でした。
質問が悪くてごめんね。

>>466であっさりできました。
ありがとう。
0481nobodyさん2006/06/13(火) 22:03:14ID:???
>>468
少しはググった？
「perl sort 複数 項目」でぐぐれば、コピペプログラミングできる程度の情報が出てくる。
0482nobodyさん2006/06/14(水) 00:39:55ID:???
綺麗な書き方をしていて、誰にでも見やすいcgiがあったら参考にしたいのですが、無いでしょうか？
他人が見ても何をやってるか分かるプログラムを書きたいのですが、汚い書き方が身についてしまい困ってます。
簡単なBBS程度のものだと助かります。
0483nobodyさん2006/06/14(水) 01:15:45ID:???
>>482
「KENT」で検索すれば、掲示板関係を色々配布している人のサイトがあるよ＾＾
0484nobodyさん2006/06/14(水) 01:20:32ID:???
個人的に結城さんのコードとか読みやすくて好きだなぁ。
use strict; しつつCPANモジュールを駆使したCGI。

Tropy のソースはタイ変数が使われてて面白い。
http://www.hyuki.com/tropy/

YukiWikiMini は200行ぐらいでWiki書いてる。こちらもなかなか。
http://www.hyuki.com/yukiwiki/mini/index.html

コメントが少ないから、ちょっと難しいかも。
0485nobodyさん2006/06/14(水) 02:11:28ID:???
>>483
ちょｗｗｗｗｗｗ
0486nobodyさん2006/06/15(木) 12:01:24ID:???
[ main.cgi ]

#!/usr/bin/perl
require './lib.pl';
&test;


[ lib.pl ]

sub test{
print "Content-type: text/html\n\n";
print "test";
}

↑500エラーになる。

[ main.cgi ]

#!/usr/bin/perl

sub test{
print "Content-type: text/html\n\n";
print "test";
}

&test;

↑エラーにならない

requireで読み込むと必ずエラーになってしまうのですが、どうしてでしょうか？
0487nobodyさん2006/06/15(木) 12:08:41ID:???
requreは真の値を返さないとダメでした…。

1;か。
0488sage2006/06/15(木) 21:58:51ID:gFTNSvnG
最近Perlはじめたのですが、
Perlで

print $cgi -> header(-charset=>"EUC-JP");

と記述したのですが、作ってブラウザーでみると
文字化けしてます。。。
ブラウザーの「表示」→「エンコード」を見ると
西ヨーロッパ言語が設定されてます。。。
これをEUC－JPに直すと文字化けしないのですが、
どうやれば、最初から文字化けしないようにできるのでしょうか？
0489nobodyさん2006/06/15(木) 22:14:33ID:???
>>488
多分、HTMLの出力もCGIモジュールを使ってると思うんだけど、出てきたHTML見て見れ。
start_htmlのほうで何も指定しないとlang=en-USのcharset=iso-8859-1になる。

ということで
start_html(-encoding => "EUC-JP", lang => "ja")
0490nobodyさん2006/06/15(木) 22:18:23ID:???
未だに print "content-type: text/html;charset=euc-jp\n\n"; と書きたくなってしまう俺はオールドスタイル…
04914892006/06/15(木) 22:27:19ID:???
あ、ごめんlangのほうに-が抜けた。-langに脳内置換頼む。

ところでふと気づいたけれど、CGIモジュールって
Content-Typeのmetaタグよりtitleのほうが先に来ちゃうのね。
エンコーディングの指定を一番最初に書くことが推奨されてたと思ったけれど･･･
0492nobodyさん2006/06/15(木) 22:27:38ID:???
>490
別にそれでいいじゃん
それぐらい手前で出力しろとか思うわけよ
0493nobodyさん2006/06/15(木) 23:08:38ID:???
>>489-491
なんか文字化けしたままなんですが。。。
レスついたことに(^人^)感謝♪
いわれた辺りをいじってみます。
ありがとうございました。
-------
print $cgi -> header(-cahrset=>"EUC-JP");
print $cgi -> start_html(-title=>$title,
-BGCOLOR => $bg,
-TEXT => $fg,
-encoding => "EUC-JP",
-lang => "ja",
);

-----------
といいつつ
ソース載せてみた。。。orz
0494nobodyさん2006/06/15(木) 23:28:00ID:???
>>493
-cahrsetになってる…
0495nobodyさん2006/06/16(金) 00:24:31ID:???
cgi以下のディレクトリのファイルの存在を参照したい時どうしたらいいのでしょうか？

$check = 'デイレクトリ名/ファイル名';
if (-e $check){
&sonzai
}

上記のようにしてやってみましたがどうもifをスルーしてelseのルーチンばかり実行してしまいます。
0496nobodyさん2006/06/16(金) 01:15:09ID:???
CGIはどこのﾃﾞｨﾚｸﾄﾘで動いてんだ
0497nobodyさん2006/06/16(金) 01:15:42ID:???
>>496
＞cgi以下のディレクトリのファイル
と書いてあります
0498nobodyさん2006/06/16(金) 05:13:12ID:???
スクリプトの動いてるディレクトリと調べたいファイルのディレクトリを考えましょう
0499nobodyさん2006/06/16(金) 08:01:47ID:???
./だろ？
0500nobodyさん2006/06/16(金) 08:42:03ID:???
いや、mod_perl で動かしてるのかもわからないぞ…！
0501nobodyさんNGNG
sjisの嫌な予感が…
■ このスレッドは過去ログ倉庫に格納されています