- 112 名前： ◆1I.....U.. mailto:age [02/10/15 20:06 ID:???]
- きょうは特別にアップローダの骨格を伝授してやる。あとはおまいらでやれや！
my %in;
if ($ENV{'CONTENT_TYPE'}=~ /boundary="?([^";,]+)/){
my($boundary, $buf, $BUFSIZ)= ($1, undef, 1024* 50);
while (read(STDIN, $buf, $BUFSIZ)){
# ここで適切に切り分けろや！
}
}
