くだすれPerl（超初心者用）

くだすれPerl（超初心 ..

191:nobodyさん
07/06/26 23:32:33
人間必要に駆られないと覚えないから。

1. 何を作りたいか決める
2. とにかく作り始める
3. 詰まったら実現方法を参考書で調べる
4. 2に戻る

あとメモを取った方が効率が上がる。特殊変数全部メモるとか。
それさえあれば何時でも何処でも（少なくとも自分だけは）必ず何でも書けるメモを作る。

192:nobodyさん
07/06/26 23:38:09
「10日で覚える～」を買って本当に10日で習得したって話は聞かないから
>>189はあんまり気にしなくていいよ。

>>191
必要に駆られると覚えるの早いよなあ。納期とか。

193:189
07/06/27 11:43:36 qSRVuZRU
関数が覚えられないからメモをしっかりとってやってみます＾＾；
ゲームとか掲示板を思い通りに作りたいのでまずは基礎からって
感じだと思ったので、とにかく習うより慣れるかな～

194:189
07/06/28 17:14:56 /27P2PeN
質問なんですがよろしくです
#! c:/perl/bin/perl

open(IN, "+<./count.dat");
$count = <IN>;
++$count;
seek(IN,0,0);
print IN $count;
close(IN);
こんなアクセスカウンターがあったとして./count.datの中に
１２が書き込まれていたら次にアクセスしたら１３になりますよね？
seek関数でファイルの先頭に持ってきているのはわかるんだけど
先頭にそのまま持ってきたら１３１２にならない理由を教えてほしいっす＞＜

195:nobodyさん
07/06/28 17:44:35
ファイルにはインサートモードは無い

196:189
07/06/28 17:53:34 /27P2PeN
インサートモードって何ですか？
seek(IN,0,0);
の、部分だけ消してアクセスすると１２１３になるけど
seek(IN,0,0);
が、あることにより上書きになるの？

197:nobodyさん
07/06/28 17:58:37
常に上書きだ
書き込みポイント（シーク位置）が読んだことにより後ろになってるだけ
末尾で上書きすれば追加と同じだろう

メモリでも挿入ってのは、データを後ろにずらしてから上書きしてるんだよ。

198:189
07/06/28 18:16:42 /27P2PeN
？？？（´･ω・`）
seek(IN,0,0); は、
常に上書きって覚えとけば問題ないのかな？
ありがとうございますです。

199:nobodyさん
07/06/28 18:26:31
あーもういいやそれで

200:nobodyさん
07/06/30 14:41:50 zANvV/vQ
こういう範囲指定を → 4.43.96.0/24
このように変換　　　→ 4.43.96.0-4.43.96.255
したいのですが、良い方法を教えてください。

201:nobodyさん
07/06/30 15:21:36
拡大解釈して、「あるIPアドレスがあるネットマスク内にあるか否か」
ってスクリプトなら。

my $netmask = q{4.43.96.0/24} ;
my $ip = q{4.43.96.0} ; # <= ここにテストするIPアドレスをセット
my ( $org_ip, $byte ) = split m{/}, $netmask ;
my $packed_one = unpack qq{B$byte}, pack 'C4', split ( /\./, $ip ) ;
my $packed_two = unpack qq{B$byte}, pack 'C4', split ( /\./, $org_ip ) ;

if ( $packed_one eq $packed_two ){ print q{in} . qq{\n} ; }

こんな感じ？と素人が答えてみるテスト。

202:nobodyさん
07/06/30 15:54:22
>>201
正直Perlは良く分からないのですが、コピペして結果がでました。
どうもありがとうございます。ﾍﾟｺﾘ

203:質問
07/06/30 16:27:58 6uCjWfRX
配列の値をリファレンスを使って、サブルーチンへ渡す方法についての質問です。

下記のような簡単な物を作って、配列のリファレンスがサブルーチン側へ渡されていることは
わかりました。($alldata_refと$getdata_refが同じ）
が、サブルーチンを使っての配列の値の参照がなぜかできません。
いろんなサイトをみても問題はないようですが、わかる方教えてください。

@alldata=(1,2,3,4,5);
$alldata_ref=\@alldata;
print "$alldata_ref\n";
foreach (@$alldata_ref){
print "$_";
}
print "\n";

&COUNT8(\@alldata);

sub COUNT8{
my $getdata_ref="@_";
print "$getdata_ref\n";
foreach (@$getdata_ref){
print "$_";
}
print "\n";

204:nobodyさん
07/06/30 16:43:21
my $getdata_ref=shift;

205:203
07/06/30 16:46:10
うほっ。
よくわかりませんが、できました。
ちょっとshift勉強しに公園のトイレ前に行きます。

206:nobodyさん
07/06/30 16:53:48
便乗で質問させてください

>>203って、サブルーチンの中で引数を取得する時に
ダブルクォーテーションで囲った事が原因ですよね？

207:nobodyさん
07/06/30 17:11:28
printで表示される物と、内部的な扱いは違う。
ついでに、ダブルクオートしなかったら要素数が返るだけと思う。
shift@_なり、$_[0]なりで、ちゃんとリファレンスを取得することが大事。

208:nobodyさん
07/06/30 20:16:18
ついでに、ダブルクオートしなかったら、COUNT8に渡された
リスト(アレイリファレンス1個のリスト)がスカラーコンテ
キストで評価されて結果は1。

209:nobodyさん
07/07/01 06:34:28
my($getdata_ref)=@_;
が推奨されています。
当たり前ですが複数なら以下です。
my($abc,$def,$ghi)=@_;

またPerlでは@arrayの評価は左辺値で決まるので、ダブルクオートしなければ
必ず要素数が返ると信じるのは誤動作の元です。
$#array+1を使うか、scalar(@array)と明示する方法がオススメです。

さらにfor文をこのように書く人が大勢居ますが、
for(,my $i=0; $i<@array; $i++)
非常に遅いので予め@arrayの要素数をスカラーに移して使いましょう。

210:nobodyさん
07/07/03 16:41:35 Fn19fg5B
>>209
板違い。
Perl板でやれ。

211:nobodyさん
07/07/03 19:22:53
perl板って何処にあるんだよ。

212:nobodyさん
07/07/04 09:06:32
URLﾘﾝｸ(pc11.2ch.net)

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

214:nobodyさん
07/07/07 14:50:58
>>213
ここはwebprog板なのでキミの質問は板違いである。

215:nobodyさん
07/07/08 06:04:57
べつに板は違わないけど
Perl CSVやPerl Excelで検索すりゃ一瞬で出るものを書かれると何かが減退する

216:２１３
07/07/09 22:38:35 6iXDsaKo
Webで検索しても分らないから質問したんですが・・・orz

217:nobodyさん
07/07/10 10:55:28
減退しようぜ

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

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

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

220:nobodyさん
07/07/10 13:28:27
>>216
Google 使って「Perl CSV」で検索すると、先頭に出てくるのだが。
一体、何がどう分からないのかな？

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

222:nobodyさん
07/07/11 09:43:51
>>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さん
07/07/11 09:47:22
>>221
5.8.6をインストールすればいい

224:nobodyさん
07/07/11 15:56:08 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
07/07/11 16:09:46 FWgAFc3u
すまんかった。スルーしてくれ

226:nobodyさん
07/07/11 19:57:17
>>222
Excelの吐くCSVはそれだけじゃダメだよ…

227:213
07/07/12 08:33:10
CSVの1行目に
A,B,C,D,E,とあるとするとそれを
①＝A
②＝B
③＝C
…
と格納して

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

228:nobodyさん
07/07/12 14:01:39

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

229:nobodyさん
07/07/13 15:37:18 jk1vnwXj
超初心者質問です。おながいします。
#! c:/perl/bin/perl

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

と、ＣＧＩに書いて本には
Content-type: text/html

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

Hello Perl !

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

230:nobodyさん
07/07/13 15:49:26
>>229
ブラウザ何使ってる？
wgetとかコマンドラインのやつ使ってなけりゃ
Firefox入れてLive Http headers アドインを入れてみるのを薦める

231:nobodyさん
07/07/13 15:52:21
>>229
本の出力例＋説明はコマンドラインから走らせたときを想定してると思う。
CGIとして叩いた場合でなくて。

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

233:nobodyさん
07/07/13 17:33:57
Firefoxはブラウザだ。サーバ(httpd)はなんでもいいよ

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

235:nobodyさん
07/07/13 19:18:19
流石くだ質…レベルが低すぎるってレベルじゃねえぞ

236:nobodyさん
07/07/13 21:48:51
>>234
思いっきりIE6って書かれてるじゃまいか・・・

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

237:nobodyさん
07/07/13 22:29:23

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

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

239:nobodyさん
07/07/14 00:18:15
>>237
スレ汚しが趣味ですか？

240:nobodyさん
07/07/14 07:16:10
はい

241:nobodyさん
07/07/14 07:46:14
>>240
NGフィルタかけたいから、コテなりトリなりつけてくれ。

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

243:nobodyさん
07/07/15 19:59:41
URLﾘﾝｸ(www.activestate.com)
ActivePerlのGet Current Release→Download→continue→Windows (x86) MSI

244:nobodyさん
07/07/15 20:40:29
Windowsと決め付けるところがさすがに超初心者スレッド。

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

というわけで>244はアスペルガー症候群という自閉症だと思われる。
URLﾘﾝｸ(www.autism.jp)

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

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

246:nobodyさん
07/07/15 23:00:57
>>245
後半は余計だ。荒れる素だからヤメレ。

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

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

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

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

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

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

251:nobodyさん
07/07/16 17:32:45 Pd2envQf
どっちも酷いな

252:nobodyさん
07/07/16 18:05:34
>>248-250
後付けで何とか体面を整えようと必死杉。笑う。

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

253:nobodyさん
07/07/16 18:50:59
FreeBSD使いに喧嘩を売ったと見なす

254:246
07/07/17 01:15:15
>>248
あーあ、結局荒れるのか。いいかげんﾓﾁﾂｹ。

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

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

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

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

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

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

257:nobodyさん
07/07/18 16:34:28
獅子王君はどこいったのかね？

258:nobodyさん
07/07/19 18:35:22 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さん
07/07/19 19:12:33 CIvRVShF
>>258
普通にパラメータ書いて分岐させりゃ簡単に出来ると思われ。

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

260:259
07/07/19 19:19:01 IU8VyPgY
どうもですm(__)m
直リンクじゃなくてcgiを利用して使いたかったんで＾＾；
すいません、パラメータってなんですか？＞＜

261:nobodyさん
07/07/19 19:21:52
>>260
実験してるって事？

ひとまず、
URLﾘﾝｸ(www.aikis.or.jp)
これでも見て勉強汁。

262:259
07/07/19 19:28:14 IU8VyPgY
ありがとう。
いろいろ試してみないと気が済まない性格で＾＾；

263:nobodyさん
07/07/20 00:13:39
>>255
裏づけるデータはお前の脳内以外には無いんだな。

264:nobodyさん
07/07/20 03:03:34
キミもそれしか言えないのかね

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

266:nobodyさん
07/07/21 17:15:10 LRr3Colp
バグってきついよねぇ～。

267:nobodyさん
07/07/23 11:42:52
>>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さん
07/07/23 12:05:29
アンカミスった
>>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さん
07/07/23 12:26:23
そうそう、
>>261のリンク先に、getが使用されにくい理由に
・環境変数には長さに制限があるので、getの場合途中でパラメータが切れることがある
・ブラウザがIEの時、フォームに<TEXTAREA>があるときはGETは使えない
・postの場合、パラメータの長さが。環境変数 CONTENT_LENGTH に格納される

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

以上、駄文スマソン

270:258
07/07/23 16:22:00 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さん
07/07/23 19:24:19 ZBWpUMJL
パーミッションの設定に躓いてから　なにもやらなくなって
早2年
そんな自分に嫌気がさす。
てかActivePerlとMySQLのインスコが難しすぎる。
何度やっても失敗ばっかりだ。
俺の人生を象徴しているかのよう。悔しいぜ。

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

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

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

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

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

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

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

273:nobodyさん
07/07/23 21:52:25
>>272
つかまずバッファに入れてから処理しようぜ
SOCKETひらきっぱで処理するのｲｸﾅｲ

274:nobodyさん
07/07/23 22:19:18
>>272
ソケットとかややこしそうで足踏み入れてなかったが、ソケットのヘッダとボディは
"Content-type: text/html\n\n";
となってるんだよな？
\n\nと、改行が２個あるところで判断すればいいと思う。
この改行は\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さん
07/07/23 22:30:09
×ソケットのヘッダとボディは

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

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

276:nobodyさん
07/07/23 23:36:05
>>274
×　$socket[$_]=m/^\n$/
○　$socket[$_]=~m/^\n$/
スンマソ

277:nobodyさん
07/07/24 09:28:58
HEADとBODYって言ってるからhttpヘッダじゃなくて
純粋にhtmlの<HEAD><BODY>の話なんじゃまいか

278:nobodyさん
07/07/24 10:22:47
URLﾘﾝｸ(www.7key.jp)
そこの
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
07/07/25 14:52:50 pV3pjlQZ
こんにちは。質問おながいします。
jcode.plって日本語に変換するプログラムですよね？
英語に変換するものや中国語に変換するものもあるんですか？
英語に変換するものや中国語に変換するものもあるなら
ほしいので知っている方いたらお願いします。

280:nobodyさん
07/07/25 15:02:01
>279
文字コードの変換≠翻訳

いやー、夏だねえ・・・

281:nobodyさん
07/07/25 15:52:28
きっとダンくんが何とかしてくれるよ。（違

282:258
07/07/25 16:39:08 pV3pjlQZ

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

283:nobodyさん
07/07/25 16:46:44
されている場合もある、かな。
中身は、text/html; charset=Shift_JIS
とかだよ

284:258
07/07/25 17:03:43 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
07/07/25 17:10:29 pV3pjlQZ
CGIが動かなくなってしまった＾＾；
無理なのかなぁ・・

286:nobodyさん
07/07/25 17:11:38
なんでいきなり multipart/form-data が出てくるんだ。
元々何の質問なの？文字化けって何が化けてるの？

287:nobodyさん
07/07/25 17:16:13
The PHP documentation team is proud to present to the PHP community a few fixes
and tweaks to the PHP Manual, including:
URLﾘﾝｸ(jp.php.net)

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

288:287
07/07/25 17:23:15
ｽﾏｿ
PHPスレと間違えた

289:258
07/07/25 17:28:38 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さん
07/07/25 17:42:59
jcode.plはutf-8には対応してないから。
さすが「くだすれ」ww
ものすごいレベルの低さだwww

291:nobodyさん
07/07/25 18:32:34
まずは、jcode.plをjcode.pmに変更だ。
少しの変更で移行できる。
その後UTF-8に対応だ。

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

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

294:nobodyさん
07/07/27 18:03:04
\

295:nobodyさん
07/07/27 18:03:54
>>294
それでよかったんですか。ありがとうございます。。

296:nobodyさん
07/07/27 18:26:21
書いたものの、どこで実行すればよいのでしょう？
web上にアップロードして実行するんですか？

297:nobodyさん
07/07/27 18:33:25
on your desk

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

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

300:nobodyさん
07/07/27 21:41:25
コーヒーを淹れる

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

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

303:nobodyさん
07/07/28 00:46:08
>>302
先に開いてあるプロンプトから実行しないと、すぐに閉じてみえなくなります。

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

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

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

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

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

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

306:nobodyさん
07/07/28 11:42:32 YzZLztvi
>>303
先に開いてあるプロンプトから実行・・・・・・・といいますと？
すみません　orz

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

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

308:名無しさん＠そうだ選挙に行こう
07/07/29 04:34:03
おまいら意地悪しないでANHTTPDとか入れるように言ってやれよｗ

309:名無しさん＠そうだ選挙に行こう
07/07/29 08:43:45
あんなものいれるな

310:名無しさん＠そうだ選挙に行こう
07/07/29 11:16:38
じゃあ、いじわるしないで、コレな。
つ[ URLﾘﾝｸ(www.vmware.com) ]
つ[ URLﾘﾝｸ(blog.yasaka.com) ]

311:nobodyさん
07/07/31 00:29:12 pMcNAP1A
Perlをはじめてもいない初心者です。
そんな自分も歓迎してくれるらしいと聞いてやってきました。

ActivePerlがインストールできません。
サイトから5.8.8のMSIじゃない方ﾀﾞｳｿしたのですが
インストール用のバッチファイル実行中に次のエラーが出て終了。
「Can't spawn "command.com":Not such file or directory at (どう見ても
実行中のバッチファイル自身のアドレス) line 272,<STDIN> line 7.」

なに探してるんだよ。orz

解決法ピンとくる方がいたらば教えてください。
スレチなら誘導たのんます…

312:nobodyさん
07/07/31 01:10:27
こういうときは環境ぐらい書くもんだ

313:311
07/07/31 01:25:27
すません。OSはMeです。
おとつい他スレで笑われたけど…orz

314:nobodyさん
07/07/31 01:36:13
msiの使えばいいじゃない。

315:nobodyさん
07/07/31 01:41:39
だめだった。
今チャレンジしてるやつが一応一番進んでるっぽいです。
インストールしてます→エラーです　とな。

316:nobodyさん
07/07/31 01:44:51
>>311
どこから来たかを先に書こうよ。同じ問答しなくてよくなるんだから。
かぶってる住人も…いや、くだすれにはあまりいないのか？

Perlについての質問箱 31箱目
ｽﾚﾘﾝｸ(tech板:685-694番)

向こうはこのあと謎の流れになったんだよなあ…。

317:311
07/07/31 02:03:23
それです！お世話になりました。
初心者むけスレあったんかいと思って移動。

318:nobodyさん
07/07/31 03:35:48
>>311

>　「Can't　spawn　"command.com":Not　such　file　or　directory　at　(どう見ても　
>　実行中のバッチファイル自身のアドレス)　line　272,<STDIN>　line　7.」　

これって
my　$cmd　=　"xcopy　/q　/r　/i　/e　/k　Perl\\*　\"$prefix\"　";
system($cmd)　&&　die　"$!\n";

↑この辺になるんだが、xcopy.exe　がないとかいうことはないよな?
すまんが画面に出てくる途中経過のメッセージの、アボートするちょっと前から
アボートするまで貼り付けてくれ。

319:311
07/07/31 04:12:50
アボードの意味がわかんないけども
xcopy.exeもよくわかんないけども

...

Add the Perl\site\bin and directories to Path?[yes]

Proceed?[yes]
Ok.

Installong ActivePerl...

Copying files...
Can't spawn "command.com":Not such file or directory at (どう見ても以下略

...
って出てます

320:nobodyさん
07/07/31 04:29:23
あ・そうですねなんかxcopyってのがないみたいだ…
探してみます　って手に入るんだろうか。

321:nobodyさん
07/07/31 10:07:43
xcopy.exeは標準で入ってるだろ。
PATH通ってないとか？ありえない気がする・・・

322:nobodyさん
07/07/31 23:24:44
xcopyはありました、
でもDOSで打っても使えないんだよな。
いろいろいじってみます・・・

323:nobodyさん
07/08/01 00:31:48
COMMANDの中身をまるごと
インストーラと同じディレクトリにつっこんでみたところ少し進みました。
だがつまった…

...
Proceed?[yes]
Ok.

Installong ActivePerl...

　　Copying files...
　　Finished copying files...
Relocating...Can't open C:\Perl\bin\c2ph.bat: No such file or directory at
C:\(略)\INSTAL~1.BAT line 307, <$reloc> line 1.

...
ってなって強制終了…ﾊｧ…
ちなみにC:\Perlには何も入ってないです。
いったい何が不味いのでしょうか。

324:nobodyさん
07/08/01 01:09:29
>>311
実は64bit版落としちゃったとかじゃないよな・・・。
前スレ694も書いてたけど、Windows9x/MeだとWindowsInstaller2.0+が
要るんだけど入ってる？

URLﾘﾝｸ(downloads.activestate.com)

325:nobodyさん
07/08/01 01:14:35
x86てあるから多分86bit
入ってる入ってる
場所はどこでもいいんですか？

326:nobodyさん
07/08/01 01:58:42
どんがらがっしゃん

327:nobodyさん
07/08/01 02:15:59
>>324
311が今試しているのはmsiじゃなくてASパッケージの方だから、
とりあえずMSインストーラーのバージョンは関係ない。

ってMSインストーラーのバージョンを上げてもう一回msiで
やればよかったりして。

328:nobodyさん
07/08/01 02:25:56
>>322

>　xcopyはありました、　
>　でもDOSで打っても使えないんだよな。　

いったいまともなシステムなのかい、おまいさんの使っているのは。
Meかどうかってのはおいといても。だ。

>　いったい何が不味いのでしょうか。　

わけもわからず闇雲に

>　COMMANDの中身をまるごと　
>　インストーラと同じディレクトリにつっこんでみたところ少し進みました。　

こんなことやってるからだ。
バッチファイルの中身は実質Perlスクリプトなんだから、適当にいじりなさんな。
...　

329:nobodyさん
07/08/01 03:08:43
>>325
場所？何の？自動的に進むはずだけど。

つかそのMe壊れてるんじゃないかなぁ。

330:nobodyさん
07/08/01 10:18:26
Meかよ！
AUTOEXEC.BATにPATH設定しとけ

331:nobodyさん
07/08/03 16:12:48
ＸＰで、最新版あくちぶぱーるのＭＳＩのほういれようとすると、
警告がでてインスコできない。
古いバージョンなら問題なくはいりました。
ただ、最新版をいれようとナニカ変なことをやらかしたようで、
ノートン先生のゴーバックつかって、インストールしてない状態にもどしてから
古いバージョンをインストールしなおしました。

もしかして、その状態なのかな？

332:nobodyさん
07/08/04 02:01:08
>>307
初めて使う人なわけだからさ。

333:nobodyさん
07/08/04 16:47:07
だから？

334:nobodyさん
07/08/04 18:30:38
アスペルガーの特徴。

自分が知っていることは
他人も当然知っていると思い込んでいる。

335:nobodyさん
07/08/04 19:26:37
アスペルガー症候群は格好良い、天才故の悩みみたいで。
気違い認定されると嬉しいけど、アスペルガー認定も嬉しい。

336:nobodyさん
07/08/05 12:35:06
MSIインストーラは、適当に置くんじゃなくて、
クリックしてインストールしないとね。

337:nobodyさん
07/08/05 13:59:47
>>335
死ねキチガイ

338:nobodyさん
07/08/05 14:23:50
アスペルガーはキチガイじゃないよ
ただ自分にしか関心がなくて
他人にまったく関心がないってだけ。

339:nobodyさん
07/08/07 20:51:45
アスペルガーは、相手の言葉の裏を読めないだけ。
基地外でもないし他人に関心が無いわけでもない。

基地外をアスペルガーと呼ぶのはアスペルガーの人に対して失礼だ。

とマジレス。

340:nobodyさん
07/08/08 01:27:49
でも教科書にはアスペルガーは他人に関心がなく
自分のことにしか関心がない、って書いてあるよ

そしてプログラマー板とか見ると、まさに
そのとおり、って感じ。

341:nobodyさん
07/08/08 08:53:24
>>340
他人に関心を持ちつつも、うまく対処出来なくて悩んでるアスペルガーの人の特集やってるテレビ見た。
アスペルガーに対する偏見はすさまじいらしいから、教科書等でもそういう見方をしてしまうのかと。
実は他人とも仲良くなりたいが、自分が傷つきやすく(言葉の裏が読めない為)、相手の傷つくのも理解しにくい(言葉の裏を読めない為)から、本人達はかなり悩んでいる。
本当のアスペルガーってのは、脳が他のことに特化して、脳の中で他人の言葉を深く考える部分が成長していないんだと。

普通、基地外ってのは、相手がうざがったりへこんだりするのを見て喜んだりするような真性のアホを指すことが多いと思うが、
アスペルガーは(たとえ結果的に傷つけてしまう言葉を言うにしても)相手が嫌な思いをするのを目的で嫌な言葉を使っているのではない。
どこかの教科書に「アスペルガーは他人に関心が無く」ってのは、周りからの(偏見に満ちた)見方をしているだけだと思う。
アスペルガーは、アスペルガー本人にしてみれば他人にも関心があるが、アスペルガーじゃない人がアスペルガーを見ると関心が無い"ように見える"だけだと思う。

アスペルガーはただの発達障害の１つであり、何かの能力で他人より優れている部分があることが多いが、かわりに他の能力で他人より劣ってる部分があるだけ。
なんで、アスペルガー＝基地外っていうのは偏見だと思うよ。

プログラマー板でアスペルガー名乗ってる人が居るのかどうかも知らないが、基地外に対してはアスペルガーではなく基地外と呼ぶほうが正しいと思うよ。
基地外の別称としてアスペルガーを使うのはそれこそ差別になりかねないから。

と２度に渡りマジレスすまそ

342:nobodyさん
07/08/08 08:56:46
最初からそう言ってくれれば別にいいんだけどさ、
結局コミュニケーション取れないから仕事にしても何にしても
やりにくくて仕方が無い。

つかなんでこんな話題が続いてるんだｗ

343:nobodyさん
07/08/08 15:35:52
空気が読めないからさ

344:nobodyさん
07/08/08 21:37:41
話題が無いだけさ

345:nobodyさん
07/08/13 23:51:38
parrotの話でもしよう

346:nobodyさん
07/08/28 21:12:01 S4BK4Wc3
スレッドフロート型掲示板って中規模くらいにはなるの？

347:nobodyさん
07/08/28 22:44:17
>>346
シンプルに作れば200行は超えない。小規模だろう。
もちろんいろいろ細かなことを気にしたり機能を増やしたりすれば
中規模になっても不思議ではない。

348:nobodyさん
07/08/28 22:55:12 S4BK4Wc3
120行程度を8個程度連動して動かすのは？
アップローダーなんだが、スイッチ作るよりもそっちのが若干の負荷軽減になるし。
まぁ、漏れは基本的にそっち系なんだが。

349:nobodyさん
07/09/01 11:35:54 J92zlSvR
perl初心者です
perlでrssを定期的に取得し、取得したrssからurlとタイトルを取得しhtmlに出力
するようなcgiを書きたいです。ムリですか？

350:nobodyさん
07/09/01 11:50:45
>>349
頑張れ

351:nobodyさん
07/09/01 12:21:56
>>349
定期的になんかやる CGI なんて面倒だよ。原則として CGI というのは
サーバがクライアントからリクエストがあったときに起動するものだから。

サーバ内で定期的 RSS を取得するプログラムを走らせるか
RSS を取得する CGI に定期的にアクセスするか、
定期的に取得することをあきらめるか、のどれかが自然だと思うよ。

352:nobodyさん
07/09/02 05:21:02 tMV8T4kQ
>>349
結果をキャッシュして前回アクセスからn秒未満ならキャッシュを渡すようにすれば擬似的に可能

353:nobodyさん
07/09/02 12:32:14 VQ85YXho
クライアントから定期的にリクエストだとか
つか、クライアント上で取得→生成→sleepをwhileでぶん回す方がいいと思う。
レン鯖ではアカウントヤヴァスだが。

354:nobodyさん
07/09/02 12:44:47
while でぶん回すって・・・ cron なりなんなりを使おうよ

355:353
07/09/03 02:09:47
>>354
あくまでPerlだけでやるとすればの話。cron使えないと終りだし。
漏れも昔の話だがtempファイルがどうしても不必要に増えてしまうスクリプトを作ったので
同様の悩みを持ったことがあるが、結局は手動でまとめて消すのが手っ取り早いと気付いた。

つか、クライアントで生成してwhileぶん回す必要ないだろ＞漏れ
何書いてんだか…

356:nobodyさん
07/09/03 02:35:41
・cron使え→使えないレン鯖の場合はどうしろと(´･ω･｀)
・sleep仕込んでwhileでぐるぐるするとか→セッション終わったらどうなるんですか(´･ω･｀)
…になるんだよね。

サーバ側でもクライアント側でもcronやタスクマネヂャが使えない場合で
なおかつCGIでないプロセスを回しっぱなしにもできない場合は、
頻繁にアクセスがあるサイトにCGIのトリガーを仕込みましょうとか、
そういうヘンテコな実装をするはめになる。

357:356
07/09/03 02:36:30
s/タスクマネヂャ/タスクスケヂュラ/;

358:nobodyさん
07/09/03 10:36:26 5z4DsU1G
デフォルトでエラー行数が表示されないってのきつい。。。
みなさんどうやってデバッグしてるんですか？

359:nobodyさん
07/09/03 14:58:39
>>358
最悪の場合、debug.txt作って処理を全て書き込み。
基本的にはエラー表示を使って大雑把に問題を切り分け。

360:nobodyさん
07/09/03 21:53:27
デバッガ使え

361:nobodyさん
07/09/04 02:47:11
Perlのデバッガ使いづらい

362:nobodyさん
07/09/04 22:45:32
>>349
cronかWebcronを使うってのはどうですか？

363:nobodyさん
07/09/04 22:46:07
>>356
webcron

364:nobodyさん
07/09/05 18:27:45 y75V3THa
ＰＥＲＬで画像のアップロードのＣＧＩのことでわからないんですが

▼写メールで画像を送信できます。<HR>
　件名、本文には何も書かなくてOK！<BR>
(サイズ制限:容量制限$maximg\k以内)<BR>
<a href='mailto:$SV_MAIL'>写メール送信</a><BR>
<BR>
送信が成功したら<a href='$CGI_MAIL?ID=$id&PASS=$pass'>こちらへ</a>

と、なってるんですがメインのＣＧＩの　$SV_MAIL　が、カラなんでメール送信できないし
携帯でアクセスしても画像貼れないし、管理のwebmaster@～のメルアドいれても画像転送できないのですが
どうやって設定したら画像転送できるようになるでしょうか？
わかりにくくてすいません。わかる方いたら宜しくおながいします。

365:nobodyさん
07/09/05 18:37:00
$SV_MAIL には自分のサイトのアドレス入れるんだべ？
そして、そのアドレスではプログラムが待ち受けていて
受け取った画像を登録するようになってるはず

ちゃんと説明読んでインストールしたのかね？

366:３６４
07/09/05 18:42:12 y75V3THa
365さん、ありがとう。
管理のwebmaster@～のメルアドいれて携帯から送って受信したメール
見たら、英数字だけが大量に送られていて画像がなかったんです。
＜そのアドレスではプログラムが待ち受けていて＞のプログラムが
おかしくなってるんでしょうか？

367:nobodyさん
07/09/06 10:07:23
>>366
それってContent-Type: multipart/mixed だったりしない？
メールってのは文字しか送れないから、画像のときは
英数字に変換して送られる。
受け取った側は自分で画像ファイルに変換しないと。

368:364
07/09/06 15:14:11 CdaTSQs2
Content-Type: multipart/mixed;
に、なっています。
どうやったら英数字に変換して送れるようになりますか？
CGIの中身は・・
# マルチパートの検出
if ($mHead =~ /Content-type:.*multipart\//i || $mHead =~ /Content\-Transfer\-Encoding:.*base64/i)
に、なっています。これじゃだめでしょうか？
これだけじゃわからないですか？

369:364
07/09/06 15:19:08 CdaTSQs2
CGIの中が・・

# マルチパートの検出
if ($mHead =~ /Content-type:.*multipart\//i || $mHead =~ /Content\-Transfer\-Encoding:.*base64/i) {
# 区切り文字列で分割
$bound = '';
if ($mHead =~ /boundary\=\"(.*)\"/i)

受信したメールのヘッダが
Content-Type: multipart/mixed; boundary="mimemk00_0_"
Content-Transfer-Encoding: 7bit
と、なってます。

370:nobodyさん
07/09/06 15:24:09
メールは受け取ってるみたいだね。
おそらく本文には
Content-Type: image/jpeg;とかContent-Transfer-Encoding: base64 とかあるだろう

で、何ができてないの？画像の保存？
画像を保存する場所のパーミッションとかじゃないの？
エラーログには何か出てないのか

371:364
07/09/06 15:47:39 CdaTSQs2
本文は

/9j/4QIGRXhpZgAASUkqAAgAAAALAA4BAgAlAAAAkgAAAA8BAgAHAAAAuAAAABA
BAgAGAAAAwAAA ABIBAwABAAAAAQAAABoBBQABAAAAygAAABsBBQABAAAA0gAAA
CgBAwABAAAAAgAAADIBAgAUAAAA 2gAAABMCAwABAAAAAQAAAJiCAgABAAAAAAA
AAGmHBAABAAAA7gAAAAAAAAAyMDA3MDkwNjE0MDkw MDAAAAAAAAAAAAAAAAAAA

エラーもでてないしこんなのがずらずらでてるだけだす。
携帯から掲示板に画像をアップしたいけどPCからはできるけど
携帯から送るとこうなってしまって解らなくて；；

372:nobodyさん
07/09/06 16:03:13
>>371
base64のデータのようだからデコードしてバイナリデータに戻せばいいと思う

次ページ