Función de enlace Perl

Descripción

Esta función crea un nuevo nombre de archivo, NEWFILE, vinculado al archivo OLDFILE. La función crea un vínculo físico; si desea un enlace simbólico, utilice la función de enlace simbólico.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

link OLDFILE,NEWFILE

Valor devuelto

Esta función devuelve 0 en caso de error y 1 en caso de éxito.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico, esto creará un nuevo archivo usando el archivo existente -

#!/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";
}

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Error in creating link No such file or directory