[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 05/08 16:18 / Filesize : 307 KB / Number-of Response : 980
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

くだすれPerl(超初心者用)



1 名前:nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]
このスレッドは、他のスレッドでは書き込めない超低レベル、  
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。  
Perl使いが優しくコメントを返しますが、  
お礼はPerlの布教と初心者の救済をお願いします。  


210 名前:nobodyさん [2007/07/03(火) 16:41:35 ID:Fn19fg5B]
>>209
板違い。
Perl板でやれ。

211 名前:nobodyさん mailto:sage [2007/07/03(火) 19:22:53 ID:???]
perl板って何処にあるんだよ。

212 名前:nobodyさん mailto:sage [2007/07/04(水) 09:06:32 ID:???]
pc11.2ch.net/perl/

213 名前:nobodyさん [2007/07/07(土) 14:31:13 ID:MhnKrAyD]
ActivePerlでPerl始めたんだけど、エクセルのデータかCSVから
それぞれの行、列から数値を取り出したいんですけど、
どこかに良いサンプルか参考になるサイトはないですか?

214 名前:nobodyさん mailto:sage [2007/07/07(土) 14:50:58 ID:???]
>>213
ここはwebprog板なのでキミの質問は板違いである。

215 名前:nobodyさん mailto:sage [2007/07/08(日) 06:04:57 ID:???]
べつに板は違わないけど
Perl CSVやPerl Excelで検索すりゃ一瞬で出るものを書かれると何かが減退する

216 名前:213 [2007/07/09(月) 22:38:35 ID:6iXDsaKo]
Webで検索しても分らないから質問したんですが・・・orz

217 名前:nobodyさん mailto:sage [2007/07/10(火) 10:55:28 ID:???]
減退しようぜ

218 名前:nobodyさん mailto:sage [2007/07/10(火) 11:13:10 ID:???]
まああるていどやって、ここがわからないという質問だと答える気にもなるけど
お前らの答えは信用ならんから、サンプルやサイトを教えてくれと言われたら
こたえる気はなくすわな



219 名前:nobodyさん mailto:sage [2007/07/10(火) 11:49:08 ID:???]
「IBMの言う通りにしたけど出来なかった(゚Д゚)」
と言われたなら、へー出来ないんだーという情報価値も少しある。
出来たらぶっ飛ばすけどね。

今ちょっと見たらOffice2000がどのライブラリも対応してる感じだけど、
バージョンの説明も無いし、なんで検索のお手伝いをしないといけないんだって。

220 名前:nobodyさん mailto:sage [2007/07/10(火) 13:28:27 ID:???]
>>216
Google 使って「Perl CSV」で検索すると、先頭に出てくるのだが。
一体、何がどう分からないのかな?

221 名前:nobodyさん mailto:sage [2007/07/10(火) 18:20:33 ID:???]
Mac OS X(10.3.9)を使ってるんですが、perlが5.8.1です。
アップグレードってどうやるんですか?5.8.6にしたいんですが(参考にしてる本が5.8.6だから)

222 名前:nobodyさん mailto:sage [2007/07/11(水) 09:43:51 ID:???]
>>216
ほれ。チョーわかりやすいサンプルを書いてやったぜ。

#! /usr/bin/env perl
$csv = <<"_CSV_";
activePerlで,Perl,始めたんだけど、,エクセルの,データか,CSVから,
それぞれの,行、列から,数値を,取り出したいんですけど、,
どこかに,良いサンプルか,参考になる,サイトは,ないですか?
_CSV_
grep{push(@d2a,[split(/,/)])}split(/\r?\n/,$csv); # 格納
for(@d2a){print for(@$_);print "\n";} # 表示

223 名前:nobodyさん mailto:sage [2007/07/11(水) 09:47:22 ID:???]
>>221
5.8.6をインストールすればいい

