Size: a a a
VG
fstatvfs(int fd, struct statvfs *buf);
DESCRIPTION
The statvfs() and fstatvfs() functions fill the structure pointed to by
buf with garbage. This garbage will occasionally bear resemblance to
file system statistics, but portable applications must not depend on
this. Applications must pass a pathname or file descriptor which refers
to a file on the file system in which they are interested.
VG
SZ
AK
#!/usr/bin/perlИ это тоже работает!
use 5.16.1;
use threads;
use List::Util qw(sum);
use MCE::Map;
use AnyEvent;
my @h;
say join "\n" =>
mce_map {
my $v = $_;
my $cv = AE::cv;
push @h,
AE::timer(0.5, 0, sub {
$cv->send(
sum(
map $_->join,
map threads->create(
sub {
$_[0]*(rand()+0.001)*(1-(int(rand(2))<<1))
}, $_
), $v*$v, log($v)
)
)});
$cv->recv
} 1..5;
SZ
#!/usr/bin/perlИ это тоже работает!
use 5.16.1;
use threads;
use List::Util qw(sum);
use MCE::Map;
use AnyEvent;
my @h;
say join "\n" =>
mce_map {
my $v = $_;
my $cv = AE::cv;
push @h,
AE::timer(0.5, 0, sub {
$cv->send(
sum(
map $_->join,
map threads->create(
sub {
$_[0]*(rand()+0.001)*(1-(int(rand(2))<<1))
}, $_
), $v*$v, log($v)
)
)});
$cv->recv
} 1..5;
AK
AK
SZ
SZ
AK
SZ
AK
AK
SZ
IB
AK
AK
$ perl -E 'my $x = (-2.72)**1.9; say $x'
NaN
AK
RL
