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

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

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>以下を表示
でいいんじゃまいか

次ページ

続きを表示

1を表示