Does it have to be Perl? ResFork Killer will do this: http://hyperarchive.lcs.mit.edu/HyperArchive/Archive/disk/resfork-killer -14.hqx
A Perl version could either copy the contents of the datafork to a new file or use the POSIX modules and the fcntl constants to rewrite the resfork of the current file. Of course, neither of these should be necessary for working with MacCVS. In your MacCVS prefs use the binary files pref pane to set the TIFF type to be plain binary. After that MacCVS will ignore the resfork of all files with that filetype. Alex -- Alex Harper [EMAIL PROTECTED] Configuration Manager [EMAIL PROTECTED] "Use whatever you think of first" -- Larry Wall > -----Original Message----- > From: Axel Rose [mailto:[EMAIL PROTECTED]] > Sent: Friday, May 31, 2002 3:50 AM > To: [EMAIL PROTECTED] > Subject: [MacPerl] destroying the resource fork > > > Hello, > > has anyone a script ready which kills the resource fork from a > file? > > I work with MacCVS and wanted to commit a Photoshop TIFF but > because of the preview in the resource fork it was added binhex > encoded. > > A small MacPerl droplet would be perfect for this task. > > > Thanks, > Axel > >