224 名前:nobodyさん [2007/07/11(水) 15:56:08 ID:FWgAFc3u]
質問です。おながいします
sub printPage
{
my $begin = $FORM{'page'} * $PAGEVIEW;
my $end = $begin + $PAGEVIEW;

if($end > @DATA) {
$end = @DATA;
}
本を見ながら掲示板を作っているんだけど、my $begin やmy $end が
@DATAの添え字になっているって本に書いてあるんだけど@DATAの添え字なら
$DATE[$begin]とかってってならなくてmy $begin やmy $endで添え字になって
いる理由がわかりません。
わかる方おながいします。

225 名前:224 [2007/07/11(水) 16:09:46 ID:FWgAFc3u]
すまんかった。スルーしてくれ

226 名前:nobodyさん mailto:sage [2007/07/11(水) 19:57:17 ID:???]
>>222
Excelの吐くCSVはそれだけじゃダメだよ…

227 名前:213 mailto:sage [2007/07/12(木) 08:33:10 ID:???]
CSVの1行目に
A,B,C,D,E,とあるとするとそれを
@=A
A=B
B=C

と格納して

print B
print A
print D
みたいなことがしたいんですが。。。。
この処理が終わると2行目へ・・・と言った感じで。

228 名前:nobodyさん mailto:sage [2007/07/12(木) 14:01:39 ID:???]


               (:.;゚;Д;゚;.:)y-~






229 名前:nobodyさん [2007/07/13(金) 15:37:18 ID:jk1vnwXj]
超初心者質問です。おながいします。
#! c:/perl/bin/perl

print "Content-type: text/html\n\n";
print "Hello Perl !";

と、CGIに書いて本には
Content-type: text/html

Hello Perl !
と、出力すると書いてあるのですがやってみると、

Hello Perl !

しか出力しません。なぜでしょうか??
AN HTTPD ってのを使ってます。



230 名前:nobodyさん mailto:sage [2007/07/13(金) 15:49:26 ID:???]
>>229
ブラウザ何使ってる?
wgetとかコマンドラインのやつ使ってなけりゃ
Firefox入れてLive Http headers アドインを入れてみるのを薦める

231 名前:nobodyさん mailto:sage [2007/07/13(金) 15:52:21 ID:???]
>>229
本の出力例+説明はコマンドラインから走らせたときを想定してると思う。
CGIとして叩いた場合でなくて。

232 名前:229 [2007/07/13(金) 16:27:58 ID:jk1vnwXj]
230,231さん、ありがとう。
いろいろ調べてたらCGIヘッダーはWebサーバーからWeb
ブラウザに送信される過程で使われるだけだからブラウザに表示
されるのは「Hello Perl ! 」だけ、とのことみたいなのでなんとなく
解決しました☆
Windows XP使ってますがAN HTTPDではPerl勉強するのに不足でしょうか?
230さんの「Firefox入れてLive Http headers アドインを入れてみるのを薦める 」
を、やったほうがいいでしょうか?



233 名前:nobodyさん mailto:sage [2007/07/13(金) 17:33:57 ID:???]
Firefoxはブラウザだ。サーバ(httpd)はなんでもいいよ

234 名前:229 [2007/07/13(金) 19:08:30 ID:jk1vnwXj]
ユーザーエージェントが
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
なので、Firefoxですか?

235 名前:nobodyさん mailto:sage [2007/07/13(金) 19:18:19 ID:???]
流石くだ質…レベルが低すぎるってレベルじゃねえぞ

236 名前:nobodyさん mailto:sage [2007/07/13(金) 21:48:51 ID:???]
>>234
思いっきりIE6って書かれてるじゃまいか・・・

>>235
スレタイ嫁
答えたくないんなら、スレ読むな

237 名前:nobodyさん mailto:sage [2007/07/13(金) 22:29:23 ID:???]

何故貴方に感想を書くことを
制限されなければならないのですか?
ここはあなたの掲示板なのですか?
スレッドに帰属意識でも持ってるお馬鹿さんですか?

238 名前:nobodyさん mailto:sage [2007/07/13(金) 22:34:44 ID:???]
>>236
最近はMSIEって書いてあっても信用できない事が(Opera等)あるからキヲツケロ。





239 名前:nobodyさん mailto:sage [2007/07/14(土) 00:18:15 ID:???]
>>237
スレ汚しが趣味ですか?

240 名前:nobodyさん mailto:sage [2007/07/14(土) 07:16:10 ID:???]
はい

241 名前:nobodyさん mailto:sage [2007/07/14(土) 07:46:14 ID:???]
>>240
NGフィルタかけたいから、コテなりトリなりつけてくれ。

242 名前:獅子王 [2007/07/15(日) 18:51:36 ID:EW+ZDItZ]
スイマセンが及ばずながら僕もPerlを使いたいと志すものです。
他のところではちょっと僕の質問の仕方が無礼だったようなのでここで質問させてください。
実はつい先日perlをダウンロードするために配布サイトまで行ったのですが
英語尽くしで何がなんだかわかりません。どうも僕にperlのダウンロード
の仕方を教えていただけませんでしょうか?長々とスイマセン。

243 名前:nobodyさん mailto:sage [2007/07/15(日) 19:59:41 ID:???]
ttp://www.activestate.com/downloads/
ActivePerlのGet Current Release→Download→continue→Windows (x86) MSI

244 名前:nobodyさん mailto:sage [2007/07/15(日) 20:40:29 ID:???]
Windowsと決め付けるところがさすがに超初心者スレッド。

245 名前:nobodyさん mailto:sage [2007/07/15(日) 21:09:48 ID:???]
1. UNIX/Linuxはバージョンはともかくプリインストールの筈である
2. 習慣としてMacならMacと断りを入れる
3. 傾向としてWindowsユーザだけがこのような質問をする

というわけで>244はアスペルガー症候群という自閉症だと思われる。
ttp://www.autism.jp/asp/

>子どもでも大人でも社会生活には暗黙のルールがあります。暗黙のルールがわからないために
>他の子どもから嫌われたりいじめられるアスペルガー症候群の子どもが多いのです。

>その場で何が話題になっているか、言外の意味を汲み取ることが苦手なのでどうとでもとれる
>曖昧な質問には答えることが難しいのです。問いかけはなるべく具体的にする必要があります。

246 名前:nobodyさん mailto:sage [2007/07/15(日) 23:00:57 ID:???]
>>245
後半は余計だ。荒れる素だからヤメレ。

247 名前:nobodyさん mailto:sage [2007/07/16(月) 13:22:38 ID:???]
>>245
1以外は妄想だな。
なんていったけ、見下されると我慢できなくて攻撃態勢に入る精神疾患。

248 名前:nobodyさん mailto:sage [2007/07/16(月) 13:46:04 ID:???]
>>247
ホントばかだなオマエは。
その1以外のために「暗黙のルール」や「言外の意味」に関する見解を示したんだよ。
1だけならたしかに後半は余計だった。



249 名前:nobodyさん mailto:sage [2007/07/16(月) 13:57:35 ID:???]
だいたいリンクを踏んで行けば最後に一通りOS名が表示されることも知らないから
>>244のような発言が出るのだろうし、もし>>243
「OSぐらい書け」
と言っていたら、ギャラリーの八割が
「Windowsに決まってるだろ」
と思うわけ。そういう当たり前の常識がオマエには無いんだよ。なぜなら脳に障害があるから。

>>244の脳に障害があることを前提に、極めてわかりやすく、リンクに要点の引用まで付けて
"暗黙のルール" の具体例を示したのに、それでも結局
「1以外は妄想だな。 」
と来る。妄想じゃなくて、暗黙の了解なんだよね。
要するにバカには言葉が通じないので、バカが死ねと言い続けるしか無いんだな。

250 名前:nobodyさん mailto:sage [2007/07/16(月) 14:15:09 ID:???]
なんか今訊いたらOSXもPerlはプリインストールらしいじゃん。
初期でPerlが入っていない主要OSはWindowsのみ。>>244みたいな筋金入りのバカは
「Linuxでもカスタムインストールなら」
と言うかもしれないが、Linuxでは主要なアプリケーションでPerlが使われており、Perlは
対象から外せないか、外したつもりでも他のAPの依存関係で結局インストールされる。
試しにLinuxでPerl消してみろよ。yumもaptも動かなくなるから。

なんでこんなバカが人前で発言する気になるんだろう。

251 名前:nobodyさん [2007/07/16(月) 17:32:45 ID:Pd2envQf]
どっちも酷いな

252 名前:nobodyさん mailto:sage [2007/07/16(月) 18:05:34 ID:???]
>>248-250
後付けで何とか体面を整えようと必死杉。笑う。

これを裏付けるデータあるかね。お前さんの脳内以外に。
> 2. 習慣としてMacならMacと断りを入れる
> 3. 傾向としてWindowsユーザだけがこのような質問をする

253 名前:nobodyさん mailto:sage [2007/07/16(月) 18:50:59 ID:???]
FreeBSD使いに喧嘩を売ったと見なす

254 名前:246 mailto:sage [2007/07/17(火) 01:15:15 ID:???]
>>248
あーあ、結局荒れるのか。いいかげんモチツケ。

>>247
アスペルガー症候群の事か?藻前の煽りも余計だ。荒れる素だからヤメレ。

255 名前:nobodyさん mailto:sage [2007/07/18(水) 12:20:06 ID:???]
>>252
オマエ無様だからそろそろ己の低スキルを自覚して自殺しろよ。
オマエの人真似の言葉なんて誰の役にも立ちゃしないし、生きていても意味が無い。

>>254
「荒れる」のハードルも低くなったもんだなぁ。これはせいぜい教育的指導の域を出ない。
>>244みたいな典型的なバカが匿名を盾に人並みに発言するのが社会にとって最も有害。
ノーテクはノーテクだから>>252のように技術以外の部分に必死で食らいつく他に無い。
先に絡んで来たのは>>244なのだし、オレは知ったこっちゃない。

256 名前:nobodyさん mailto:sage [2007/07/18(水) 12:58:42 ID:???]
まぁスレも過疎ってるし話を広げて行こうぜ。テーマはこんな感じで。
「OSを指定しないPerlの新規インストールに関する質問には当然OSを尋ねるべきである」

1. Linux、Solaris、OSXは通常プリインストールである
2. したがって質問者の使用OSがWindowsである確率はシェアから約99%超と考えられる
3. 1%の可能性のためにOSを尋ねる場合、回答到達までに3フェーズ必要となる
  (OS問合せ->OS回答->URI回答)
4. したがってスレタイに関係なく、この場合OS名を尋ねる者は鬱陶しくも痛いバカである

反論があれば個別にどうぞ。
それとは別にPerlに関するくだらない質問は勝手に訊いてください。

257 名前:nobodyさん mailto:sage [2007/07/18(水) 16:34:28 ID:???]
獅子王君はどこいったのかね?

258 名前:nobodyさん [2007/07/19(木) 18:35:22 ID:IU8VyPgY]
初心者です。質問おながいします。
top.htmlのページからindex.cgiを通してサブルーチンで分岐してa.htmlとb.htmlを
出力したいのですがどうすればいいか詰まってしまいました。
例えば、top.htmlで「男性」or「女性」をクリックしてindex.cgiでotoko.htmlと
onnna.htmlを分岐する場合、top.htmlの中身のリンクの<a href=./index.cgi>
の所になにか条件を指定してcgi内でサブルーチンで分岐できるのですか?
できるならリンクの書き方を教えて欲しいです。
わかりにくくてすんません。



259 名前:nobodyさん [2007/07/19(木) 19:12:33 ID:CIvRVShF]
>>258
普通にパラメータ書いて分岐させりゃ簡単に出来ると思われ。

ってか、top.htmlにotoko.htmlやonnna.htmlへの直接リンクを書かないのはなぜ?


260 名前:259 [2007/07/19(木) 19:19:01 ID:IU8VyPgY]
どうもですm(__)m
直リンクじゃなくてcgiを利用して使いたかったんで^^;
すいません、パラメータってなんですか?><

261 名前:nobodyさん mailto:sage [2007/07/19(木) 19:21:52 ID:???]
>>260
実験してるって事?

ひとまず、
www.aikis.or.jp/~s-suzuki/cgilabo/kouza/cgi2.html#cgilabo4
これでも見て勉強汁。

262 名前:259 [2007/07/19(木) 19:28:14 ID:IU8VyPgY]
ありがとう。
いろいろ試してみないと気が済まない性格で^^;

263 名前:nobodyさん mailto:sage [2007/07/20(金) 00:13:39 ID:???]
>>255
裏づけるデータはお前の脳内以外には無いんだな。

264 名前:nobodyさん mailto:sage [2007/07/20(金) 03:03:34 ID:???]
キミもそれしか言えないのかね

265 名前:nobodyさん mailto:sage [2007/07/21(土) 09:40:53 ID:???]
妄想でしかないんだろ。
妄想を真理と思い込み、他の可能性には気が廻らない。
想定外だったという理由のバグを大量生産するタイプだ。

266 名前:nobodyさん [2007/07/21(土) 17:15:10 ID:LRr3Colp]
バグってきついよねぇ〜。

267 名前:nobodyさん mailto:sage [2007/07/23(月) 11:42:52 ID:???]
>>259

#!/usr/local/bin/perl
use CGI qw(:standard);#CGIでのパラメタ受け取り等を簡単に扱うためのもの
use strict;

my$url=sample.cgi; #これ自身のファイル名にしておく

my$name = param('name'); #フォームからの名前投稿をパラメタとして受け取り

# 以下、投稿フォーム。
#form action="$url" は、submitボタンを押した時に飛ぶ場所
#name="name" は、パラメタ名

print my$a= <<EOM;
Content-type: text/html\n\n
<html><head>
</head><body>
<form action="$url" method="POST">
名前<input type="text" size=10 maxlength="7" name="name"><br>
<input type="submit" value="投稿" name="toukou"></form><hr>
EOM

# 以下、表示。
#もしも$nameがあれば(パラメタとしてでも$nameを受け取っていれば)$nameを表示
if($name){
print$name;
}

268 名前:nobodyさん mailto:sage [2007/07/23(月) 12:05:29 ID:???]
アンカミスった
>>259でなく>>258

上はただのパラメタの使い方。

フォームを
<form action="$url" method="POST">
<input type=radio name=seibetu value otoko >
<input type=radio name=seibetu value onna >
<input type=submit value=投稿>
</form>
とすれば、投稿ボタンが押されたときに$urlのURLに飛んで、パラメタ名seibetuにotokoかonnaを入れて渡すことが出来る。

受け取り側は
my$seibetu = param('seibetu');#パラメタ受け取り

if($seibetu eq otoko){
#パラメタがotokoだった場合の処理
}
elsif($seibetu eq onna){
#パラメタがonnaだった場合の処理
}

デバッグしてないから文法ミスがあるかもしれないが、こんな感じで



269 名前:nobodyさん mailto:sage [2007/07/23(月) 12:26:23 ID:???]
そうそう、
>>261のリンク先に、getが使用されにくい理由に
・環境変数には長さに制限があるので、getの場合途中でパラメータが切れることがある
・ブラウザがIEの時、フォームに<TEXTAREA>があるときはGETは使えない
・postの場合、パラメータの長さが。環境変数 CONTENT_LENGTH に格納される

とあるが、getはURLエンコードして、見える状態で渡されるから、悪意ある第三者に利用される可能性がある。
セキュリティの面から言ってもpostを使ったほうがいい。
もっと言うなら、「getもpostも両方の扱い覚えるのマンドクセ」ってときはpostの扱いだけ覚えればいい。

以上、駄文スマソン

270 名前:258 [2007/07/23(月) 16:22:00 ID:dzTqHpzl]
ありがとう。簡単にこんな感じで作ってみたけど上のもコピーしてやってみます!
#! c:/perl/bin/perl
$buffer = $ENV{'QUERY_STRING'};
if($buffer eq 1) {
otoko()};
if($buffer eq 2) {
onna()};

sub otoko{

print "Content-type: text/html\n\n";
print "<HTML><HEAD>";
print "<TITLE>CGI-TEST</TITLE>";
print "<BODY>\n";
print "$buffer 男性<br>";
print "</BODY></HTML>";
exit;
}

sub onna{

print "Content-type: text/html\n\n";
print "<HTML><HEAD>";
print "<TITLE>CGI-TEST</TITLE>";
print "<BODY>\n";
print "$buffer 女性<br>";
print "</BODY></HTML>";
exit;
}

271 名前:nobodyさん [2007/07/23(月) 19:24:19 ID:ZBWpUMJL]
パーミッションの設定に躓いてから なにもやらなくなって
早2年
そんな自分に嫌気がさす。
てかActivePerlとMySQLのインスコが難しすぎる。
何度やっても失敗ばっかりだ。
俺の人生を象徴しているかのよう。悔しいぜ。

272 名前:nobodyさん [2007/07/23(月) 20:36:30 ID:vSTTUlTw]
Perl勉強しはじめて2週間。
基本的なことなんだけど考え付かなくなってしまったので
発想力をちょっと貸してください。

HTTPリクエストして、BODY部分だけ表示させたいのですが
HEAD部分を表示させないようにSOCKETを

while (<$SOCKET>){ m/^\r\n$/ and last; }
print <$SOCKET>;

こんな感じでHEAD部分はループさせて抜けてから
BODY部分をprintさせるうえで
while使わずにやる方法としてはどうやりますか?

do{}whileやuntilでも出来ると思うんですが
何故かHEAD部分から全部表示されたり、無限ループに突入したりします。

難しいものじゃないはずなのに何故か書けない罠にはまった感じです。

発想力をちょっと貸してください。

273 名前:nobodyさん mailto:sage [2007/07/23(月) 21:52:25 ID:???]
>>272
つかまずバッファに入れてから処理しようぜ
SOCKETひらきっぱで処理するのイクナイ

274 名前:nobodyさん mailto:sage [2007/07/23(月) 22:19:18 ID:???]
>>272
ソケットとかややこしそうで足踏み入れてなかったが、ソケットのヘッダとボディは
"Content-type: text/html\n\n";
となってるんだよな?
\n\nと、改行が2個あるところで判断すればいいと思う。
この改行は\nであって\r\nでは無理だと思う。

my$ppp = my@socket = <$SOCKET>;
for (0..$ppp-1){
if($socket[$_]=m/^\n$/){last}
shift @socket;
}
print @socket;

↑これでイケル希ガス。つかもっといい方法を思いたったので次に書く。
おそらく、HTMLで表示するんだろうから、chompで改行文字を消してもいいんだよね?

my@socket = chomp(<$SOCKET>); #改行文字だけの部分はchompでカラになる。
while(@socket){shift @socket} #@socketで要素が何も無い場所に来るとwhile文がfalseとなりループは終わり、shiftも終わる。
#@socketの0個目の要素は何もカラ、1個目からの要素は改行を取り除いたボディ部分。

ちゃんと動作するか知らんが、初心者同士がんがろうぜ

275 名前:nobodyさん mailto:sage [2007/07/23(月) 22:30:09 ID:???]
×ソケットのヘッダとボディは

○ソケットのヘッダとボディの区切りは


>>274で、もしおかしなこと言ってたらスマソ。
そもそもソケットとかHTTPリクエストとかよく知らんのに答えてもた。


276 名前:nobodyさん mailto:sage [2007/07/23(月) 23:36:05 ID:???]
>>274
× $socket[$_]=m/^\n$/
○ $socket[$_]=~m/^\n$/
スンマソ

277 名前:nobodyさん mailto:sage [2007/07/24(火) 09:28:58 ID:???]
HEADとBODYって言ってるからhttpヘッダじゃなくて
純粋にhtmlの<HEAD><BODY>の話なんじゃまいか

278 名前:nobodyさん mailto:sage [2007/07/24(火) 10:22:47 ID:???]
www.7key.jp/nw/technology/protocol/http1.html
そこの
07:
08:<http>
09:<head>
10:(以下省略)
みたいになってて</head>まで削除して<body>から残したいと。
なら>>274を改造して

my@socket = <$SOCKET>;
for (0..$#socket){
if($socket[$_]=m~/^<body>\n$/i){last}
shift @socket;
}

print @socket; #<body>以下を表示
でいいんじゃまいか



279 名前:258 [2007/07/25(水) 14:52:50 ID:pV3pjlQZ]
こんにちは。質問おながいします。
jcode.plって日本語に変換するプログラムですよね?
英語に変換するものや中国語に変換するものもあるんですか?
英語に変換するものや中国語に変換するものもあるなら
ほしいので知っている方いたらお願いします。

280 名前:nobodyさん mailto:sage [2007/07/25(水) 15:02:01 ID:???]
>279
文字コードの変換≠翻訳


いやー、夏だねえ・・・

281 名前:nobodyさん mailto:sage [2007/07/25(水) 15:52:28 ID:???]
きっとダンくんが何とかしてくれるよ。(違

282 名前:258 [2007/07/25(水) 16:39:08 ID:pV3pjlQZ]

jcode.plにつながっているからかな・・文字化けしてしまう。
$ENV{'CONTENT_TYPE'}
これってなんかの文字コードが格納されているのですか?

283 名前:nobodyさん mailto:sage [2007/07/25(水) 16:46:44 ID:???]
されている場合もある、かな。
中身は、text/html; charset=Shift_JIS
とかだよ

284 名前:258 [2007/07/25(水) 17:03:43 ID:pV3pjlQZ]
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error('アクセスエラー');}

if($ENV{'CONTENT_TYPE'} !~ /multipart\/form-data; boundary=------------/){
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$name2 = $name;
$value2 = $value;
$QUERY2{$name} = $value;

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value = change_i_pic_sym($value);

こんな感じになってます。
$ENV{'CONTENT_TYPE'} の、ところをtext/html; charset=Shift_JIS
にしてutf-8にしたいからtext/html; charset=utf-8
に、すれば文字化けふせげますかね?
やってみます。


285 名前:258 [2007/07/25(水) 17:10:29 ID:pV3pjlQZ]
CGIが動かなくなってしまった^^;
無理なのかなぁ・・


286 名前:nobodyさん mailto:sage [2007/07/25(水) 17:11:38 ID:???]
なんでいきなり multipart/form-data が出てくるんだ。
元々何の質問なの?文字化けって何が化けてるの?

287 名前:nobodyさん mailto:sage [2007/07/25(水) 17:16:13 ID:???]
The PHP documentation team is proud to present to the PHP community a few fixes
and tweaks to the PHP Manual, including:
jp.php.net/

これのproud toって誇りを持ってとか、プライドを持ってとかの意味?
たまにPHPトップのニュースに出てくるけど、そこまで大げさに言わなくてもいいんじゃないの?

288 名前:287 mailto:sage [2007/07/25(水) 17:23:15 ID:???]
スマソ
PHPスレと間違えた



289 名前:258 [2007/07/25(水) 17:28:38 ID:pV3pjlQZ]
さっきのプログラム(rog.cgi)はコード変換処理ってところを抜き出して
コピペしたんだけどjcode.plにコード変換処理させていてrog.cgiの
ファイルがutf-8にしてあるから文字化けしてるのかなと思い・・
jcode.plをutf-8に対応できるプロトコル?にできればいいんですが
それがどうしていいかわからなくて。説明へたですんまそん。
ほかのcgiファイルにはいってるhtmlはtext/html; charset=utf-8
で文字化けしてないけどrog.cgiを通って出力するhtmlは文字化けしてしまうので・・


290 名前:nobodyさん mailto:sage [2007/07/25(水) 17:42:59 ID:???]
jcode.plはutf-8には対応してないから。
さすが「くだすれ」ww
ものすごいレベルの低さだwww

291 名前:nobodyさん mailto:sage [2007/07/25(水) 18:32:34 ID:???]
まずは、jcode.plをjcode.pmに変更だ。
少しの変更で移行できる。
その後UTF-8に対応だ。

292 名前: ◆lVJAPUTeX. mailto:sage [2007/07/25(水) 23:03:36 ID:???]
(we are) proud to... は英語の決まり文句なので、訳する場合は "proud" は無視しちゃってもいいくらいのものです。


293 名前:nobodyさん [2007/07/27(金) 17:51:08 ID:lN7iMdmd]
/の逆の斜線はどこを押すと出てきますか、
超初心者以前の問題ですみません

294 名前:nobodyさん mailto:sage [2007/07/27(金) 18:03:04 ID:???]
\

295 名前:nobodyさん mailto:sage [2007/07/27(金) 18:03:54 ID:???]
>>294
それでよかったんですか。ありがとうございます。。

296 名前:nobodyさん mailto:sage [2007/07/27(金) 18:26:21 ID:???]
書いたものの、どこで実行すればよいのでしょう?
web上にアップロードして実行するんですか?

297 名前:nobodyさん mailto:sage [2007/07/27(金) 18:33:25 ID:???]
on your desk

298 名前:nobodyさん mailto:sage [2007/07/27(金) 18:40:42 ID:???]
どこで実行するかも決めずにいきなり書いたのか・・・
この板的には、とりあえずhttpサーバ入れて設定するのがいいのでは



299 名前:nobodyさん mailto:sage [2007/07/27(金) 21:08:35 ID:???]
いろいろググってみたのですが、わからないので教えてください。
現状を言うと、ActivePerlはインストール完了、
  #!/usr/bin/perl
  print "Hello, world!\n;
をActivePerlでできたフォルダにhello.plで保存。
再起動済み、次にどうすればいいのでしょうか・・・
ちなみにOSはvistaです。

300 名前:nobodyさん mailto:sage [2007/07/27(金) 21:41:25 ID:???]
コーヒーを淹れる

301 名前:nobodyさん mailto:sage [2007/07/27(金) 22:07:58 ID:???]
>>299
関連付けが正常に行われていれば
(plのファイルのアイコンがトカゲになっていれば)
ダブルクリックで実行。
ただし、
print "Hello, world!\n";
とすること。
1行目は不要。

302 名前:nobodyさん [2007/07/27(金) 23:38:19 ID:lN7iMdmd]
>>301
アイコンはトカゲになってます。
ダブルクリックすると開いた瞬間閉じてしまうのは仕様なんでしょうか?
print "Hello, world!\n"; で実行しましたが、結果はどうなってるのやら・・・・orz

303 名前:nobodyさん mailto:sage [2007/07/28(土) 00:46:08 ID:???]
>>302
先に開いてあるプロンプトから実行しないと、すぐに閉じてみえなくなります。

sleep 5;と入れれば幸せになれますか?

304 名前:nobodyさん mailto:sage [2007/07/28(土) 07:29:47 ID:???]
cgi-lib.plを使って受け取ったフォームから受け取った値を
for文で繰り返し処理しようと思ったのですがうまくいきません

my %input;
&ReadParse(\%input);

for (1..20) {
$MORAU[&_] = $input{'&_'};
}

やっぱり根本的に間違えてるんでしょうか

305 名前:nobodyさん mailto:sage [2007/07/28(土) 08:02:50 ID:???]
うん。根本的に間違えておる。
詳しくは超初心者の心理を鋭く妄想できる>>245大先生が教えてくれるだろう。

306 名前:nobodyさん [2007/07/28(土) 11:42:32 ID:YzZLztvi]
>>303
先に開いてあるプロンプトから実行・・・・・・・といいますと?
すみません orz

307 名前:nobodyさん mailto:sage [2007/07/28(土) 14:46:24 ID:???]
その言葉のどこが、何がわからないのかね。
まさか日本語が判らないのかね。
謝る前にもう少し質問を明瞭にするべきじゃないかね。

とりあえずprint文の次に>>303のコマンドを入れてみてはどうかね。

308 名前:名無しさん@そうだ選挙に行こう mailto:sage [2007/07/29(日) 04:34:03 ID:???]
おまいら意地悪しないでANHTTPDとか入れるように言ってやれよw



309 名前:名無しさん@そうだ選挙に行こう mailto:sage [2007/07/29(日) 08:43:45 ID:???]
あんなものいれるな

310 名前:名無しさん@そうだ選挙に行こう mailto:sage [2007/07/29(日) 11:16:38 ID:???]
じゃあ、いじわるしないで、コレな。
つ[ www.vmware.com/ja/products/player/ ]
つ[ blog.yasaka.com/archives/2005/10/vmware_playervi.html ]







[ 続きを読む ] / [ 携帯版 ]

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧](;´∀`)<307KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef