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

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

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個目からの要素は改行を取り除いたボディ部分。

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

次ページ

続きを表示

1を表示