Função de link Perl

Descrição

Esta função cria um novo nome de arquivo, NEWFILE, vinculado ao arquivo OLDFILE. A função cria um link físico; se você quiser um link simbólico, use a função de link simbólico.

Sintaxe

A seguir está a sintaxe simples para esta função -

link OLDFILE,NEWFILE

Valor de retorno

Esta função retorna 0 em caso de falha e 1 em caso de sucesso.

Exemplo

A seguir está o código de exemplo mostrando seu uso básico, isso criará um novo arquivo usando o arquivo 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";
}

Quando o código acima é executado, ele produz o seguinte resultado -

Error in creating link No such file or directory