Fonction de lien Perl

La description

Cette fonction crée un nouveau nom de fichier, NEWFILE, lié au fichier OLDFILE. La fonction crée un lien dur; si vous voulez un lien symbolique, utilisez la fonction symlink.

Syntaxe

Voici la syntaxe simple de cette fonction -

link OLDFILE,NEWFILE

Valeur de retour

Cette fonction renvoie 0 en cas d'échec et 1 en cas de succès.

Exemple

Voici l'exemple de code montrant son utilisation de base, cela créera un nouveau fichier en utilisant le fichier existant -

#!/usr/bin/perl

$existing_file = "/usr/home/test1";
$new_file = "/usr/home/test2";
$retval = link $existing_file, $new_file ;
if( $retval == 1 ) {
   print"Link created successfully\n";
} else {
   print"Error in creating link $!\n";
}

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

Error in creating link No such file or directory