Jorge Goncalvez wrote:
> 
> Hi, I wanted to do this:
> ln -s X Y but unless it don't already exists?
> How can I do this in Perl?

unless ( -l 'Y' ) {
    symlink 'X', 'Y' or warn "Cannot create symbolic link to 'X': $!";
    }



John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to