Help for this page

Select Code to Download


  1. or download this
    if (open(OUTFILE, ... )) {
  push(@file_did_save, $filename);
} else {
  push(@did_not_save, $filename . ' ' . $!);
}
  2. or download this
    $config{'image_upload_dir'}.$fntwo
  3. or download this
    $config{'image_upload_dir'} . '/' . $fntwo
  4. or download this
    use File::Spec::Functions;
catfile($config{'image_upload_dir'}, $fntwo)