Mac OS X and Unix tips and tricks

You can use Perl’s File::Copy module to move files around your system. The only drawback is that if the files are macbinary and have a resource fork, that portion of the file gets lost. You can use Apples ditto command with –rsrc parameter to move files and maintain the resource.

Following is a perl subroutine I wrote to move files and keep the resource. The script uses both the File::Copy move command and ditto.

sub movefiles{
foreach my $movefile (@filelistarray ) {
system(qq|ditto –rsrc $sourcepath$movefile $destpath$movefile|);
print (LOGFILE “$movefile”.” has gone to the approved folder: “.”$destpath”.”$movefile”.”\n”);
move( “$sourcepath”.”$movefile”, “$backuppath”.”$movefile”) or print (LOGFILE “\tERROR: Cannot move file ” . “$!”);
}

This entry was posted on Wednesday, July 21st, 2004 at 10:32 am and is filed under General, Mac OS X general, Perl, Unix. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.