Leser: 1
6 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
open(FH,">","$post_data_file");
$ofh = select(FH); $| = 1; select ($ofh);
while (read (STDIN ,$LINE, 4096) && $b_read < $len )
{
if (-e "$exit_file") { unlink ("$exit_file"); exit;}
$b_read += length $LINE;
select(undef, undef, undef,0.01);
print FH $LINE;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
close(STDIN);
open(STDIN,"$post_data_file") or &_bye("Upload fehlgeschlagen");
my $cgi = new CGI();
my $assign = "";
my %vars = $cgi->Vars;
while(($key,$value) = each %vars)
{
if(defined $value && $value ne '')
{
my $fh = $cgi->upload($key);
binmode ($fh);
if(defined $fh)
{
...
while (read (STDIN ,$LINE, 4096) && $b_read < $len ){
1
2
3
4
5
6
7
8
9
10
$ echo "123456789012" | perl -wle'
my $data;
while (read(STDIN, $data, 5)) {
print "chunk: <$data>";
}'
chunk: <12345>
chunk: <67890>
chunk: <12
>
$
6 Einträge, 1 Seite |