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]