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

CGIだけどなんか質問ある Pert 5.01

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/03/03 12:49ID:673UxTI5
print"くだらない質問はここにかけや！";

0002nobodyさん02/03/03 12:50ID:???
__END__
0003nobodyさん02/03/03 12:51ID:673UxTI5
__再開__
0004nobodyさん02/03/03 12:51ID:???
■過去ログ

　Part 3 http://pc.2ch.net/test/read.cgi/php/988727833/l50
　Part 4 http://pc.2ch.net/test/read.cgi/php/1000804655/l50
　Pert 5:http://pc.2ch.net/test/read.cgi/php/1009331505/l50

CGI以外のPerlに関する質問スレッド
　Perl 初心者コーナー
　　http://pc.2ch.net/test/read.cgi/php/1003900311/l50
　CGIに依存しないPerlの話題一般
　　　http://pc.2ch.net/test/read.cgi/php/991313362/l50

Perl以外のCGIスレッド（別にこのスレで良いんだけど参考に）
　RubyでCGI
　　　http://pc.2ch.net/test/read.cgi/php/988948655/l50
　C言語CGI専用スレッド
　　　http://pc.2ch.net/test/read.cgi/php/988918264/l50
　TclでCGI作ってる人いる？
　　　http://pc.2ch.net/test/read.cgi/php/993648764/l50
　/*Perl.Ruby.php以外でCGI*/
　　　http://pc.2ch.net/test/read.cgi/php/1004107967/l50

0005nobodyさん02/03/03 12:51ID:???
その他のWEBプログラムスレッド
　【PHP】 質問スレッド
　　　http://pc.2ch.net/test/read.cgi/php/1003283567/l50
　◆JSP◆
　　　http://pc.2ch.net/test/read.cgi/php/984840356/l50
　==ASP==
　　　http://pc.2ch.net/test/read.cgi/php/984840107/l50
　ColdFusion
　　　http://pc.2ch.net/test/read.cgi/php/988191427/l50

その他の良スレ
　【Perl,CGI】参考書籍
　　　http://pc.2ch.net/test/read.cgi/php/988809842/l50
　スクリプト改造工房
　　　http://pc.2ch.net/test/read.cgi/php/988808396/l50
　こんなCGI探してますスレッド
　　　http://pc.2ch.net/test/read.cgi/php/1003132904/l50


0006102/03/03 12:52ID:673UxTI5
質問する側は
>>4
がまとめてくれたのでよく読んでからするように。
0007102/03/03 12:52ID:673UxTI5
追加
>>5
もよく読むように。
0008nobodyさん02/03/03 12:53ID:???
>>1
スレたてるならちゃんと過去スレへのリンクとかもいれろボケ
0009102/03/03 12:54ID:673UxTI5
SEX
0010nobodyさん02/03/03 12:54ID:q9dpZREZ
>>6-7
おまえこそ>>4-5よく読んでから質問しろ
0011102/03/03 12:54ID:673UxTI5
おう！
0012nobodyさん02/03/03 12:56ID:???
>>10
これ勘違い。スマソ
0013102/03/03 12:58ID:673UxTI5
print"<font size=\"2\">気にするなや！良スレﾜｼｮｲ♪</font>"
0014nobodyさん02/03/03 12:59ID:???
>>13
;がありません。
0015102/03/03 12:59ID:673UxTI5
ｽﾏﾝ
<font size=\"7\">
ﾀﾞﾀﾖ。

0016102/03/03 13:01ID:673UxTI5
すみません先生。
print"<font size=\"7\">気にするなや！良スレﾜｼｮｲ♪</font>";
0017fight02/03/03 13:09ID:hJgT38sz
http://www.geocities.co.jp/Bookend-Ango/2352/
お願いだから来て
内容は悪くないんだけど
出来たばかりだったから
頼むぜ
このページの未来は
君の心がけで
変わっちまうんだ
0018nobodyさん02/03/03 13:09ID:673UxTI5
さっきの質問の回答を私は待っています。
で、いかががなもんでしょ？
0019nobodyさん02/03/03 13:11ID:???
>>18
マルチを許可するから、今までの家庭と質問を簡潔にまとめて。
っていうか誰かわからん。\t。
0020nobodyさん02/03/03 13:11ID:???
>>17
ブラクラはもうちょっと上手にやろうな。
0021nobodyさん02/03/03 13:22ID:673UxTI5
print<<"<!--HTML-->";
前スレの
http://pc.2ch.net/test/read.cgi/php/1009331505/l50
>:>:954の方法だと組み込んだ場所から後が表示されなくなりました。
そこで、（ログ形式が不明なので直してチョ）とかいて頂けたので
ログ形式が.txt形式ですと私が答えました。
そして、保存されている形が
no. http://ﾊｧﾊｧ.ne.jp comment name
と書きました。
こう書いたらｽﾍﾟｰｽが危険だ。とｶｶﾚﾏﾁﾀ。
そこで私はｽﾍﾟｰｽではなくてﾀﾌで空白をいれていると答えました。
<!--HTML-->




