Help for this page

Select Code to Download


  1. or download this
    s/^([^_]+_)(.*)(\.\w{3,4})\z$/$3/;
  2. or download this
    warn "Couldn't rename $temp_f_name to $renamed_file, $!\n";
  3. or download this
    print "About to rename $temp_f_name to $renamed_file\n";