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