Help for this page

Select Code to Download


  1. or download this
    ...
use Fcntl;
...
$ggg =~ s/\s//g; # no spaces - just incase
open(DEST, ">", $ggg) or $self->ascii_error("Cant upload files: $! Fil
+e: $ggg"); # this works fine
  2. or download this
    sysopen(DEST, $ggg, O_WRONLY | O_TRUNC | O_CREAT) or $self->ascii_erro
+r("Cant upload files: $! File: $ggg");
  3. or download this
    open(FH, ">", $path);
sysopen(FH, $path, O_WRONLY | O_TRUNC | O_CREAT);