Trailing `X' characters are replaced with random letters to generate the filename. At least four `X' characters must be present at the end of the template.

  # Do it using substr - no reason to use a pattern match since
  # we know where we are looking and what we are looking for

  if (substr($template, $start - MINX + 1, MINX) ne 'X' x MINX) {
    ${$options{ErrStr}} = "The template must contain at least ".
      MINX . " 'X' characters\n";
    return ();
  }
[download]

As imp mentioned, this is behavior is documented. Unfortunately, the source code follows the docs. :-) I was hoping tempdir accepted a SUFFIX parameter just as tempfile does, but it does not (as of version 0.16).

If you really want your temp dir to have an extension, you could still use File::Temp but it would require a bit more work.

1. Find all existing dirs in your base dir and create a file for them. For example, if the dir was named 'dir1234.mbox' you could create a file with the name 'temp_dir1234.mbox'.
2. Use tempfile to create a new (unique) temp file in the base dir using the template 'temp_XXXXXXX' and SUFFIX 'mbox'.
3. Since the existing directory names match the file names, you can create a directory named 'temp_XXXXXXX.mbox' (for whatever XXXXXXX is) and know it is unique. (If you were worried about race conditions you could check to see if it existed first.)
4. When you're done with the temp dir and it is deleted, make sure you delete the corresponding file as well.

I'll be the first to say that the solution enumerated above is an ugly hack. If it were me, I'd use extensionless directory names or just check to see if it existed before I tried to create it. Do you really need the power of File::Temp for this? If you're not creating multiple temp dirs simultaneously this approach seems like overkill.

perl -MFile::Copy -MFile::Temp=tempdir -e 'move $_=tempdir( "asd-XXXX"
+ ), $_.".mbox";'
[download]

No.... What if (by accident) a tempdir is created which already exists as .mbox?

My solution now is - as I don't need the directory at a specific place:
1. Create a standard tempdir
2. Create a fixed "name.mbox" directory within that directory

Nevertheless: Thanks to you and all the others who answered.

---

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Sure, it was just a one-liner to demonstrate my approach. If i were to be more pragmatic, i would code around the various exceptions.

Maybe something like this could be of help in this instance??

#!/usr/bin/perl -Wl
use strict;
use File::Spec qw| catdir tmpdir |;

my $tmpdir;

sub repl {
    my @CHARS = ("a".."z", "0".."9");
    local $_ = pop;
    s/ X / $CHARS[int rand $#CHARS] /gex;
    $_;
}

do {
    $tmpdir = File::Spec->catdir( File::Spec->tmpdir , repl ("asd-XXXX
+.mbox") );
} until (!-e $tmpdir);

print $tmpdir;
[download]



---
perl -e '$,=$",$_=(split/\W/,$^X)[y[eval]]]+--$_],print+just,another,split,hack'er