Kevin Old said: > Hello everyone, > > I'm using the Filesys-SmbClient-1.4 to connect to a NT server via > Samba. With the code below, I am able to read & write the file without > any problems. The problem comes when I want to delete the file after > I'm done with it. All of this code was taken from the man page, so it > should work. The error message I get is: > > Can't unlink file:Device or resource busy > > Here's the code: > > #!/usr/bin/perl > > use POSIX; > use Filesys::SmbClient; > > $myfile = "Ivrweb.csv"; > > open(FH, ">$myfile"); > my $smb = new Filesys::SmbClient(username => "kdo", > password => "", #no password for > security reasons > debug => 0); > > # Read a file > my $fd = $smb->open("smb://NTFS1/temp/web/$myfile", '0666'); > while (defined(my $l= $smb->read($fd,50))) {print FH $l; } > $smb->close(fd); > > close(FH); > > > # Delete the file > $smb->unlink("smb://NTFS1/temp/web/$myfile") > or print "Can't unlink file:", $!, "\n"; > > > Any ideas what could be causing this? > > The "$smb->close(fd);" call is closing the file connection correct?
Incorrect. And if you turn on warnings you will find out why. [ $fd ] -- Paul Johnson - [EMAIL PROTECTED] http://www.pjcj.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]