in reply to Re^8: File::Find problems
in thread File::Find problems

Directories are lists of associations between names and files. Renaming a file just changes the directories. The file itself is untouched.

Since directories in one partition/disk/system can't refer to files in another, you can't rename files from one partition/disk/system to another.

To copy a file then delete the original, you can use File::Copy's move

Replies are listed 'Best First'.
Re^10: File::Find problems
by 7stud (Deacon) on Jan 15, 2010 at 23:13 UTC

    Thanks for hanging in there with me.

    I used File::Copy's move(), and that seemed to work. But it moved all of the files except two. All the files I want to move are in one directory and have a .NEF extension. They are mixed in with other files having a .JPG or .AVI extension.

    I had my script print out the name of each file before moving it. Here is part of the output:

    DSC_0102.NEF
DSC_0098.NEF
DSC_0103.NEF
DSC_0104.NEF
DSC_0101.NEF
Couldn't move DSC_0101.NEF: Operation not permitted at 2perl.pl line 3
+0
...
...
DSC_0135.NEF
DSC_0136.NEF
Couldn't move DSC_0136.NEF: Operation not permitted at 2perl.pl line 3
+0.
DSC_0137.NEF
...
...

    [download]

    Here is my code:

    use strict;
use warnings;
use 5.010;
use File::Find;
use File::Copy;

my $destination_dir = "/Users/me/Pictures/a b c d";

my $volume_name = "/Volumes/Volume\\ Name"; 
#need double slash in path for glob() in next line
#(see glob docs)

for (glob "$volume_name/*") {
    if (-d) {
        find(\&wanted, $_);
    }
}

sub wanted {
    if (-f && /\.NEF$/) {
        my $new_path = "$destination_dir/$_";
        say $_;
        move $_, $new_path or warn "Couldn't move $_: $!";  #**LINE 30
+***
    }
}

    [download]
[reply]
[d/l]
[select]
      A permission problem could indicate another process has the file open.
[reply]
        Here is what I discovered. I'm using mac os x 10.4.11, and I right clicked on one of the files that wouldn't move, and I chose Get Info. That popped up a dialog box that displayed info about the file. In the General section, in addition to the file size, path, creation date, etc., there were two checkboxes that said: Stationery Pad(whatever that is) and Locked. Locked was checked. A random sampling of 5 files that were moved had the Locked checkbox unchecked. So I unchecked Locked in the dialog box for both files and reran the script. This time the script successfully moved the two files.

        What the heck is Locked referring to? Why the heck would two files be Locked? The files are on an SD digital camera card.

        Hmmm...I wonder if that has to do with tagging the files in the camera, so they can't be erased?

[reply]

In Section Seekers of Perl Wisdom