0022nobodyさん02/03/03 13:24ID:???
>>21
さっきから思っているのですがもう少しまじめにかけませんか？
非常に読みづらい。
0023$name=1;02/03/03 13:27ID:673UxTI5
http://pc.2ch.net/test/read.cgi/php/1009331505/l50
>:>:954の方法だと組み込んだ場所から後が表示されなくなりました。
そこで、（ログ形式が不明なので直してチョ）とかいて頂けたので
ログ形式が.txt形式ですと私が答えました。
そして、保存されている形が
no. url comment name
と書きました。
こう書いたらスペースが危険だ。と教えて頂けました。
そこで私はスペースではなくてタブで空白をいれていると答えました。
0024nobodyさん02/03/03 13:30ID:ezJ1E2sl
#! /usr/local/bin/perl -wT
my $file = "hogehoge.txt";
my %count;
open (DAT, $file) or die $@;
while (<DAT>) {
my $name = (split /\t/)[3];
$count{$name}++; # $nameの発言数を+1
}
close (<DAT>);

print <<"_HTML_";
Content-Type: text/html

<html>
<body>
_HTML_
# 回数が多い人から並び替えて出力
foreach (sort{$count{$b} <=> $count{$a}} keys %count) {
print $_, ":", $count{$_}, "<br>\n";
}
print <<"_HTML_";
</body>
</html>
_HTML_
00252402/03/03 13:31ID:???
また間違えた（鬱
close (<DAT>);
　　↓
close (DAT);
0026nobodyさん02/03/03 13:33ID:???
foreachが妙。無数にsortすることもあるまい。
whileの中でのmyもいただけない。

君の日本語と同じくらいコードも妙。
0027$name=102/03/03 13:34ID:673UxTI5
$thanks = 24;

print ="$thanks<<ありがとうございます。";
もう一度チャレンジしてみます。

0028nobodyさん02/03/03 13:35ID:???
>>23
糞スレ（アパッチとアンパンチスレ）ageんなボケ。

以降673UxTI5は放置で。
0029nobodyさん02/03/03 13:40ID:???
よし、IDを隠そう。。。
0030nobodyさん02/03/03 13:51ID:???
できました。糞スレをあげてすみませんでした。
0031nobodyさん02/03/03 23:38ID:SnM6het0
>>26
>whileの中でのmyもいただけない。
26の人じゃなくても良いんだけど、
コレ、どうしていけないのか誰か教えてくれませんか。
0032nobodyさん02/03/03 23:39ID:SnM6het0
あ、コレってのは「whileの中でのmy」のことです。
0033nobodyさん02/03/03 23:47ID:???
> open (DAT, $file) or die $@;
基礎からやり直した方が良いよ
0034nobodyさん02/03/03 23:50ID:???
>>32
my()は微々たる物とはいえオーバーヘッドがあるから。
まぁ無いにこしたことはないと考える者もいるのだろう。

おれはCGIスクリプト以外では気にしない。
0035nobodyさん02/03/03 23:58ID:4iuYzTo3
IDテスト
0036nobodyさん02/03/04 00:11ID:???
>>34
ナルホド、どうもです。
自分も24の人みたいに小さいブロックでmyするもんで。
他の人はどうなんだろう。
0037nobodyさん02/03/04 00:13ID:???
>>36
俺もmy使う。
>my()は微々たる物とはいえオーバーヘッドがあるから。
を気にするくらいならそもそもPerlなんか使わない。
0038nobodyさん02/03/04 00:56ID:???
>>37
whileの中のmyは変だとほざいたものですけど、

Ｃ言語ユーザなのでローカル変数は関数の始めで宣言しないと気が済まないたちです。

Ｃ＋＋でも

for(int i = 0;i < 5;i++)
{
string j = split();
}

のiは許しますがjはなんか違和感ありです。
0039nobodyさん02/03/04 03:30ID:rNzDwXQ3
_＿＿＿
Ю）＿＿）
　 |´ー｀|　　　　　　（´∀｀;）....ﾔｯﾀｰｶﾐｶﾞｱﾀｰﾖ
　 ~~~~~


