If the target directory .../tmp is not present, the file to be moved will be placed in the parent directory instead and will be renamed to tmp. So I would make sure beforehand that the target directory exists.

For the creation of directories of any depth, use mkpath() from core module File::Path. For moving you could use Perl's File::Copy module. It has a portable move() function. I would do it like this (untested):

# read trans barcode 
$primer = Util::Util::trim(Util::Util::fileDecode($transFile));

# set transaction folder path
my $transPath = "plsTrans/" . $primer . "/tmp/";

use File::Path qw(mkpath);
# create the target directory if there is none
if (!-d $transPath) {
    mkpath $transPath or die "cannot create target directory $transPat
+h:$!\n";
}

use File::Copy qw(move);
move($transFile, $transPath . $transFile)
    or die "move to $transPath failed: $!";
[download]

I can verify that the ../tmp folder will always be available. Right now things are very static. I have manually created all the directories and given proper permissions(777) just for testing and ease of development.

When using move(..), I wind up getting the error move to /mnt/fds-phx/plsTrans/9DFA109A-B562-1BEA-064686FE31CA2F93/tmp/ failed: Is a directory at Lib/PLSParse.pm line 130.

The output I get from the paths I have created is below.



$transFile = /mnt/fds-phx/docTmp/coded/1.tif
$transPath = /mnt/fds-phx/plsTrans/9DFA109A-B562-1BEA-064686FE31CA2F93
+/tmp/
[download]

The problem is probably a "/n" or space in $primer. Just insert a print "(",$primer,")\n"; after setting $primer and see if the braces enclose your transfile number without any space left.

UPDATE: Also the '.' in "/tmp/." is superfluous. Does still work but it is rather unusual (like doing $f= 5+0;), so I just wanted to point that out.

The brackets do enclose the transfile number with out any space left. I even added chomp just to be 100% sure.

Here is my updated code



        # read trans barcode 
        $primer = Util::Util::fileDecode($transFile);
        chomp($primer);
        print "(",$primer,")\n";
        # set transaction folder path
        my $transPath = $wDir. "plsTrans/$primer/tmp/";
        if(-d $transPath){
           print "Transpath : " . $transPath . "\n";
           print "FileName : ".  $transFile . "\n";
           print "Cmd      : >cp $transFile $transPath<\n";
           system("mv",$transFile,$transPath);
        }
[download]

You might do print length($primer) to see if any invisible chars are in that string.

UPDATE: Or use something like this to check for unusual ingredients:  if (not $primer=~/^[A-Z0-9-]+$/) print "AAAARGH\n";

> mkdir a b
> touch a/file
> cd b
> ln -s . tmp
> cd ..
> mv a/file b/tmp
> ls b
file  tmp
[download]

If that was the case he would also see the file in tmp

That is the case, plsTrans is a symlink I made for testing. At this point, I am not sure what the issue is.