Help for this page

Select Code to Download


  1. or download this
    my $written = syswrite($test_file, $buf, length($buf));
    die("Unable to write to file: $!\n")
       if not defined $written;
    die("Unable to write whole string in one call\n")
       if $written != length($buf);
    
  2. or download this
    my $offset   = 0;
    my $to_write = length($buf);
    ...
       $to_write -= $written;
       $offset   += $written;
    }