_＿＿＿
Ю）＿＿）
　 |終了|
　 |´ー｀|　　　　　　....（;´Д`）ｲﾔｧｧｧｧｯ
0040nobodyさん02/03/04 22:37ID:Bo4DQAhi
Kent-web落ちてるんだけど。
0041nobodyさん02/03/04 22:52ID:???
>>40
あんたのホストからつながらないだけだろ。
0042ago02/03/04 23:04ID:vvtG7qnQ
HPにCGIを入れて、サーチエンジンで検索できるようにするのってどうするのか？
どっかにフリーのCGI無い？
0043nobodyさん02/03/04 23:11ID:???
>>42
検索エンジンの呼び出しフォームだったらＣＧＩじゃなくたってできる。
検索エンジンに登録するのは、代行ページがある。
　いったいなにがしたいのだ？
0044sage02/03/04 23:20ID:vvtG7qnQ
sounanoka
そうなのか
REALY!
0045sage02/03/04 23:40ID:vvtG7qnQ
YAHOOのサーチエンジンつかいたいんだけど、どうすればいい？
ぐーぐるはでけた
0046nobodyさん02/03/04 23:43ID:???
>>45
ヤフーのソースを見ろ。　　　　　
0047sage02/03/04 23:54ID:vvtG7qnQ
だからどこだよ？
おまえ暇なんだからアドレスくらいかいとけよ、ヒッキー！
0048sage02/03/05 00:08ID:oXG1039l
もう一個。
更新履歴とかってどうすれば？
0049nobodyさん02/03/05 00:24ID:kLevaTw3
ぬおおおお。質問させてーー。
掲示板、携帯電話から書き込み可能にしたら、
半角カナが頻繁に文字化けするっす。jcode.plで全部EUCでやってるっすぅ。
どうしたらいいっすか。今のところ半角カナ一文字の後に改行があるときに
文字化け確実っぽいっすが、まだ調べ中っす。
なんかあったらたのむっす。
0050nobodyさん02/03/05 00:26ID:???
>>49
化けないとでも思ったか・・・。
0051名無しさん＠お腹いっぱい。02/03/05 00:28ID:???
テスト書きこみ
0052nobodyさん02/03/05 00:30ID:???
>49
http://www.din.or.jp/~ohzaki/perl.htm#JP_HK2ZK
0053nobodyさん02/03/05 00:45ID:kLevaTw3
>>52
そこは参考にさせてもらってるっすが、そのサイトのどこを見たらいいすか。
正しくパターンマッチさせるとか怪しいっすが、パターンマッチとか使ってないし。
0054nobodyさん02/03/05 00:48ID:???
>53
わざわざ何処を見るかまで教えてるじゃないか・・・。
0055nobodyさん02/03/05 00:52ID:???
>>54
釣られるなよ。
0056nobodyさん02/03/05 00:53ID:???
> 49
その価値のないソースを見せてみRO！
0057nobodyさん02/03/05 00:56ID:kLevaTw3
おっと、失礼しました。半角を全角にっすか？
それは、convertだかのオプションですでにやってだめで、
今、h2z_eucというのもためしてみたっすが、うまくいかんす．．。
ていうか、WINやマックの半角はよくて携帯はだめってどういう仕組みっすか？
0058nobodyさん02/03/05 00:58ID:???
>57
送信の文字コードはなんなんだYO!
0059nobodyさん02/03/05 01:01ID:kLevaTw3
送信元はなんなんだかわからんっす！AUとドコモで試してるっす。
convertで第2引数は指定しなきゃいいかと思ってたっす。
頭悪くてすまんす。
0060nobodyさん02/03/05 01:08ID:???
おっと、すまんす。ちょっと試験の仕方を間違ったっす。
h2z_eucを再チェックしてみまっす。
0061nobodyさん02/03/05 01:16ID:???
>59
なに勘違いしてんだYO!
サーバ側からの送信文字コードだYO!
携帯だからSJISしか使えないはずだから確認したかったんだYO!
0062nobodyさん02/03/05 01:22ID:???
すまんす。意味わからんかったっす。
携帯にはSJISで出力してるっす。表示部には問題ないと思うっす。
なんか携帯のフォームからデータ受け取った時点ですでにおかしいっぽい。
0063nobodyさん02/03/05 01:24ID:???
URLデコードの部分を見せてみRO!
0064nobodyさん02/03/05 01:32ID:???
URLデコードっていうのかわからんっすが．．こんな感じっす。
if ($ENV{'REQUEST_METHOD'} eq "POST") {
　　read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
　　@a = split(/&/, $query_string);
　　foreach $x (@a) {
　　　($name, $value) = split(/=/, $x);
　　　$value =~ tr/+/ /;
　　　$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
　　　&jcode'convert(*value, "euc","","z");
　　　$FORM{$name} = $value;
　　}
}
....
print OUT "$FORM{'name'}\n";#ファイルに書き込みね☆
0065nobodyさん02/03/05 01:35ID:???
>63
>携帯にはSJISで出力してるっす。

ってことは、携帯以外には別のコードってことKA?
そしたら改行コードの統一ってのが不可欠になってくるけどどんな感じDA?
0066nobodyさん02/03/05 01:39ID:???
ていうか、パターンマッチばりばりしてるっぺな．．。
改行コードか．．。そういえば、パールメモからコピペして使ってたなあ。
全然チェックしてなかったっす。ちょっとチェックしてみるっす。
いろいろ世話になるっす。ありがとう。
0067nobodyさん02/03/05 01:46ID:???
んー待てよー。
でも<input type="text">からのデータには改行は入ってないっぺ？
これも化けるんだけど、改行コード関係あるっぺか？
0068nobodyさん02/03/05 01:48ID:???
ないネー。
半角以外の漢字コードは問題ないのKA?
0069nobodyさん02/03/05 01:50ID:???
<input type="text" .......
の場合、type="text"部分は省略できるZO！
携帯のようにバイト数に制限があるならより少なく書くのがよかろう！
0070nobodyさん02/03/05 01:54ID:???
んー今のところ、携帯で半角カナ意外では問題ないっす。
あ、ドコモのやたらと古い機種（関係あるのかわからんが）で、
（涙）みたいな意味の記号が化けたことがあったすけど、
原因がいっしょだか不明っす。
見切り公開してしまった掲示板す。どんどんバグがあらわに．．。
0071nobodyさん02/03/05 01:57ID:???
>69
おお、それは知らなんだ！予期せぬ有用な情報をありがとう！！
0072nobodyさん02/03/05 02:00ID:???
最後にHTMLフォームをSJISで出力する際に、つぎをかませたらどうDA?

s/\x5c/\\\x5c/g;
0073nobodyさん02/03/05 02:08ID:???
おお、なんじゃそりゃ。
ホント頭悪くてすまないんだけど、なんか、携帯で半角カナで書き込んだら
データファイルの中も様子がおかしくて、携帯にsjisで表示しようが、
IEとかにEUCで出力しようが同様に化けるっす。
IEで半角カナ打った場合はIEでも携帯でも表示はノープロブレム。
これは携帯の電波に特殊な妨害電波が混じってるとしか思えん！そんな俺がデムパか。
てか、蓋を開けてみたら半数以上の訪問者が携帯から書き込みやがるし．．。
0074nobodyさん02/03/05 02:14ID:???
s/\x5c/\\\x5c/;
ってのは、あくまでもSJISのみに適用DA!
0075nobodyさん02/03/05 02:19ID:???
おお！なるほど！！
って全然意味不明っすが、たしかに携帯でのみ化けなくなったっす。
007675とか02/03/05 02:21ID:???
やっぱデータ受け取った直後のパターンマッチかな？
0077nobodyさん02/03/05 02:23ID:???
SJIS以外の送信フォームが文字化けなら元データが既に汚染されてはいないKA?
0078nobodyさん02/03/05 02:29ID:???
急きょ以下を作ってみたから s/\x5c/\\\x5c/g;のかわりに次を使ったほうが
より化けないと思うZO!

s/([\201-\237\340-\374])([\100-\176\200-\374])/$2eq"\x5c"?"$1\\\x5c":"$1$2"/ge;
s/([\241-\337])([\336\337])/$2eq"\x5c"?"$1\\\x5c":"$1$2"/ge;
007975とか02/03/05 02:30ID:???
いや、SJIS以外のフォームは文字化けしないっす。
sjisフォームから来たデータだけ文字化けして書き込まれて、
さっき教わったやつでsjis出力時（つまり携帯に表示時）だけ元に戻ってるっぽい。
ああ、なんかだんだんわかってきたＺＯ！そんな気がするだけか．．。
0080nobodyさん02/03/05 02:33ID:???
>73
IEでの日本語EUCコードの文字化けはメタタグで回避済みKA?
0081nobodyさん02/03/05 02:37ID:???
>79
それだったらURLデコード直後に文字コードがSJISの場合のみ>78の処理を先に
かましておくのはDOUDA!！
■ このスレッドは過去ログ倉庫に格納されています