I think you’ll see that it simply can’t be done
No surprise here, just more total bollocks!
Of course it can be done.
#! perl -slw
use strict;
use threads;
open my $fh, '>', 'junk.dat' or die $!;
$_->join for map {
async {
seek $fh, $_ *80, 0;
print $fh $_ x 78;
};
} 1 .. 4;
close $fh;
open $fh, '<', 'junk.dat' or die $!;
print while <$fh>;
close $fh;
__END__
C:\test>t-write.pl
1111111111111111111111111111111111111111111111111111111111111111111111
+11111111
2222222222222222222222222222222222222222222222222222222222222222222222
+22222222
3333333333333333333333333333333333333333333333333333333333333333333333
+33333333
4444444444444444444444444444444444444444444444444444444444444444444444
+44444444
Didn't your recent meditation achieve your required quota of humiliation for this week?
|