Help for this page

Select Code to Download


  1. or download this
        my $outfile = "a";
        $outfile++ while -e $outfile;
        open my $fh, ">", $outfile or die "$outfile: $!";
    
  2. or download this
        my $outfile = "a";
        my $fh;
        $outfile++ until sysopen $fh, $outfile, O_WRONLY|O_CREAT|O_EXCL;